diff options
| author | Paul Eggert | 2024-01-20 16:52:31 -0800 |
|---|---|---|
| committer | Paul Eggert | 2024-01-20 17:28:53 -0800 |
| commit | bdcd662a21f4c4265f704b69deb9cf277a663ea7 (patch) | |
| tree | ab8078c73e57e8b0576bd94886ed2fb7d572ffe8 /src | |
| parent | cf26f573162130fed73c6e5603cb58e158903add (diff) | |
| download | emacs-bdcd662a21f4c4265f704b69deb9cf277a663ea7.tar.gz emacs-bdcd662a21f4c4265f704b69deb9cf277a663ea7.zip | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lisp.h | 2 |
1 files changed, 1 insertions, 1 deletions
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) | |||
| 1166 | cast to char * rather than to intptr_t. */ | 1166 | cast to char * rather than to intptr_t. */ |
| 1167 | char *symoffset = (char *) ((char *) sym - (char *) lispsym); | 1167 | char *symoffset = (char *) ((char *) sym - (char *) lispsym); |
| 1168 | Lisp_Object a = TAG_PTR (Lisp_Symbol, symoffset); | 1168 | Lisp_Object a = TAG_PTR (Lisp_Symbol, symoffset); |
| 1169 | eassert (XSYMBOL (a) == sym); | 1169 | eassert (XBARE_SYMBOL (a) == sym); |
| 1170 | return a; | 1170 | return a; |
| 1171 | } | 1171 | } |
| 1172 | 1172 | ||