From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 18 Aug 2019 09:06:48 +0000 (+0200)
Subject: disable const vect per function
X-Git-Tag: emacs-28.0.90~2727^2~1267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=941937d295dce322e00a1d77b61041e6bda5cfd8;p=emacs.git

disable const vect per function
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index fdb1b386132..a55d369570d 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -773,9 +773,6 @@ the annotation emission."
     (comp-emit-block 'entry)
     (comp-emit-annotation (concat "Lisp function: "
                                   (symbol-name (comp-func-symbol-name func))))
-    (comp-emit `(const-vector ,(concat (comp-func-c-func-name func) "_data_relocs")
-                              ,(prin1-to-string (aref (comp-func-byte-func func)
-                                                      2))))
     (if (comp-args-p args)
       (cl-loop for i below (comp-args-max args)
                do (cl-incf (comp-sp))
diff --git a/src/comp.c b/src/comp.c
index 32ece133c5e..b1116aa961b 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1360,23 +1360,6 @@ emit_limple_insn (Lisp_Object insn)
       /* Ex: (comment "Function: foo").	 */
       emit_comment((char *) SDATA (arg0));
     }
-  else if (EQ (op, Qconst_vector))
-    {
-      /* Ex: (const-vector "F666f6f_foo_reloc"
-			   "[a b c 1 2]").  */
-      Lisp_Object vec = SECOND (args);
-      EMACS_INT v_len = XFIXNUM (FUNCALL1 (length, vec));
-
-      gcc_jit_context_new_global (
-	comp.ctxt,
-	NULL,
-	GCC_JIT_GLOBAL_INTERNAL,
-	gcc_jit_context_new_array_type (comp.ctxt,
-					NULL,
-					comp.lisp_obj_type,
-					v_len),
-	(char *) SDATA (arg0));
-    }
   else if (EQ (op, Qreturn))
     {
       gcc_jit_block_end_with_return (comp.block,