From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 27 Nov 2020 17:31:53 +0000 (+0100)
Subject: * Synthesize as const primitive function pointers and its container struct.
X-Git-Tag: emacs-28.0.90~2727^2~297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2ff5d9605624baeae0fa500b00078b9f3e42e07;p=emacs.git

* Synthesize as const primitive function pointers and its container struct.

	* src/comp.c (declare_imported_func): Make const function pointer
	to primitive funcions.
	(emit_ctxt_code): Make struct 'comp.func_relocs' const.
---

diff --git a/src/comp.c b/src/comp.c
index 99560cc13a1..12ff985d230 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -967,12 +967,13 @@ declare_imported_func (Lisp_Object subr_sym, gcc_jit_type *ret_type,
 	   subr_sym, make_string ("R", 1));
 
   gcc_jit_type *f_ptr_type =
-    gcc_jit_context_new_function_ptr_type (comp.ctxt,
-					   NULL,
-					   ret_type,
-					   nargs,
-					   types,
-					   0);
+    gcc_jit_type_get_const (
+      gcc_jit_context_new_function_ptr_type (comp.ctxt,
+					     NULL,
+					     ret_type,
+					     nargs,
+					     types,
+					     0));
   gcc_jit_field *field =
     gcc_jit_context_new_field (comp.ctxt,
 			       NULL,
@@ -2866,7 +2867,9 @@ emit_ctxt_code (void)
       comp.ctxt,
       NULL,
       GCC_JIT_GLOBAL_EXPORTED,
-      gcc_jit_type_get_pointer (gcc_jit_struct_as_type (f_reloc_struct)),
+      gcc_jit_type_get_pointer (
+	gcc_jit_type_get_const (
+	  gcc_jit_struct_as_type (f_reloc_struct))),
       FUNC_LINK_TABLE_SYM);
 
   xfree (fields);