Mercurial > emacs
changeset 11243:054ecfce1820
(Fmake_marker, mark_object): Use XMISCTYPE.
(clear_marks, gc_sweep): Use u_marker union elt to extrat misc type.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Apr 1995 05:28:07 +0000 |
| parents | 36e8e27c8625 |
| children | f3b11dc9014e |
| files | src/alloc.c |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Fri Apr 07 05:21:50 1995 +0000 +++ b/src/alloc.c Fri Apr 07 05:28:07 1995 +0000 @@ -907,7 +907,7 @@ register struct Lisp_Marker *p; val = allocate_misc (); - XMISC (val)->type = Lisp_Misc_Marker; + XMISCTYPE (val) = Lisp_Misc_Marker; p = XMARKER (val); p->buffer = 0; p->bufpos = 0; @@ -1540,7 +1540,7 @@ { register int i; for (i = 0; i < lim; i++) - if (sblk->markers[i].type == Lisp_Misc_Marker) + if (sblk->markers[i].u_marker.type == Lisp_Misc_Marker) XUNMARK (sblk->markers[i].u_marker.chain); lim = MARKER_BLOCK_SIZE; } @@ -1731,7 +1731,7 @@ break; case Lisp_Misc: - switch (XMISC (obj)->type) + switch (XMISCTYPE (obj)) { case Lisp_Misc_Marker: XMARK (XMARKER (obj)->chain); @@ -2033,7 +2033,7 @@ for (i = 0; i < lim; i++) { Lisp_Object *markword; - switch (mblk->markers[i].type) + switch (mblk->markers[i].u_marker.type) { case Lisp_Misc_Marker: markword = &mblk->markers[i].u_marker.chain; @@ -2052,7 +2052,7 @@ if (markword && !XMARKBIT (*markword)) { Lisp_Object tem; - if (mblk->markers[i].type == Lisp_Misc_Marker) + if (mblk->markers[i].u_marker.type == Lisp_Misc_Marker) { /* tem1 avoids Sun compiler bug */ struct Lisp_Marker *tem1 = &mblk->markers[i].u_marker; @@ -2061,7 +2061,7 @@ } /* We could leave the type alone, since nobody checks it, but this might catch bugs faster. */ - mblk->markers[i].type = Lisp_Misc_Free; + mblk->markers[i].u_marker.type = Lisp_Misc_Free; mblk->markers[i].u_free.chain = marker_free_list; marker_free_list = &mblk->markers[i]; num_free++;