Mercurial > hg > xemacs-beta
changeset 2516:b87570db038f
[xemacs-hg @ 2005-01-26 10:25:03 by ben]
Rest of hash-table cleanup (Part 2 of 2)
lisp.h: Clean up and generalize creation of string hash tables.
Use Hashcode rather than unsigned long.
| author | ben |
|---|---|
| date | Wed, 26 Jan 2005 10:25:05 +0000 |
| parents | de9952d2ed18 |
| children | 9b0afdac688e |
| files | src/ChangeLog src/lisp.h |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Wed Jan 26 10:22:29 2005 +0000 +++ b/src/ChangeLog Wed Jan 26 10:25:05 2005 +0000 @@ -1,3 +1,9 @@ +2005-01-26 Ben Wing <ben@xemacs.org> + + * lisp.h: + Clean up and generalize creation of string hash tables. + Use Hashcode rather than unsigned long. + 2005-01-26 Ben Wing <ben@xemacs.org> * emacs-marshals.c:
--- a/src/lisp.h Wed Jan 26 10:22:29 2005 +0000 +++ b/src/lisp.h Wed Jan 26 10:25:05 2005 +0000 @@ -3127,10 +3127,9 @@ #define HASH9(a,b,c,d,e,f,g,h,i) (GOOD_HASH * HASH8 (a,b,c,d,e,f,g,h) + (i)) #define LISP_HASH(obj) ((unsigned long) LISP_TO_VOID (obj)) -unsigned long string_hash (const char *xv); -unsigned long memory_hash (const void *xv, Bytecount size); -unsigned long internal_hash (Lisp_Object obj, int depth); -unsigned long internal_array_hash (Lisp_Object *arr, int size, int depth); +Hashcode memory_hash (const void *xv, Bytecount size); +Hashcode internal_hash (Lisp_Object obj, int depth); +Hashcode internal_array_hash (Lisp_Object *arr, int size, int depth); /************************************************************************/