Mercurial > hg > xemacs-beta
diff src/elhash.c @ 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 | d674024a8674 |
| children | 229bd619740a |
line wrap: on
line diff
--- a/src/elhash.c Sun Jul 22 21:53:08 2007 +0000 +++ b/src/elhash.c Sun Jul 22 22:04:14 2007 +0000 @@ -94,15 +94,6 @@ static Lisp_Object Qweak, Qkey_weak, Qvalue_weak, Qkey_or_value_weak; static Lisp_Object Qnon_weak, Q_type; -typedef struct htentry -{ -#ifdef NEW_GC - struct lrecord_header lheader; -#endif /* NEW_GC */ - Lisp_Object key; - Lisp_Object value; -} htentry; - struct Lisp_Hash_Table { struct LCRECORD_HEADER header; @@ -120,7 +111,6 @@ hash tables. Don't mark through this. */ }; -#define HTENTRY_CLEAR_P(htentry) ((*(EMACS_UINT*)(&((htentry)->key))) == 0) #define CLEAR_HTENTRY(htentry) \ ((*(EMACS_UINT*)(&((htentry)->key))) = 0, \ (*(EMACS_UINT*)(&((htentry)->value))) = 0) @@ -1126,7 +1116,7 @@ resize_hash_table (ht, new_size); } -static htentry * +htentry * find_htentry (Lisp_Object key, const Lisp_Hash_Table *ht) { hash_table_test_function_t test_function = ht->test_function;