Mercurial > hg > xemacs-beta

comparison src/data.c @ 2551:9f70af3ac939

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-03 16:14:02 by james] Commit Olivier Galibert's dumper updates for bignums and use them. See xemacs-patches message with ID <ps8y685c6p.fsf@diannao.ittc.ku.edu>.
author james
date Thu, 03 Feb 2005 16:14:08 +0000
parents 3d8143fc88e1
children e6854ec89f8e
comparison
equal deleted inserted replaced
2550:317f30471f4e 2551:9f70af3ac939
2587 return result; 2587 return result;
2588 } 2588 }
2589 2589
2590 static const struct memory_description weak_list_description[] = { 2590 static const struct memory_description weak_list_description[] = {
2591 { XD_LISP_OBJECT, offsetof (struct weak_list, list), 2591 { XD_LISP_OBJECT, offsetof (struct weak_list, list),
2592 0, 0, XD_FLAG_NO_KKCC }, 2592 0, { 0 }, XD_FLAG_NO_KKCC },
2593 { XD_LO_LINK, offsetof (struct weak_list, next_weak), 2593 { XD_LO_LINK, offsetof (struct weak_list, next_weak),
2594 0, 0, XD_FLAG_NO_KKCC }, 2594 0, { 0 }, XD_FLAG_NO_KKCC },
2595 { XD_END } 2595 { XD_END }
2596 }; 2596 };
2597 2597
2598 DEFINE_LRECORD_IMPLEMENTATION ("weak-list", weak_list, 2598 DEFINE_LRECORD_IMPLEMENTATION ("weak-list", weak_list,
2599 1, /*dumpable-flag*/ 2599 1, /*dumpable-flag*/
3297 3297
3298 /* Ephemerons are special cases in the KKCC mark algorithm, so nothing 3298 /* Ephemerons are special cases in the KKCC mark algorithm, so nothing
3299 is marked here. */ 3299 is marked here. */
3300 static const struct memory_description ephemeron_description[] = { 3300 static const struct memory_description ephemeron_description[] = {
3301 { XD_LISP_OBJECT, offsetof(struct ephemeron, key), 3301 { XD_LISP_OBJECT, offsetof(struct ephemeron, key),
3302 0, 0, XD_FLAG_NO_KKCC }, 3302 0, { 0 }, XD_FLAG_NO_KKCC },
3303 { XD_LISP_OBJECT, offsetof(struct ephemeron, cons_chain), 3303 { XD_LISP_OBJECT, offsetof(struct ephemeron, cons_chain),
3304 0, 0, XD_FLAG_NO_KKCC }, 3304 0, { 0 }, XD_FLAG_NO_KKCC },
3305 { XD_LISP_OBJECT, offsetof(struct ephemeron, value), 3305 { XD_LISP_OBJECT, offsetof(struct ephemeron, value),
3306 0, 0, XD_FLAG_NO_KKCC }, 3306 0, { 0 }, XD_FLAG_NO_KKCC },
3307 { XD_END } 3307 { XD_END }
3308 }; 3308 };
3309 3309
3310 DEFINE_LRECORD_IMPLEMENTATION ("ephemeron", ephemeron, 3310 DEFINE_LRECORD_IMPLEMENTATION ("ephemeron", ephemeron,
3311 0, /*dumpable-flag*/ 3311 0, /*dumpable-flag*/