diff options
| author | Helmut Eller | 2024-06-23 15:34:55 +0200 |
|---|---|---|
| committer | Helmut Eller | 2026-02-12 18:51:51 +0100 |
| commit | d109bcf86e870d003b45930c82f8140e8ba415ac (patch) | |
| tree | f7c924c4a3527ffc6df3f7b7e6fe9ec971968563 /src/data.c | |
| parent | 9d9189f74c5bd23b249833d70c4390cdbf16fc68 (diff) | |
| download | emacs-d109bcf86e870d003b45930c82f8140e8ba415ac.tar.gz emacs-d109bcf86e870d003b45930c82f8140e8ba415ac.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 e33f4c92d35..337d640b2b5 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -71,11 +71,11 @@ XINTVAR (lispfwd a) | |||
| 71 | eassert (INTFWDP (a)); | 71 | eassert (INTFWDP (a)); |
| 72 | return a->u.intvar; | 72 | return a->u.intvar; |
| 73 | } | 73 | } |
| 74 | static struct Lisp_Objfwd const * | 74 | static Lisp_Object * |
| 75 | XOBJFWD (lispfwd a) | 75 | XOBJVAR (lispfwd a) |
| 76 | { | 76 | { |
| 77 | eassert (OBJFWDP (a)); | 77 | eassert (OBJFWDP (a)); |
| 78 | return &a->u.objfwd; | 78 | return a->u.objvar; |
| 79 | } | 79 | } |
| 80 | 80 | ||
| 81 | static void | 81 | static void |
| @@ -1338,7 +1338,7 @@ do_symval_forwarding (lispfwd valcontents) | |||
| 1338 | return (*XBOOLVAR (valcontents) ? Qt : Qnil); | 1338 | return (*XBOOLVAR (valcontents) ? Qt : Qnil); |
| 1339 | 1339 | ||
| 1340 | case Lisp_Fwd_Obj: | 1340 | case Lisp_Fwd_Obj: |
| 1341 | return *XOBJFWD (valcontents)->objvar; | 1341 | return *XOBJVAR (valcontents); |
| 1342 | 1342 | ||
| 1343 | case Lisp_Fwd_Buffer_Obj: | 1343 | case Lisp_Fwd_Buffer_Obj: |
| 1344 | return per_buffer_value (current_buffer, | 1344 | return per_buffer_value (current_buffer, |
| @@ -1427,16 +1427,16 @@ store_symval_forwarding (lispfwd valcontents, Lisp_Object newval, | |||
| 1427 | break; | 1427 | break; |
| 1428 | 1428 | ||
| 1429 | case Lisp_Fwd_Obj: | 1429 | case Lisp_Fwd_Obj: |
| 1430 | *XOBJFWD (valcontents)->objvar = newval; | 1430 | *XOBJVAR (valcontents) = newval; |
| 1431 | 1431 | ||
| 1432 | /* If this variable is a default for something stored | 1432 | /* If this variable is a default for something stored |
| 1433 | in the buffer itself, such as default-fill-column, | 1433 | in the buffer itself, such as default-fill-column, |
| 1434 | find the buffers that don't have local values for it | 1434 | find the buffers that don't have local values for it |
| 1435 | and update them. */ | 1435 | and update them. */ |
| 1436 | if (XOBJFWD (valcontents)->objvar > (Lisp_Object *) &buffer_defaults | 1436 | if (XOBJVAR (valcontents) > (Lisp_Object *) &buffer_defaults |
| 1437 | && XOBJFWD (valcontents)->objvar < (Lisp_Object *) (&buffer_defaults + 1)) | 1437 | && XOBJVAR (valcontents) < (Lisp_Object *) (&buffer_defaults + 1)) |
| 1438 | { | 1438 | { |
| 1439 | int offset = ((char *) XOBJFWD (valcontents)->objvar | 1439 | int offset = ((char *) XOBJVAR (valcontents) |
| 1440 | - (char *) &buffer_defaults); | 1440 | - (char *) &buffer_defaults); |
| 1441 | int idx = PER_BUFFER_IDX (offset); | 1441 | int idx = PER_BUFFER_IDX (offset); |
| 1442 | 1442 | ||