(mark_object): Use the new substructure.

diff --git a/src/alloc.c b/src/alloc.c
index a92ef25d2be04802b10c701623fb832f378e0ffa..7a462d81c00c6b94d700b52322c4466228e408fe 100644 (file)
--- 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: