mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 07:40:30 +02:00
Code Activity

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

Browse source
This commit is contained in:
Mikael Djurfeldt 2001-03-08 18:14:33 +00:00
parent 3ffd876ae8
commit 9636b49cd2
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,6 +1,10 @@
2001-03-08 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* hash.c (scm_string_hash): Don't downcase characters.
2001-03-07 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* 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

6
libguile/hash.c
View file

@ -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_string_hash (const unsigned char *str, scm_sizet len)
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_string_hash (const unsigned char *str, scm_sizet len)
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;
}
}