From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 12 Oct 1994 05:14:11 +0000 (+0000)
Subject: (mark_object): Use the new substructure.
X-Git-Tag: emacs-19.34~6391
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c86160562afe6df205a3a5824003caa4229b091a;p=emacs.git

(mark_object): Use the new substructure.
---

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: