disable const vect per function

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index fdb1b38613293aaac972bebd837dac6ae1e9d003..a55d369570d47149a4375ede6c76bc238186bd2b 100644 (file)
--- 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 32ece133c5ed1bccec2e8961b5a36a5bb299f650..b1116aa961b9f1f0d5e017ff2fe705f104669d6a 100644 (file)
--- 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,