From 89b34071dd6663bc5b302f4a4088433ea23d061e Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Tue, 16 Sep 2014 06:07:57 -0700 Subject: [PATCH] For symbols, use address as hash code. * src/fns.c (sxhash): For symbols, use address as hash code. --- src/ChangeLog | 4 ++++ src/fns.c | 5 +---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 2d5de9be5d8..57c6aa31da5 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2014-09-16 Daniel Colascione + + * fns.c (sxhash): For symbols, use address as hash code. + 2014-09-16 Dmitry Antipov If USE_LOCAL_ALLOCATORS, allocate even more Lisp objects on stack. diff --git a/src/fns.c b/src/fns.c index afe293b6dd3..3461de5db08 100644 --- 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; -- 2.39.5