diff options
author | mig <mig@noemail.net> | 2011-06-01 22:09:28 (GMT) |
---|---|---|
committer | mig <mig@noemail.net> | 2011-06-01 22:09:28 (GMT) |
commit | 7452ea913348b772afbcbc893b906ad4a9da95ea (patch) | |
tree | b330d2ef54690ebcf6bf5cad1ded1d8d243743f7 /generic/tclBasic.c | |
parent | b79782eeeac1b4ffc02ce356ff49928e730475b7 (diff) | |
download | tcl-7452ea913348b772afbcbc893b906ad4a9da95ea.zip tcl-7452ea913348b772afbcbc893b906ad4a9da95ea.tar.gz tcl-7452ea913348b772afbcbc893b906ad4a9da95ea.tar.bz2 |
missing INT2PTR in last commit
FossilOrigin-Name: c7ebc39d549328683172b13fa01549af3075b2f6
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index bce9684..f4e026f 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4143,7 +4143,7 @@ TclNREvalObjv( TclNRAddCallback(interp, NRCommand, NULL, INT2PTR(1), objc, objv); iPtr->evalFlags &= ~TCL_EVAL_REDIRECT; } else { - TclNRAddCallback(interp, NRCommand, NULL, NULL, objc, objv); + TclNRAddCallback(interp, NRCommand, NULL, NULL, INT2PTR(objc), objv); } cmdPtrPtr = (Command **) &(TOP_CB(interp)->data[0]); |