From 941937d295dce322e00a1d77b61041e6bda5cfd8 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 18 Aug 2019 11:06:48 +0200 Subject: [PATCH] disable const vect per function --- lisp/emacs-lisp/comp.el | 3 --- src/comp.c | 17 ----------------- 2 files changed, 20 deletions(-) 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, -- 2.39.5