summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormig <mig>2011-06-01 22:05:54 (GMT)
committermig <mig>2011-06-01 22:05:54 (GMT)
commit63b8a6c10fc5f8568a7c9c87c170a564292b5002 (patch)
tree51f9d33f3ffcce76d44fc1762c6429c6fc342666
parent42759906725e29de1f3a76cfef2c2d21f34ecc95 (diff)
downloadtcl-63b8a6c10fc5f8568a7c9c87c170a564292b5002.zip
tcl-63b8a6c10fc5f8568a7c9c87c170a564292b5002.tar.gz
tcl-63b8a6c10fc5f8568a7c9c87c170a564292b5002.tar.bz2
* generic/tclBasic.c: using the two free data elements in
NRCommand to store objc and objv - useful for debugging.
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclBasic.c4
2 files changed, 7 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 1cea3be..8291a08 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-01 Miguel Sofer <msofer@users.sf.net>
+
+ * generic/tclBasic.c: using the two free data elements in
+ NRCommand to store objc and objv - useful for debugging.
+
2011-06-01 Jan Nijtmans <nijtmans@users.sf.net>
* generic/tclUtil.c: fix for [Bug 3309871]: Valgrind finds:
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index d80731e..bce9684 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -4140,10 +4140,10 @@ TclNREvalObjv(
*/
if (iPtr->evalFlags & TCL_EVAL_REDIRECT) {
- TclNRAddCallback(interp, NRCommand, NULL, INT2PTR(1), NULL, NULL);
+ TclNRAddCallback(interp, NRCommand, NULL, INT2PTR(1), objc, objv);
iPtr->evalFlags &= ~TCL_EVAL_REDIRECT;
} else {
- TclNRAddCallback(interp, NRCommand, NULL, NULL, NULL, NULL);
+ TclNRAddCallback(interp, NRCommand, NULL, NULL, objc, objv);
}
cmdPtrPtr = (Command **) &(TOP_CB(interp)->data[0]);