[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile ChangeLog hash.c
From: |
Mikael Djurfeldt |
Subject: |
guile/guile-core/libguile ChangeLog hash.c |
Date: |
Thu, 08 Mar 2001 10:14:36 -0800 |
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;
}
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile ChangeLog hash.c,
Mikael Djurfeldt <=