From 9636b49cd2a1e3008c2df2eddcd8283ad45bc44a Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 8 Mar 2001 18:14:33 +0000 Subject: [PATCH] * hash.c (scm_string_hash): Don't downcase characters. --- libguile/ChangeLog | 6 +++++- libguile/hash.c | 6 +++--- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index f15e2b63b..ea4f02905 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,6 +1,10 @@ +2001-03-08 Mikael Djurfeldt + + * hash.c (scm_string_hash): Don't downcase characters. + 2001-03-07 Mikael Djurfeldt - * 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 diff --git a/libguile/hash.c b/libguile/hash.c index ff9e45fd3..8f8dfbb7a 100644 --- a/libguile/hash.c +++ b/libguile/hash.c @@ -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; } }