Index: generic/nsfFunPtrHashTable.c =================================================================== diff -u -N -ra2021fcacd45bfbbe0d2dc11061e2a374c49726f -r2cec82c2c6fbf33bda1775ddcd041d78e91287f2 --- generic/nsfFunPtrHashTable.c (.../nsfFunPtrHashTable.c) (revision a2021fcacd45bfbbe0d2dc11061e2a374c49726f) +++ generic/nsfFunPtrHashTable.c (.../nsfFunPtrHashTable.c) (revision 2cec82c2c6fbf33bda1775ddcd041d78e91287f2) @@ -55,7 +55,6 @@ static unsigned int FunPtrKey(Tcl_HashTable *tablePtr, VOID *keyPtr); static int CompareFunPtrKeys(VOID *keyPtr, Tcl_HashEntry *hPtr); static Tcl_HashEntry *AllocFunPtrEntry(Tcl_HashTable *tablePtr, VOID *keyPtr); -static void FreeFunPtrEntry(Tcl_HashEntry *hPtr); typedef struct funPtrEntry_t { @@ -68,7 +67,7 @@ FunPtrKey, /* hashKeyProc*/ CompareFunPtrKeys, /* compareKeysProc */ AllocFunPtrEntry, /* allocEntryProc */ - FreeFunPtrEntry /* freeEntryProc */ + NULL /* freeEntryProc */ }; /* @@ -171,31 +170,7 @@ return hPtr; } -/*---------------------------------------------------------------------- - * - * FreeFunPtrEntry -- - * - * Frees space for a Tcl_HashEntry containing the Nsf_AnyFun * key. - * - * Results: - * None. - * - * Side effects: - * Frees memory for the hash entry and its key. - * - *---------------------------------------------------------------------- - */ -static void -FreeFunPtrEntry(Tcl_HashEntry *hPtr) -{ - fprintf(stderr, "FreeFunPtrEntry is called!\n"); - Nsf_AnyFun *keyVal = (Nsf_AnyFun *) hPtr->key.oneWordValue; - //ckfree(keyVal); - ckfree(hPtr); -} - - /* *---------------------------------------------------------------------- * Nsf_InitFunPtrHashTable --