Mercurial > hg > xemacs-beta

comparison src/data.c @ 420:41dbb7a9d5f2 r21-2-18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-18
author cvs
date Mon, 13 Aug 2007 11:24:09 +0200
parents e804706bfb8c
children 11054d720c21
comparison
equal deleted inserted replaced
419:66615b78f1a5 420:41dbb7a9d5f2
1621 wl->next_weak = Vall_weak_lists; 1621 wl->next_weak = Vall_weak_lists;
1622 Vall_weak_lists = result; 1622 Vall_weak_lists = result;
1623 return result; 1623 return result;
1624 } 1624 }
1625 1625
1626 static const struct lrecord_description weak_list_description[] = {
1627 { XD_LISP_OBJECT, offsetof(struct weak_list, list), 1 },
1628 { XD_LISP_OBJECT, offsetof(struct weak_list, next_weak), 1 },
1629 { XD_END }
1630 };
1631
1626 DEFINE_LRECORD_IMPLEMENTATION ("weak-list", weak_list, 1632 DEFINE_LRECORD_IMPLEMENTATION ("weak-list", weak_list,
1627 mark_weak_list, print_weak_list, 1633 mark_weak_list, print_weak_list,
1628 0, weak_list_equal, weak_list_hash, 1634 0, weak_list_equal, weak_list_hash,
1635 weak_list_description,
1629 struct weak_list); 1636 struct weak_list);
1630 /* 1637 /*
1631 -- we do not mark the list elements (either the elements themselves 1638 -- we do not mark the list elements (either the elements themselves
1632 or the cons cells that hold them) in the normal marking phase. 1639 or the cons cells that hold them) in the normal marking phase.
1633 -- at the end of marking, we go through all weak lists that are 1640 -- at the end of marking, we go through all weak lists that are