# HG changeset patch # User ben # Date 1106735105 0 # Node ID b87570db038ff9b07f26bb4908dc9a76e9643cc1 # Parent de9952d2ed187becd9b5363dfb442fef8bdbebee [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. diff -r de9952d2ed18 -r b87570db038f src/ChangeLog --- 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 + + * lisp.h: + Clean up and generalize creation of string hash tables. + Use Hashcode rather than unsigned long. + 2005-01-26 Ben Wing * emacs-marshals.c: diff -r de9952d2ed18 -r b87570db038f src/lisp.h --- 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); /************************************************************************/