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

* 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.

2 files changed, 3 insertions, 3 deletions

diff --git a/src/comp.c b/src/comp.c
index ac26ead08d9..8b38adec252 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -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,
diff --git a/src/pdumper.c b/src/pdumper.c
index f9d74f87fb4..d45bbc84bba 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -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);
           }