diff options
| author | Andreas Schwab | 2017-07-25 01:12:50 +0200 |
|---|---|---|
| committer | Andreas Schwab | 2017-07-25 01:20:44 +0200 |
| commit | 7a4d9f6304cffa39642507609605bcbfa40d4675 (patch) | |
| tree | bb6fec695a423165549a86781e9c0404aede246a /src | |
| parent | b46a02eda44161afd4b2a6b0cdb1fed3efc504fd (diff) | |
| download | emacs-7a4d9f6304cffa39642507609605bcbfa40d4675.tar.gz emacs-7a4d9f6304cffa39642507609605bcbfa40d4675.zip | |
Properly align global lispsym
* lib-src/make-docfile.c (close_emacs_globals): Wrap struct
Lisp_Symbols inside struct.
* src/alloc.c (sweep_symbols): Update use of lispsym.
* src/lisp.h (builtin_lisp_symbol): Likewise.
Diffstat (limited to 'src')
| -rw-r--r-- | src/alloc.c | 2 | ||||
| -rw-r--r-- | src/lisp.h | 4 |
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) | |||
| 838 | INLINE Lisp_Object | 838 | INLINE Lisp_Object |
| 839 | builtin_lisp_symbol (int index) | 839 | builtin_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 | ||
| 844 | INLINE void | 844 | INLINE 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. */ |