aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c18
1 files 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)
1642 instead, markers are removed from the chain when freed by gc. */ 1642 instead, markers are removed from the chain when freed by gc. */
1643 break; 1643 break;
1644 1644
1645 case Lisp_Misc_Intfwd:
1646 case Lisp_Misc_Boolfwd:
1647 case Lisp_Misc_Objfwd:
1648 case Lisp_Misc_Buffer_Objfwd:
1649 /* Don't bother with Lisp_Buffer_Objfwd,
1650 since all markable slots in current buffer marked anyway. */
1651 /* Don't need to do Lisp_Objfwd, since the places they point
1652 are protected with staticpro. */
1653 break;
1654
1645 default: 1655 default:
1646 abort (); 1656 abort ();
1647 } 1657 }
@@ -1680,14 +1690,6 @@ mark_object (objptr)
1680 1690
1681 case Lisp_Int: 1691 case Lisp_Int:
1682 case Lisp_Subr: 1692 case Lisp_Subr:
1683 case Lisp_Intfwd:
1684 case Lisp_Boolfwd:
1685 case Lisp_Objfwd:
1686 case Lisp_Buffer_Objfwd:
1687 /* Don't bother with Lisp_Buffer_Objfwd,
1688 since all markable slots in current buffer marked anyway. */
1689 /* Don't need to do Lisp_Objfwd, since the places they point
1690 are protected with staticpro. */
1691 break; 1693 break;
1692 1694
1693 default: 1695 default: