Commit 89b34071 authored by Daniel Colascione's avatar Daniel Colascione
Browse files

For symbols, use address as hash code.

* src/fns.c (sxhash): For symbols, use address as hash code.
parent 3e67a981
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> 2014-09-16 Dmitry Antipov <dmantipov@yandex.ru>
   
If USE_LOCAL_ALLOCATORS, allocate even more Lisp objects on stack. If USE_LOCAL_ALLOCATORS, allocate even more Lisp objects on stack.
......
...@@ -4476,13 +4476,10 @@ sxhash (Lisp_Object obj, int depth) ...@@ -4476,13 +4476,10 @@ sxhash (Lisp_Object obj, int depth)
break; break;
case Lisp_Misc: case Lisp_Misc:
case Lisp_Symbol:
hash = XHASH (obj); hash = XHASH (obj);
break; break;
case Lisp_Symbol:
obj = SYMBOL_NAME (obj);
/* Fall through. */
case Lisp_String: case Lisp_String:
hash = sxhash_string (SSDATA (obj), SBYTES (obj)); hash = sxhash_string (SSDATA (obj), SBYTES (obj));
break; break;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment