Index: generic/nsf.c =================================================================== diff -u -r0922b668a76bea5759a546d821c13e6db8ef273e -r64ee56cdbf4f6d6e2d8b28b56a5a4634a54c5c5a --- generic/nsf.c (.../nsf.c) (revision 0922b668a76bea5759a546d821c13e6db8ef273e) +++ generic/nsf.c (.../nsf.c) (revision 64ee56cdbf4f6d6e2d8b28b56a5a4634a54c5c5a) @@ -117,7 +117,7 @@ ClientData oldDeleteData; Tcl_CmdDeleteProc *oldDeleteProc; NsfParamDefs *paramDefs; - long *colonLocalVarCache; + Nsf_Tcl_Size_t *colonLocalVarCache; unsigned int checkAlwaysFlag; Tcl_Namespace *execNsPtr; Tcl_Obj *returnsObj; @@ -5061,7 +5061,7 @@ * Allocate colonLocalVarCache in the proper size (keep space for a * terminating element). */ - ctxPtr->colonLocalVarCache = NEW_ARRAY(long, nrColonVars+1); + ctxPtr->colonLocalVarCache = NEW_ARRAY(Nsf_Tcl_Size_t, nrColonVars+1); varNameObjPtr = &varFramePtr->localCachePtr->varName0; /* @@ -5090,9 +5090,9 @@ /* fprintf(stderr, ".. insert %s (%d) on pos %d; check j %d entries \n", localName, i, j, j); */ for (k = 0; k < j; k++) { - int cmp; - long idx; - const char *cachedName; + int cmp; + Nsf_Tcl_Size_t idx; + const char *cachedName; idx = ctxPtr->colonLocalVarCache[k]; cachedName = Tcl_GetStringFromObj(localNames[idx], &len); @@ -5114,7 +5114,7 @@ break; } } - ctxPtr->colonLocalVarCache[k] = (long)i; + ctxPtr->colonLocalVarCache[k] = i; j++; if (j == nrColonVars) { @@ -5188,7 +5188,7 @@ result = CompiledColonLocalsLookupBuildCache(varFramePtr, varName, nameLength, localNames, ctxPtr); } else { - long i, j; + Nsf_Tcl_Size_t i, j; /* * We have a colonLocalVarCache. @@ -13128,7 +13128,7 @@ } if (ctxPtr->colonLocalVarCache != NULL) { /*fprintf(stderr, "free colonLocalVarCache %p\n", (void*)ctxPtr->colonLocalVarCache);*/ - FREE(long*, ctxPtr->colonLocalVarCache); + FREE(Nsf_Tcl_Size_t*, ctxPtr->colonLocalVarCache); } if (ctxPtr->returnsObj != NULL) { DECR_REF_COUNT2("returnsObj", ctxPtr->returnsObj);