procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use '--lambda-fixup' as native compiler fixup symbol for lambdas

Browse source 
* src/comp.c (check_comp_unit_relocs, syms_of_comp): Rename
'Qlambda_fixup' to 'Q__lambda_fixup'.
* src/pdumper.c (dump_do_dump_relocation): Likewise.
This commit is contained in:
Andrea Corallo 2024-12-18 21:55:41 +01:00
parent 4e11f9c96d
commit 9e99c43d2f
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/comp.c
View file

@ -5173,7 +5173,7 @@ check_comp_unit_relocs (struct Lisp_Native_Comp_Unit *comp_u)
for (ptrdiff_t i = 0; i < d_vec_len; i++)
{
Lisp_Object x = data_relocs[i];
if (EQ (x, Qlambda_fixup))
if (EQ (x, Q__lambda_fixup))
return false;
else if (NATIVE_COMP_FUNCTIONP (x))
{
@ -5622,7 +5622,7 @@ natively-compiled one. */);
DEFSYM (Qfixnum, "fixnum");
DEFSYM (Qscratch, "scratch");
DEFSYM (Qlate, "late");
DEFSYM (Qlambda_fixup, "lambda-fixup");
DEFSYM (Q__lambda_fixup, "--lambda-fixup");
DEFSYM (Qgccjit, "gccjit");
DEFSYM (Qcomp_subr_trampoline_install, "comp-subr-trampoline-install");
DEFSYM (Qnative_comp_warning_on_missing_source,

2
src/pdumper.c
View file

@ -5504,7 +5504,7 @@ dump_do_dump_relocation (const uintptr_t dump_base,
XSETSUBR (tem, subr);
Lisp_Object *fixup =
&(comp_u->data_relocs[XFIXNUM (lambda_data_idx)]);
eassert (EQ (*fixup, Qlambda_fixup));
eassert (EQ (*fixup, Q__lambda_fixup));
*fixup = tem;
Fputhash (tem, Qt, comp_u->lambda_gc_guard_h);
}