For symbols, use address as hash code.

* src/fns.c (sxhash): For symbols, use address as hash code.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2d5de9be5d8a1ed650db80ed3b42eb53febccd59..57c6aa31da5b031d27becc713b3d23d94a842b50 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-16  Daniel Colascione  <dancol@dancol.org>
+
+       * fns.c (sxhash): For symbols, use address as hash code.
+
 2014-09-16  Dmitry Antipov  <dmantipov@yandex.ru>
 
        If USE_LOCAL_ALLOCATORS, allocate even more Lisp objects on stack.

diff --git a/src/fns.c b/src/fns.c
index afe293b6dd3c6aebe840490286d71345ee0600fa..3461de5db08f6733f28294ee9f49fec8aeff6425 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -4476,13 +4476,10 @@ sxhash (Lisp_Object obj, int depth)
       break;
 
     case Lisp_Misc:
+    case Lisp_Symbol:
       hash = XHASH (obj);
       break;
 
-    case Lisp_Symbol:
-      obj = SYMBOL_NAME (obj);
-      /* Fall through.  */
-
     case Lisp_String:
       hash = sxhash_string (SSDATA (obj), SBYTES (obj));
       break;