Mercurial > emacs
diff src/alloc.c @ 9463:a40af805e036
(mark_object): Use the new substructure.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 12 Oct 1994 05:14:11 +0000 |
| parents | c7d7fb56b42d |
| children | 8421d09f2afe |
line wrap: on
line diff
--- a/src/alloc.c Wed Oct 12 05:13:45 1994 +0000 +++ b/src/alloc.c Wed Oct 12 05:14:11 1994 +0000 @@ -1642,6 +1642,16 @@ 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 @@ 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: