diff options
| author | Paul Eggert | 2018-09-06 19:17:14 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-09-06 23:56:13 -0700 |
| commit | 2c8520e19c0fe72d046033e39953b7a0a87be24e (patch) | |
| tree | 2ea12495ed8184e87108e17632ecd8c2ab02c8cf /src/keymap.c | |
| parent | bca35315e16cb53415649e5c0ac2ec0cc1368679 (diff) | |
| download | emacs-2c8520e19c0fe72d046033e39953b7a0a87be24e.tar.gz emacs-2c8520e19c0fe72d046033e39953b7a0a87be24e.zip | |
Shrink pseudovectors a bit
sizeof (struct Lisp_Marker) was 32 on x86, where 24 would do.
Problem noted by Stefan Monnier in:
https://lists.gnu.org/r/emacs-devel/2018-09/msg00165.html
* src/bignum.h (struct Lisp_Bignum):
* src/frame.h (struct frame):
* src/lisp.h (struct Lisp_Vector, struct Lisp_Bool_Vector)
(struct Lisp_Char_Table, struct Lisp_Hash_Table)
(struct Lisp_Marker, struct Lisp_Overlay)
(struct Lisp_Misc_Ptr, struct Lisp_User_Ptr)
(struct Lisp_Finalizer, struct Lisp_Float)
(struct Lisp_Module_Function):
* src/process.h (struct Lisp_Process):
* src/termhooks.h (struct terminal):
* src/thread.h (struct thread_state, struct Lisp_Mutex)
(struct Lisp_CondVar):
* src/window.c (struct save_window_data):
* src/window.h (struct window):
* src/xterm.h (struct scroll_bar):
* src/xwidget.h (struct xwidget, struct xwidget_view):
Add GCALIGNED_STRUCT attribute.
* src/lisp.h (GCALIGNED_UNION_MEMBER): Renamed from GCALIGNED_UNION.
All uses changed.
(GCALIGNED_STRUCT_MEMBER, GCALIGNED_STRUCT, GCALIGNED): New macros.
All uses of open-coded GCALIGNED changed to use GCALIGNED.
(union vectorlike_header): No longer GC-aligned.
(PSEUDOVECSIZE): Yield 0 for pseudovectors without Lisp
objects that place a member before where the first Lisp object
member would be.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/keymap.c b/src/keymap.c index 52db7b491f9..79dce15a812 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -554,9 +554,9 @@ union map_keymap | |||
| 554 | Lisp_Object args; | 554 | Lisp_Object args; |
| 555 | void *data; | 555 | void *data; |
| 556 | } s; | 556 | } s; |
| 557 | GCALIGNED_UNION | 557 | GCALIGNED_UNION_MEMBER |
| 558 | }; | 558 | }; |
| 559 | verify (alignof (union map_keymap) % GCALIGNMENT == 0); | 559 | verify (GCALIGNED (union map_keymap)); |
| 560 | 560 | ||
| 561 | static void | 561 | static void |
| 562 | map_keymap_char_table_item (Lisp_Object args, Lisp_Object key, Lisp_Object val) | 562 | map_keymap_char_table_item (Lisp_Object args, Lisp_Object key, Lisp_Object val) |