From b347ef4f083443e608b46f308894acc2567ce630 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 4 Nov 2011 20:43:57 -0400 Subject: * hash.c (ll_hash): Added a break in the case that handles pointer hashing of identity-equal objects. Without this, if the pointer size is not 4 or 8, we fall through to the next case. --- ChangeLog | 6 ++++++ hash.c | 1 + 2 files changed, 7 insertions(+) diff --git a/ChangeLog b/ChangeLog index dfc522aa..6526a9e8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2011-11-04 Kaz Kylheku + + * hash.c (ll_hash): Added a break in the case that handles + pointer hashing of identity-equal objects. Without this, if the + pointer size is not 4 or 8, we fall through to the next case. + 2011-11-04 Kaz Kylheku * txr.c (help): Change year from 2009 to 2011. diff --git a/hash.c b/hash.c index 7dbabacd..8ee7a072 100644 --- a/hash.c +++ b/hash.c @@ -108,6 +108,7 @@ static cnum ll_hash(val obj) case 8: default: return (((cnum) obj) & NUM_MAX) >> 5; } + break; case FUN: return ((cnum) obj->f.f.interp_fun + ll_hash(obj->f.env)) & NUM_MAX; case VEC: -- cgit v1.2.3