diff options
| author | Pip Cet | 2024-07-14 10:45:50 +0000 |
|---|---|---|
| committer | Pip Cet | 2024-07-20 15:17:50 +0000 |
| commit | 6068cf00cddcd9f81a1390e7b4b8ecb02e285696 (patch) | |
| tree | 6b9a1a5d484834063547115a6574f6ba209dd859 /src/comp.c | |
| parent | 4b1e9ffbc4a68565c55f63a56bff173641a187be (diff) | |
| download | emacs-6068cf00cddcd9f81a1390e7b4b8ecb02e285696.tar.gz emacs-6068cf00cddcd9f81a1390e7b4b8ecb02e285696.zip | |
Turn union vectorlike_header into struct vectorlike_header
This makes it feasible to add GC header members to this struct; keeping
it as a union and merely turning its contents into a struct would have
been misleading and required more difficult changes.
* src/lisp.h (struct vectorlike_header): New type. Adjust comments.
(union vectorlike_header): Remove.
(PSEUDOVECTORP):
(XSETPVECTYPESIZE):
(struct Lisp_Vector):
(PSEUDOVECTOR_TYPEP):
(struct Lisp_Bool_Vector):
(struct Lisp_Char_Table):
(struct Lisp_Sub_Char_Table):
(struct Lisp_Subr):
(struct Lisp_Obarray):
(struct Lisp_Weak_Hash_Table):
(struct Lisp_Hash_Table):
(struct Lisp_Marker):
(struct Lisp_Overlay)
(struct Lisp_Misc_Ptr):
(struct Lisp_Sqlite):
(struct Lisp_User_Ptr):
(struct Lisp_Finalizer):
(vectorlike_nbytes):
* src/alloc.c (pseudovector_nbytes):
(vectorlike_nbytes):
(vectorlike_marked_p):
(set_vectorlike_marked):
(mark_vectorlike):
* src/androidterm.h (struct scroll_bar):
* src/bignum.h (struct Lisp_Bignum):
* src/buffer.h (struct buffer):
* src/comp.c (helper_PSEUDOVECTOR_TYPEP_XUNTAG):
* src/comp.h (struct Lisp_Native_Comp_Unit):
* src/emacs-module.c (struct Lisp_Module_Function):
* src/emacs-module.h.in (struct module_global_reference):
* src/font.h (struct font_spec, struct font_entity)
(struct font):
* src/frame.h (struct frame):
* src/haikuterm.h (struct scroll_bar): Adjust
* src/pdumper.c (_dump_object_start_pseudovector):
(START_DUMP_PVEC):
(finish_dump_pvec):
(dump_pseudovector_lisp_fields):
(dump_vectorlike_generic):
(fill_pseudovec):
(dump_nilled_pseudovec):
* src/pgtkterm.h (struct scroll_bar):
* src/process.h (struct Lisp_Process):
* src/termhooks.h (struct terminal):
* src/thread.h (struct thread_state):
(struct Lisp_Mutex):
(struct Lisp_CondVar):
* src/treesit.h (struct Lisp_TS_Parser)
(struct Lisp_TS_Node):
(struct Lisp_TS_Query):
* src/w32term.h (struct scroll_bar):
* src/window.c (make_parent_window):
(struct save_window_data):
(struct saved_window):
* src/window.h (struct window):
* src/xterm.h (struct scroll_bar):
* src/xwidget.h (struct xwidget):
(struct xwidget_view): Replace `union vectorlike_header' by `struct
vectorlike_header' throughout.
* doc/lispref/internals.texi: Fix references.
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/comp.c b/src/comp.c index a2f7b384f4f..ff33944becd 100644 --- a/src/comp.c +++ b/src/comp.c | |||
| @@ -5084,7 +5084,7 @@ static bool | |||
| 5084 | helper_PSEUDOVECTOR_TYPEP_XUNTAG (Lisp_Object a, enum pvec_type code) | 5084 | helper_PSEUDOVECTOR_TYPEP_XUNTAG (Lisp_Object a, enum pvec_type code) |
| 5085 | { | 5085 | { |
| 5086 | return PSEUDOVECTOR_TYPEP (XUNTAG (a, Lisp_Vectorlike, | 5086 | return PSEUDOVECTOR_TYPEP (XUNTAG (a, Lisp_Vectorlike, |
| 5087 | union vectorlike_header), | 5087 | struct vectorlike_header), |
| 5088 | code); | 5088 | code); |
| 5089 | } | 5089 | } |
| 5090 | 5090 | ||