summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2011-07-07 18:57:46 (GMT)
committermig <mig>2011-07-07 18:57:46 (GMT)
commit43690f65e0d3fb04c9e14155f308570808649ee5 (patch)
tree808e7c5254818954a6c72db583ab8731fcec1375 /generic
parentf3126d6258f2f5d12a84332b79d1f183778e0fc0 (diff)
downloadtcl-43690f65e0d3fb04c9e14155f308570808649ee5.zip
tcl-43690f65e0d3fb04c9e14155f308570808649ee5.tar.gz
tcl-43690f65e0d3fb04c9e14155f308570808649ee5.tar.bz2
* generic/tclBasic.c: add missing INT2PTR
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 6791cbf..c46510c 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -4139,7 +4139,7 @@ TclNREvalObjv(
*/
if (iPtr->evalFlags & TCL_EVAL_REDIRECT) {
- TclNRAddCallback(interp, NRCommand, NULL, INT2PTR(1), objc, objv);
+ TclNRAddCallback(interp, NRCommand, NULL, INT2PTR(1), INT2PTR(objc), objv);
iPtr->evalFlags &= ~TCL_EVAL_REDIRECT;
} else {
TclNRAddCallback(interp, NRCommand, NULL, NULL, INT2PTR(objc), objv);