From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Mar 1998 05:49:15 +0000 (+0000)
Subject: (gc_sweep, mark_object): Handle new data structure
X-Git-Tag: emacs-20.3~1931
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9faeabee0005ac2065dbb315c23816561cb54be;p=emacs.git

(gc_sweep, mark_object): Handle new data structure
for struct Lisp_Buffer_Local_Value.
---

diff --git a/src/alloc.c b/src/alloc.c
index 5ae44416943..337a7f0ede5 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2091,15 +2091,17 @@ mark_object (argptr)
 	  {
 	    register struct Lisp_Buffer_Local_Value *ptr
 	      = XBUFFER_LOCAL_VALUE (obj);
-	    if (XMARKBIT (ptr->car)) break;
-	    XMARK (ptr->car);
+	    if (XMARKBIT (ptr->realvalue)) break;
+	    XMARK (ptr->realvalue);
 	    /* If the cdr is nil, avoid recursion for the car.  */
 	    if (EQ (ptr->cdr, Qnil))
 	      {
-		objptr = &ptr->car;
+		objptr = &ptr->realvalue;
 		goto loop;
 	      }
-	    mark_object (&ptr->car);
+	    mark_object (&ptr->realvalue);
+	    mark_object (&ptr->buffer);
+	    mark_object (&ptr->frame);
 	    /* See comment above under Lisp_Vector for why not use ptr here.  */
 	    objptr = &XBUFFER_LOCAL_VALUE (obj)->cdr;
 	    goto loop;
@@ -2433,9 +2435,8 @@ gc_sweep ()
   }
 
 #ifndef standalone
-  /* Put all unmarked markers on free list.
-     Unchain each one first from the buffer it points into,
-     but only if it's a real marker.  */
+  /* Put all unmarked misc's on free list.
+     For a marker, first unchain it from the buffer it points into.  */
   {
     register struct marker_block *mblk;
     struct marker_block **mprev = &marker_block;
@@ -2460,7 +2461,7 @@ gc_sweep ()
 		break;
 	      case Lisp_Misc_Buffer_Local_Value:
 	      case Lisp_Misc_Some_Buffer_Local_Value:
-		markword = &mblk->markers[i].u_buffer_local_value.car;
+		markword = &mblk->markers[i].u_buffer_local_value.realvalue;
 		break;
 	      case Lisp_Misc_Overlay:
 		markword = &mblk->markers[i].u_overlay.plist;