guile/guile-core/libguile ChangeLog hash.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/03/08 10:14:33

Modified files:
        guile-core/libguile: ChangeLog hash.c 

Log message:
        * hash.c (scm_string_hash): Don't downcase characters.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1301&r2=1.1302
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/hash.c.diff?r1=1.38&r2=1.39

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1301 
guile/guile-core/libguile/ChangeLog:1.1302
--- guile/guile-core/libguile/ChangeLog:1.1301  Wed Mar  7 18:49:34 2001
+++ guile/guile-core/libguile/ChangeLog Thu Mar  8 10:14:32 2001
@@ -1,6 +1,10 @@
+2001-03-08  Mikael Djurfeldt  <address@hidden>
+
+       * hash.c (scm_string_hash): Don't downcase characters.
+
 2001-03-07  Mikael Djurfeldt  <address@hidden>
 
-       * symmbols.c (scm_symbols_prehistory): Changed symbol hash table
+       * symbols.c (scm_symbols_prehistory): Changed symbol hash table
        size from 277 --> 1009.
 
        * symbols.c, symbols.h (scm_sys_symbols): New function GUILE_DEBUG
Index: guile/guile-core/libguile/hash.c
diff -u guile/guile-core/libguile/hash.c:1.38 
guile/guile-core/libguile/hash.c:1.39
--- guile/guile-core/libguile/hash.c:1.38       Tue Dec 12 05:57:26 2000
+++ guile/guile-core/libguile/hash.c    Thu Mar  8 10:14:33 2001
@@ -1,4 +1,4 @@
-/*     Copyright (C) 1995,1996,1997, 2000 Free Software Foundation, Inc.
+/*     Copyright (C) 1995,1996,1997, 2000, 2001 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -69,7 +69,7 @@
       scm_sizet i = 5;
       unsigned long h = 264;
       while (i--)
-       h = (h << 8) + ((unsigned) (scm_downcase (str[h % len])));
+       h = (h << 8) + (unsigned) str[h % len];
       return h;
     }
   else
@@ -77,7 +77,7 @@
       scm_sizet i = len;
       unsigned long h = 0;
       while (i)
-       h = (h << 8) + ((unsigned) (scm_downcase (str[--i])));
+       h = (h << 8) + (unsigned) str[--i];
       return h;
     }
 }