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/process.h | |
| 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/process.h')
| -rw-r--r-- | src/process.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/process.h b/src/process.h index 6bc22146a72..3c6dd7b91f4 100644 --- a/src/process.h +++ b/src/process.h | |||
| @@ -203,7 +203,7 @@ struct Lisp_Process | |||
| 203 | bool_bf gnutls_p : 1; | 203 | bool_bf gnutls_p : 1; |
| 204 | bool_bf gnutls_complete_negotiation_p : 1; | 204 | bool_bf gnutls_complete_negotiation_p : 1; |
| 205 | #endif | 205 | #endif |
| 206 | }; | 206 | } GCALIGNED_STRUCT; |
| 207 | 207 | ||
| 208 | INLINE bool | 208 | INLINE bool |
| 209 | PROCESSP (Lisp_Object a) | 209 | PROCESSP (Lisp_Object a) |