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:
parent
52089993aa
commit
941937d295
2 changed files with 0 additions and 20 deletions
|
|
@ -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))
|
||||
|
|
|
|||
17
src/comp.c
17
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,
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue