Mercurial > hg > xemacs-beta
diff src/elhash.h @ 4072:aa28d959af41
[xemacs-hg @ 2007-07-22 22:03:29 by aidan]
Add support for non-ISO2022 8 bit fixed-width coding-systems
| author | aidan |
|---|---|
| date | Sun, 22 Jul 2007 22:04:14 +0000 |
| parents | 141c2920ea48 |
| children | e0db3c197671 |
line wrap: on
line diff
--- a/src/elhash.h Sun Jul 22 21:53:08 2007 +0000 +++ b/src/elhash.h Sun Jul 22 22:04:14 2007 +0000 @@ -33,7 +33,19 @@ #define CHECK_HASH_TABLE(x) CHECK_RECORD (x, hash_table) #define CONCHECK_HASH_TABLE(x) CONCHECK_RECORD (x, hash_table) +typedef struct htentry +{ #ifdef NEW_GC + struct lrecord_header lheader; +#endif /* NEW_GC */ + Lisp_Object key; + Lisp_Object value; +} htentry; + +#define HTENTRY_CLEAR_P(htentry) ((*(EMACS_UINT*)(&((htentry)->key))) == 0) + +#ifdef NEW_GC + typedef struct htentry Lisp_Hash_Table_Entry; DECLARE_LRECORD (hash_table_entry, Lisp_Hash_Table_Entry); @@ -112,4 +124,6 @@ void inchash_eq (Lisp_Object key, Lisp_Object table, EMACS_INT offset); +htentry *find_htentry (Lisp_Object key, const Lisp_Hash_Table *ht); + #endif /* INCLUDED_elhash_h_ */