From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 21 Jan 2024 00:52:31 +0000 (-0800)
Subject: Speed up make_lisp_symbol when debugging
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed457320f4a0660b2821ebaa9c93e50e68530a4a;p=emacs.git

Speed up make_lisp_symbol when debugging

* src/lisp.h (make_lisp_symbol): In eassert use XBARE_SYMBOL
rather than XSYMBOL.  This is safe because the symbol must be
bare.  The change speeds up make_lisp_symbol when debugging.

(cherry picked from commit bdcd662a21f4c4265f704b69deb9cf277a663ea7)
---

diff --git a/src/lisp.h b/src/lisp.h
index c3309c81a16..f0beafba42c 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1166,7 +1166,7 @@ make_lisp_symbol (struct Lisp_Symbol *sym)
      cast to char * rather than to intptr_t.  */
   char *symoffset = (char *) ((char *) sym - (char *) lispsym);
   Lisp_Object a = TAG_PTR (Lisp_Symbol, symoffset);
-  eassert (XSYMBOL (a) == sym);
+  eassert (XBARE_SYMBOL (a) == sym);
   return a;
 }