From c86160562afe6df205a3a5824003caa4229b091a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 12 Oct 1994 05:14:11 +0000 Subject: [PATCH] (mark_object): Use the new substructure. --- src/alloc.c | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index a92ef25d2be..7a462d81c00 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1642,6 +1642,16 @@ mark_object (objptr) instead, markers are removed from the chain when freed by gc. */ break; + case Lisp_Misc_Intfwd: + case Lisp_Misc_Boolfwd: + case Lisp_Misc_Objfwd: + case Lisp_Misc_Buffer_Objfwd: + /* Don't bother with Lisp_Buffer_Objfwd, + since all markable slots in current buffer marked anyway. */ + /* Don't need to do Lisp_Objfwd, since the places they point + are protected with staticpro. */ + break; + default: abort (); } @@ -1680,14 +1690,6 @@ mark_object (objptr) case Lisp_Int: case Lisp_Subr: - case Lisp_Intfwd: - case Lisp_Boolfwd: - case Lisp_Objfwd: - case Lisp_Buffer_Objfwd: - /* Don't bother with Lisp_Buffer_Objfwd, - since all markable slots in current buffer marked anyway. */ - /* Don't need to do Lisp_Objfwd, since the places they point - are protected with staticpro. */ break; default: -- 2.39.5