summaryrefslogtreecommitdiffstats
path: root/generic
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 /generic
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.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c4
1 files changed, 2 insertions, 2 deletions
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]);