touched all Tcl files to ease next import.

[pf3gnuchains/pf3gnuchains3x.git] / tcl / generic / tclHash.c

diff --git a/tcl/generic/tclHash.c b/tcl/generic/tclHash.c
index b38a2b1..cc1dcf2 100644 (file)
--- a/tcl/generic/tclHash.c
+++ b/tcl/generic/tclHash.c
@@ -83,6 +83,11 @@ Tcl_InitHashTable(tablePtr, keyType)
                                         * TCL_STRING_KEYS, TCL_ONE_WORD_KEYS,
                                         * or an integer >= 2. */
 {
+#if (TCL_SMALL_HASH_TABLE != 4) 
+    panic("Tcl_InitHashTable: TCL_SMALL_HASH_TABLE is %d, not 4\n",
+           TCL_SMALL_HASH_TABLE);
+#endif
+    
     tablePtr->buckets = tablePtr->staticBuckets;
     tablePtr->staticBuckets[0] = tablePtr->staticBuckets[1] = 0;
     tablePtr->staticBuckets[2] = tablePtr->staticBuckets[3] = 0;