summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2010-09-22 18:37:26 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2010-09-22 18:37:26 (GMT)
commit3300efb27d296f9fb622ef5760d5a958f7bd3974 (patch)
tree0e0ca5acfc925ab65ea1e01dbf0578129475e66b
parent00b6fcde15446d336d2a2778a8f541064a725c5f (diff)
downloadtcl-3300efb27d296f9fb622ef5760d5a958f7bd3974.zip
tcl-3300efb27d296f9fb622ef5760d5a958f7bd3974.tar.gz
tcl-3300efb27d296f9fb622ef5760d5a958f7bd3974.tar.bz2
* generic/tclExecute: one more DECACHE_STACK_INFO() missing; this
fixes [Bug 3072640]
-rw-r--r--ChangeLog3
-rw-r--r--generic/tclExecute.c4
2 files changed, 5 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 74fcaea..130962e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2010-09-22 Miguel Sofer <msofer@users.sf.net>
+ * generic/tclExecute: one more DECACHE_STACK_INFO() missing; this
+ fixes [Bug 3072640]
+
* tests/execute.test: added execute-10.3 for [Bug 3072640]. The
test causes a mem failure.
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index c7a8e20..a6fae67 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,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.496 2010/09/22 15:49:01 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.497 2010/09/22 18:37:27 msofer Exp $
*/
#include "tclInt.h"
@@ -2878,12 +2878,12 @@ TclExecuteByteCode(
pc--;
goto gotError;
}
- NRE_ASSERT(BP == corPtr->eePtr->bottomPtr);
/*
* Mark suspended, save our state and return
*/
+ DECACHE_STACK_INFO();
corPtr->stackLevel = NULL;
iPtr->execEnvPtr = corPtr->callerEEPtr;
OBP = *corPtr->callerBPPtr;