summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclProc.c16
2 files changed, 11 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index ef4418b..bb53f1f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,7 +3,9 @@
* generic/tclInt.h: remove comments refering to VAR_SCALAR, as
that flag bit does not exist any longer.
* generic/tclProc.c (InitCompiledLocals): removed optimisation for
- non-resolved case, as the function is never called in that case.
+ non-resolved case, as the function is never called in that
+ case. Renamed the function to InitResolvedLocals to calrify the
+ point.
2007-08-07 Miguel Sofer <msofer@users.sf.net>
diff --git a/generic/tclProc.c b/generic/tclProc.c
index eb3f7e8..0148449 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclProc.c,v 1.128 2007/08/08 18:34:40 msofer Exp $
+ * RCS: @(#) $Id: tclProc.c,v 1.129 2007/08/08 18:39:20 msofer Exp $
*/
#include "tclInt.h"
@@ -26,7 +26,7 @@ static void DupLambdaInternalRep(Tcl_Obj *objPtr,
static void FreeLambdaInternalRep(Tcl_Obj *objPtr);
static int InitArgsAndLocals(Tcl_Interp *interp,
Tcl_Obj *procNameObj, int skip);
-static void InitCompiledLocals(Tcl_Interp *interp,
+static void InitResolvedLocals(Tcl_Interp *interp,
ByteCode *codePtr, Var *defPtr,
Namespace *nsPtr);
static void InitLocalCache(Proc *procPtr);
@@ -1138,13 +1138,13 @@ TclInitCompiledLocals(
framePtr->localCachePtr->refCount++;
}
- InitCompiledLocals(interp, codePtr, varPtr, nsPtr);
+ InitResolvedLocals(interp, codePtr, varPtr, nsPtr);
}
/*
*----------------------------------------------------------------------
*
- * InitCompiledLocals --
+ * InitResolvedLocals --
*
* This routine is invoked in order to initialize the compiled locals
* table for a new call frame.
@@ -1160,7 +1160,7 @@ TclInitCompiledLocals(
*/
static void
-InitCompiledLocals(
+InitResolvedLocals(
Tcl_Interp *interp, /* Current interpreter. */
ByteCode *codePtr,
Var *varPtr,
@@ -1191,7 +1191,7 @@ InitCompiledLocals(
* we make the compiled local a link to the real variable.
*/
- doInitCompiledLocals:
+ doInitResolvedLocals:
for (; localPtr != NULL; varPtr++, localPtr = localPtr->nextPtr) {
varPtr->flags = 0;
varPtr->value.objPtr = NULL;
@@ -1262,7 +1262,7 @@ InitCompiledLocals(
}
localPtr = firstLocalPtr;
codePtr->flags &= ~TCL_BYTECODE_RESOLVE_VARS;
- goto doInitCompiledLocals;
+ goto doInitResolvedLocals;
}
void
@@ -1468,7 +1468,7 @@ InitArgsAndLocals(
if (!framePtr->nsPtr->compiledVarResProc && !((Interp *)interp)->resolverPtr) {
memset(varPtr, 0, (localCt - numArgs)*sizeof(Var));
} else {
- InitCompiledLocals(interp, codePtr, varPtr, framePtr->nsPtr);
+ InitResolvedLocals(interp, codePtr, varPtr, framePtr->nsPtr);
}
}