1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 00:10:48 -08:00

disable const vect per function

This commit is contained in:
Andrea Corallo 2019-08-18 11:06:48 +02:00 committed by Andrea Corallo
parent 52089993aa
commit 941937d295
2 changed files with 0 additions and 20 deletions

View file

@ -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))

View file

@ -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,