aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/alloc.c2
-rw-r--r--src/lisp.h4
2 files changed, 3 insertions, 3 deletions
diff --git a/src/alloc.c b/src/alloc.c
index 2d785d5b9a4..2cee6462564 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6943,7 +6943,7 @@ sweep_symbols (void)
6943 symbol_free_list = NULL; 6943 symbol_free_list = NULL;
6944 6944
6945 for (int i = 0; i < ARRAYELTS (lispsym); i++) 6945 for (int i = 0; i < ARRAYELTS (lispsym); i++)
6946 lispsym[i].gcmarkbit = 0; 6946 lispsym[i].s.gcmarkbit = 0;
6947 6947
6948 for (sblk = symbol_block; sblk; sblk = *sprev) 6948 for (sblk = symbol_block; sblk; sblk = *sprev)
6949 { 6949 {
diff --git a/src/lisp.h b/src/lisp.h
index 9464bf8559f..cffaf954b3b 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -838,13 +838,13 @@ make_lisp_symbol (struct Lisp_Symbol *sym)
838INLINE Lisp_Object 838INLINE Lisp_Object
839builtin_lisp_symbol (int index) 839builtin_lisp_symbol (int index)
840{ 840{
841 return make_lisp_symbol (lispsym + index); 841 return make_lisp_symbol (&lispsym[index].s);
842} 842}
843 843
844INLINE void 844INLINE void
845(CHECK_SYMBOL) (Lisp_Object x) 845(CHECK_SYMBOL) (Lisp_Object x)
846{ 846{
847 lisp_h_CHECK_SYMBOL (x); 847 lisp_h_CHECK_SYMBOL (x);
848} 848}
849 849
850/* In the size word of a vector, this bit means the vector has been marked. */ 850/* In the size word of a vector, this bit means the vector has been marked. */