summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclHash.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclHash.c b/generic/tclHash.c
index e7bd472..45726d9 100644
--- a/generic/tclHash.c
+++ b/generic/tclHash.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclHash.c,v 1.11 2002/02/26 02:16:09 hobbs Exp $
+ * RCS: @(#) $Id: tclHash.c,v 1.12 2002/11/12 02:23:18 hobbs Exp $
*/
#include "tclInt.h"
@@ -1019,11 +1019,11 @@ HashStringKey(tablePtr, keyPtr)
result = 0;
while (1) {
c = *string;
- string++;
if (c == 0) {
break;
}
result += (result<<3) + c;
+ string++;
}
return result;
}