Attachment "exec.patch" to
ticket [507181ffff]
added by
dgp
2002-01-23 04:21:17.
Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.45
diff -u -u -r1.45 tclExecute.c
--- generic/tclExecute.c 2001/12/11 19:45:52 1.45
+++ generic/tclExecute.c 2002/01/22 21:17:48
@@ -1270,9 +1270,8 @@
*/
for (i = 0; i < objc; i++) {
- valuePtr = stackPtr[stackTop];
+ valuePtr = POP_OBJECT();
TclDecrRefCount(valuePtr);
- stackTop--;
}
/*
@@ -1787,7 +1786,8 @@
valuePtr = Tcl_NewListObj(opnd, &(stackPtr[stackTop - (opnd-1)]));
for (i = 0; i < opnd; i++) {
- TclDecrRefCount(stackPtr[stackTop--]);
+ value2Ptr = POP_OBJECT();
+ TclDecrRefCount(value2Ptr);
}
PUSH_OBJECT(valuePtr);
