Mercurial > hg > xemacs-beta

comparison src/elhash.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
450 450
451 static const struct memory_description htentry_union_description_1[] = { 451 static const struct memory_description htentry_union_description_1[] = {
452 /* Note: XD_INDIRECT in this table refers to the surrounding table, 452 /* Note: XD_INDIRECT in this table refers to the surrounding table,
453 and so this will work. */ 453 and so this will work. */
454 { XD_BLOCK_PTR, HASH_TABLE_NON_WEAK, XD_INDIRECT (0, 1), 454 { XD_BLOCK_PTR, HASH_TABLE_NON_WEAK, XD_INDIRECT (0, 1),
455 &htentry_description }, 455 { &htentry_description } },
456 { XD_BLOCK_PTR, 0, XD_INDIRECT (0, 1), &htentry_description, 456 { XD_BLOCK_PTR, 0, XD_INDIRECT (0, 1), { &htentry_description },
457 XD_FLAG_UNION_DEFAULT_ENTRY | XD_FLAG_NO_KKCC }, 457 XD_FLAG_UNION_DEFAULT_ENTRY | XD_FLAG_NO_KKCC },
458 { XD_END } 458 { XD_END }
459 }; 459 };
460 460
461 static const struct sized_memory_description htentry_union_description = { 461 static const struct sized_memory_description htentry_union_description = {
465 465
466 const struct memory_description hash_table_description[] = { 466 const struct memory_description hash_table_description[] = {
467 { XD_ELEMCOUNT, offsetof (Lisp_Hash_Table, size) }, 467 { XD_ELEMCOUNT, offsetof (Lisp_Hash_Table, size) },
468 { XD_INT, offsetof (Lisp_Hash_Table, weakness) }, 468 { XD_INT, offsetof (Lisp_Hash_Table, weakness) },
469 { XD_UNION, offsetof (Lisp_Hash_Table, hentries), XD_INDIRECT (1, 0), 469 { XD_UNION, offsetof (Lisp_Hash_Table, hentries), XD_INDIRECT (1, 0),
470 &htentry_union_description }, 470 { &htentry_union_description } },
471 { XD_LO_LINK, offsetof (Lisp_Hash_Table, next_weak) }, 471 { XD_LO_LINK, offsetof (Lisp_Hash_Table, next_weak) },
472 { XD_END } 472 { XD_END }
473 }; 473 };
474 474
475 DEFINE_LRECORD_IMPLEMENTATION ("hash-table", hash_table, 475 DEFINE_LRECORD_IMPLEMENTATION ("hash-table", hash_table,