[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile hash.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile hash.c |
Date: |
Mon, 04 Jun 2001 15:16:43 -0700 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/06/04 15:16:43
Modified files:
guile-core/libguile: hash.c
Log message:
(scm_hasher): Use SCM_UNPACK in the case labels so that
non-pointers are being compared. Thanks to Alexander Klimov!
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/hash.c.diff?cvsroot=OldCVS&tr1=1.43&tr2=1.44&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/hash.c
diff -u guile/guile-core/libguile/hash.c:1.43
guile/guile-core/libguile/hash.c:1.44
--- guile/guile-core/libguile/hash.c:1.43 Sat May 26 13:51:20 2001
+++ guile/guile-core/libguile/hash.c Mon Jun 4 15:16:43 2001
@@ -98,17 +98,17 @@
return (unsigned)(scm_downcase(SCM_CHAR(obj))) % n;
switch (SCM_UNPACK (obj)) {
#ifndef SICP
- case SCM_EOL:
+ case SCM_UNPACK(SCM_EOL):
d = 256;
break;
#endif
- case SCM_BOOL_T:
+ case SCM_UNPACK(SCM_BOOL_T):
d = 257;
break;
- case SCM_BOOL_F:
+ case SCM_UNPACK(SCM_BOOL_F):
d = 258;
break;
- case SCM_EOF_VAL:
+ case SCM_UNPACK(SCM_EOF_VAL):
d = 259;
break;
default:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile hash.c,
Marius Vollmer <=