(mark_object, gc_sweep): Use new overlay substructure.

diff --git a/src/alloc.c b/src/alloc.c
index 4ff5bcfb4e7363bd7e26ea8baa7d77a3c744d0df..bd62b95fc5e3dfdce044d15f32b8ccf98e90dab8 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1671,13 +1671,26 @@ mark_object (objptr)
             are protected with staticpro.  */
          break;
 
+       case Lisp_Misc_Overlay:
+         {
+           struct Lisp_Overlay *ptr = XOVERLAY (obj);
+           if (!XMARKBIT (ptr->plist))
+             {
+               XMARK (ptr->plist);
+               mark_object (&ptr->start);
+               mark_object (&ptr->end);
+               objptr = &ptr->plist;
+               goto loop;
+             }
+         }
+         break;
+
        default:
          abort ();
        }
       break;
 
     case Lisp_Cons:
-    case Lisp_Overlay:
       {
        register struct Lisp_Cons *ptr = XCONS (obj);
        if (XMARKBIT (ptr->car)) break;
@@ -1912,8 +1925,12 @@ gc_sweep ()
              case Lisp_Misc_Some_Buffer_Local_Value:
                markword = &mblk->markers[i].u_buffer_local_value.car;
                break;
+             case Lisp_Misc_Overlay:
+               markword = &mblk->markers[i].u_overlay.plist;
+               break;
              default:
                markword = 0;
+               break;
              }
            if (markword && !XMARKBIT (*markword))
              {