Mercurial > hg > xemacs-beta

diff src/opaque.c @ 2515:de9952d2ed18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-26 10:22:19 by ben] Hash table cleanups, part 1 of 2 emacs-marshals.c, hash.c, hash.h, ui-gtk.c: Clean up and generalize creation of string hash tables. ui-gtk.c, elhash.h, gccache-gtk.c, glyphs-gtk.c, lrecord.h, marker.c, objects-gtk.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c, opaque.c, rangetab.c, specifier.c, specifier.h, xgccache.c: Use Hashcode rather than unsigned long.
author ben
date Wed, 26 Jan 2005 10:22:29 +0000
parents 04bc9d2f42c7
children 6fa9919a9a0b
line wrap: on
line diff
--- a/src/opaque.c	Wed Jan 26 10:09:20 2005 +0000
+++ b/src/opaque.c	Wed Jan 26 10:22:29 2005 +0000
@@ -100,11 +100,11 @@
 
 /* This will not work correctly for opaques with subobjects! */
 
-static unsigned long
+static Hashcode
 hash_opaque (Lisp_Object obj, int UNUSED (depth))
 {
   if (XOPAQUE_SIZE (obj) == sizeof (unsigned long))
-    return *((unsigned long *) XOPAQUE_DATA (obj));
+    return *((Hashcode *) XOPAQUE_DATA (obj));
   else
     return memory_hash (XOPAQUE_DATA (obj), XOPAQUE_SIZE (obj));
 }
@@ -141,10 +141,10 @@
   return (XOPAQUE_PTR (obj1)->ptr == XOPAQUE_PTR (obj2)->ptr);
 }
 
-static unsigned long
+static Hashcode
 hash_opaque_ptr (Lisp_Object obj, int UNUSED (depth))
 {
-  return (unsigned long) XOPAQUE_PTR (obj)->ptr;
+  return (Hashcode) XOPAQUE_PTR (obj)->ptr;
 }
 
 static const struct memory_description opaque_ptr_description[] = {