diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2014-09-16 Daniel Colascione <dancol@dancol.org> | ||
| 2 | |||
| 3 | * fns.c (sxhash): For symbols, use address as hash code. | ||
| 4 | |||
| 1 | 2014-09-16 Dmitry Antipov <dmantipov@yandex.ru> | 5 | 2014-09-16 Dmitry Antipov <dmantipov@yandex.ru> |
| 2 | 6 | ||
| 3 | If USE_LOCAL_ALLOCATORS, allocate even more Lisp objects on stack. | 7 | If USE_LOCAL_ALLOCATORS, allocate even more Lisp objects on stack. |
| @@ -4476,13 +4476,10 @@ sxhash (Lisp_Object obj, int depth) | |||
| 4476 | break; | 4476 | break; |
| 4477 | 4477 | ||
| 4478 | case Lisp_Misc: | 4478 | case Lisp_Misc: |
| 4479 | case Lisp_Symbol: | ||
| 4479 | hash = XHASH (obj); | 4480 | hash = XHASH (obj); |
| 4480 | break; | 4481 | break; |
| 4481 | 4482 | ||
| 4482 | case Lisp_Symbol: | ||
| 4483 | obj = SYMBOL_NAME (obj); | ||
| 4484 | /* Fall through. */ | ||
| 4485 | |||
| 4486 | case Lisp_String: | 4483 | case Lisp_String: |
| 4487 | hash = sxhash_string (SSDATA (obj), SBYTES (obj)); | 4484 | hash = sxhash_string (SSDATA (obj), SBYTES (obj)); |
| 4488 | break; | 4485 | break; |