diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:39:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:39:50 (GMT) |
| commit | 947369a720dc58ad94435918a85bee712448a48e (patch) | |
| tree | 130e81956048945337c1a55693832518e2897ed7 /generic/tclExecute.c | |
| parent | 94a0658bc2c711a2e464dfc5a7dc3fd0b233fa82 (diff) | |
| parent | f6bf85fb67eb15e637ecf7c7de4f661dc0557b43 (diff) | |
| download | tcl-947369a720dc58ad94435918a85bee712448a48e.zip tcl-947369a720dc58ad94435918a85bee712448a48e.tar.gz tcl-947369a720dc58ad94435918a85bee712448a48e.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 13f328c..867cdd7 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -6427,8 +6427,8 @@ TEBCresume( if (TclHasIntRep(valuePtr, &tclBooleanType)) { objResultPtr = TCONST(1); } else { - int result = (TclSetBooleanFromAny(NULL, valuePtr) == TCL_OK); - objResultPtr = TCONST(result); + int res = (TclSetBooleanFromAny(NULL, valuePtr) == TCL_OK); + objResultPtr = TCONST(res); } TRACE_WITH_OBJ(("\"%.30s\" => ", O2S(valuePtr)), objResultPtr); NEXT_INST_F(1, 0, 1); @@ -6622,7 +6622,7 @@ TEBCresume( } { ForeachInfo *infoPtr; - Tcl_Obj *listPtr, **elements, *tmpPtr; + Tcl_Obj *listPtr, **elements; ForeachVarList *varListPtr; int numLists, listLen, numVars; int listTmpDepth; |