comparison src/elhash.h @ 3092:141c2920ea48

[xemacs-hg @ 2005-11-25 01:41:31 by crestani] Incremental Garbage Collector
author crestani
date Fri, 25 Nov 2005 01:42:08 +0000
parents de9952d2ed18
children aa28d959af41
comparison
equal deleted inserted replaced
3091:c22d8984148c 3092:141c2920ea48
30 #define XHASH_TABLE(x) XRECORD (x, hash_table, Lisp_Hash_Table) 30 #define XHASH_TABLE(x) XRECORD (x, hash_table, Lisp_Hash_Table)
31 #define wrap_hash_table(p) wrap_record (p, hash_table) 31 #define wrap_hash_table(p) wrap_record (p, hash_table)
32 #define HASH_TABLEP(x) RECORDP (x, hash_table) 32 #define HASH_TABLEP(x) RECORDP (x, hash_table)
33 #define CHECK_HASH_TABLE(x) CHECK_RECORD (x, hash_table) 33 #define CHECK_HASH_TABLE(x) CHECK_RECORD (x, hash_table)
34 #define CONCHECK_HASH_TABLE(x) CONCHECK_RECORD (x, hash_table) 34 #define CONCHECK_HASH_TABLE(x) CONCHECK_RECORD (x, hash_table)
35
36 #ifdef NEW_GC
37 typedef struct htentry Lisp_Hash_Table_Entry;
38
39 DECLARE_LRECORD (hash_table_entry, Lisp_Hash_Table_Entry);
40
41 #define XHASH_TABLE_ENTRY(x) \
42 XRECORD (x, hash_table_entry, Lisp_Hash_Table_Entry)
43 #define wrap_hash_table_entry(p) wrap_record (p, hash_table_entry)
44 #define HASH_TABLE_ENTRYP(x) RECORDP (x, hash_table_entry)
45 #define CHECK_HASH_TABLE_ENTRY(x) CHECK_RECORD (x, hash_table_entry)
46 #define CONCHECK_HASH_TABLE_ENTRY(x) CONCHECK_RECORD (x, hash_table_entry)
47 #endif /* NEW_GC */
35 48
36 enum hash_table_weakness 49 enum hash_table_weakness
37 { 50 {
38 HASH_TABLE_NON_WEAK, 51 HASH_TABLE_NON_WEAK,
39 HASH_TABLE_KEY_WEAK, 52 HASH_TABLE_KEY_WEAK,