diff options
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index bed520a..7640eb7 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1330,7 +1330,6 @@ InitLocalCache( Var *varPtr; LocalCache *localCachePtr; CompiledLocal *localPtr; - int new; /* * Cache the names and initial values of local variables; store the @@ -1349,9 +1348,8 @@ InitLocalCache( if (TclIsVarTemporary(localPtr)) { *namePtr = NULL; } else { - *namePtr = TclCreateLiteral(iPtr, localPtr->name, - localPtr->nameLength, /* hash */ (unsigned int) -1, - &new, /* nsPtr */ NULL, 0, NULL); + *namePtr = TclCreateLiteral(iPtr, + localPtr->name, localPtr->nameLength); Tcl_IncrRefCount(*namePtr); } |