Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
9462:3601bf7327b2 | 9463:a40af805e036 |
---|---|
1640 /* DO NOT mark thru the marker's chain. | 1640 /* DO NOT mark thru the marker's chain. |
1641 The buffer's markers chain does not preserve markers from gc; | 1641 The buffer's markers chain does not preserve markers from gc; |
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 } |
1648 break; | 1658 break; |
1649 | 1659 |
1678 mark_buffer (obj); | 1688 mark_buffer (obj); |
1679 break; | 1689 break; |
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: |
1694 abort (); | 1696 abort (); |
1695 } | 1697 } |