some style fixes

3 files changed, 8 insertions, 8 deletions

diff --git a/src/comp.c b/src/comp.c
index 7e25bdc9256..87986abee68 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1824,7 +1824,7 @@ emit_ctxt_code (void)
       fields[n_frelocs++] = xmint_pointer (XCDR (el));
     }
 
-  Lisp_Object subr_l = Vsubr_list;
+  Lisp_Object subr_l = Vcomp_subr_list;
   FOR_EACH_TAIL (subr_l)
     {
       struct Lisp_Subr *subr = XSUBR (XCAR (subr_l));
@@ -3121,7 +3121,7 @@ fill_freloc (void)
   memcpy (freloc.link_table, helper_link_table, sizeof (helper_link_table));
   freloc.size = ARRAYELTS (helper_link_table);
 
-  Lisp_Object subr_l = Vsubr_list;
+  Lisp_Object subr_l = Vcomp_subr_list;
   FOR_EACH_TAIL (subr_l)
     {
       if (freloc.size == F_RELOC_MAX_SIZE)
@@ -3290,7 +3290,7 @@ DEFUN ("comp--register-subr", Fcomp__register_subr, Scomp__register_subr,
   XSETSUBR (tem, &x->s);
   set_symbol_function (name, tem);
 
-  Fputhash (name, c_name, Vsym_subr_c_name_h);
+  Fputhash (name, c_name, Vcomp_sym_subr_c_name_h);
   LOADHIST_ATTACH (Fcons (Qdefun, name));
 
   return Qnil;
@@ -3431,12 +3431,12 @@ syms_of_comp (void)
   Vcomp_ctxt = Qnil;
 
   /* FIXME should be initialized but not here... */
-  DEFVAR_LISP ("comp-subr-list", Vsubr_list,
+  DEFVAR_LISP ("comp-subr-list", Vcomp_subr_list,
                doc: /* List of all defined subrs.  */);
-  DEFVAR_LISP ("comp-sym-subr-c-name-h", Vsym_subr_c_name_h,
+  DEFVAR_LISP ("comp-sym-subr-c-name-h", Vcomp_sym_subr_c_name_h,
                doc: /* Hash table symbol-function -> function-c-name.  For
                        internal use during  */);
-  Vsym_subr_c_name_h = CALLN (Fmake_hash_table);
+  Vcomp_sym_subr_c_name_h = CALLN (Fmake_hash_table);
 }
 
 #endif /* HAVE_NATIVE_COMP */
diff --git a/src/lread.c b/src/lread.c
index 1ba04835aa1..4e8a3adeb94 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -4466,7 +4466,7 @@ defsubr (union Aligned_Lisp_Subr *aname)
   XSETSUBR (tem, sname);
   set_symbol_function (sym, tem);
 #ifdef HAVE_NATIVE_COMP
-  Vsubr_list = Fcons (tem, Vsubr_list);
+  Vcomp_subr_list = Fcons (tem, Vcomp_subr_list);
 #endif /* HAVE_NATIVE_COMP */
 }
 
diff --git a/src/pdumper.c b/src/pdumper.c
index 5bfccb8ac90..610b94b0a32 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -5323,7 +5323,7 @@ dump_do_dump_relocation (const uintptr_t dump_base,
           XNATIVE_COMP_UNIT (subr->native_comp_u);
         if (!comp_u->handle)
           error ("can't relocate native subr with not loaded compilation unit");
-        Lisp_Object c_name = Fgethash (name, Vsym_subr_c_name_h, Qnil);
+        Lisp_Object c_name = Fgethash (name, Vcomp_sym_subr_c_name_h, Qnil);
         if (NILP (c_name))
           error ("missing label name");
         void *func = dynlib_sym (comp_u->handle, SSDATA (c_name));