summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2001-09-17 12:29:04 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2001-09-17 12:29:04 (GMT)
commit856bbed23b5e86158505683ed42197b071ca506d (patch)
treee427b64aeec3d82ede43eccb53f5dc69eeb2452e
parentad606c30ca2747857ab8c567cabc2b2da92b4f6a (diff)
downloadtcl-856bbed23b5e86158505683ed42197b071ca506d.zip
tcl-856bbed23b5e86158505683ed42197b071ca506d.tar.gz
tcl-856bbed23b5e86158505683ed42197b071ca506d.tar.bz2
corrected small bug in [Patch 456668] - the varFramePtr was not restored in one possible exit.
-rw-r--r--ChangeLog7
-rw-r--r--generic/tclExecute.c3
2 files changed, 8 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 612b511..c6da4ea 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,9 @@
-2001-09-13 Miguel Sofer <msofer@users.sourceforge.net>
+2001-09-17 Miguel Sofer <msofer@users.sourceforge.net>
+
+ * generic/tclExecute.c: corrected small bug in [Patch 456668] -
+ the varFramePtr was not restored in one possible exit.
+
+2001-09-17 Miguel Sofer <msofer@users.sourceforge.net>
* doc/tclvars.n:
* generic/tclCompile.c:
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 7ce214b..e1d143b 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.30 2001/09/17 11:51:58 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.31 2001/09/17 12:29:05 msofer Exp $
*/
#include "tclInt.h"
@@ -5420,6 +5420,7 @@ Tcl_GetCommandFromObj(interp, objPtr)
if (cmdPtr == NULL) {
result = tclCmdNameType.setFromAnyProc(interp, objPtr);
if (result != TCL_OK) {
+ iPtr->varFramePtr = savedFramePtr;
return (Tcl_Command) NULL;
}
resPtr = (ResolvedCmdName *) objPtr->internalRep.otherValuePtr;