mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(mark_object): Use the new substructure.

Browse Source
This commit is contained in:
Karl Heuer 1994-10-12 05:14:11 +00:00
parent ee4c9ce4d7
commit c86160562a
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/alloc.c
View File

@ -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: