Commit e202fa34 authored by Karl Heuer's avatar Karl Heuer
Browse files

(mark_object, gc_sweep): Use new overlay substructure.

parent 21f7c864
......@@ -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))
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment