diff options
| author | Helmut Eller | 2024-06-23 15:34:55 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2024-06-23 18:21:54 +0200 |
| commit | 50853a01918c854caa50268b260265fe7abe6c0d (patch) | |
| tree | a7a3809165bdbe22e844b2235e492780cf4444f3 /src/data.c | |
| parent | 555cb9c784efffce67dfbfbe714802140c11372f (diff) | |
| download | emacs-50853a01918c854caa50268b260265fe7abe6c0d.tar.gz emacs-50853a01918c854caa50268b260265fe7abe6c0d.zip | |
Remove struct Lisp_Objfwd
* src/lisp.h (struct Lisp_Objfwd): Deleted.
(struct Lisp_Fwd): Replace it with objvar field.
(DEFVAR_LISP, DEFVAR_LISP_NOPRO, DEFVAR_LISP_NOPROX): Use the field.
* src/lread.c (defvar_lisp): Updated as needed.
* src/pdumper.c (dump_field_fwd): Use the field.
* src/data.c (XOBJVAR): Renamed and updated from XOBJFWD.
(do_symval_forwarding, store_symval_forwarding): Use it.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/data.c b/src/data.c index 292a2f2cf06..af4802f54a0 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -73,11 +73,11 @@ XINTVAR (lispfwd a) | |||
| 73 | eassert (INTFWDP (a)); | 73 | eassert (INTFWDP (a)); |
| 74 | return a->u.intvar; | 74 | return a->u.intvar; |
| 75 | } | 75 | } |
| 76 | static struct Lisp_Objfwd const * | 76 | static Lisp_Object * |
| 77 | XOBJFWD (lispfwd a) | 77 | XOBJVAR (lispfwd a) |
| 78 | { | 78 | { |
| 79 | eassert (OBJFWDP (a)); | 79 | eassert (OBJFWDP (a)); |
| 80 | return &a->u.objfwd; | 80 | return a->u.objvar; |
| 81 | } | 81 | } |
| 82 | 82 | ||
| 83 | static void | 83 | static void |
| @@ -1339,7 +1339,7 @@ do_symval_forwarding (lispfwd valcontents) | |||
| 1339 | return (*XBOOLVAR (valcontents) ? Qt : Qnil); | 1339 | return (*XBOOLVAR (valcontents) ? Qt : Qnil); |
| 1340 | 1340 | ||
| 1341 | case Lisp_Fwd_Obj: | 1341 | case Lisp_Fwd_Obj: |
| 1342 | return *XOBJFWD (valcontents)->objvar; | 1342 | return *XOBJVAR (valcontents); |
| 1343 | 1343 | ||
| 1344 | case Lisp_Fwd_Buffer_Obj: | 1344 | case Lisp_Fwd_Buffer_Obj: |
| 1345 | return per_buffer_value (current_buffer, | 1345 | return per_buffer_value (current_buffer, |
| @@ -1428,16 +1428,16 @@ store_symval_forwarding (lispfwd valcontents, Lisp_Object newval, | |||
| 1428 | break; | 1428 | break; |
| 1429 | 1429 | ||
| 1430 | case Lisp_Fwd_Obj: | 1430 | case Lisp_Fwd_Obj: |
| 1431 | *XOBJFWD (valcontents)->objvar = newval; | 1431 | *XOBJVAR (valcontents) = newval; |
| 1432 | 1432 | ||
| 1433 | /* If this variable is a default for something stored | 1433 | /* If this variable is a default for something stored |
| 1434 | in the buffer itself, such as default-fill-column, | 1434 | in the buffer itself, such as default-fill-column, |
| 1435 | find the buffers that don't have local values for it | 1435 | find the buffers that don't have local values for it |
| 1436 | and update them. */ | 1436 | and update them. */ |
| 1437 | if (XOBJFWD (valcontents)->objvar > (Lisp_Object *) &buffer_defaults | 1437 | if (XOBJVAR (valcontents) > (Lisp_Object *) &buffer_defaults |
| 1438 | && XOBJFWD (valcontents)->objvar < (Lisp_Object *) (&buffer_defaults + 1)) | 1438 | && XOBJVAR (valcontents) < (Lisp_Object *) (&buffer_defaults + 1)) |
| 1439 | { | 1439 | { |
| 1440 | int offset = ((char *) XOBJFWD (valcontents)->objvar | 1440 | int offset = ((char *) XOBJVAR (valcontents) |
| 1441 | - (char *) &buffer_defaults); | 1441 | - (char *) &buffer_defaults); |
| 1442 | int idx = PER_BUFFER_IDX (offset); | 1442 | int idx = PER_BUFFER_IDX (offset); |
| 1443 | 1443 | ||