diff options
| author | mig <mig> | 2011-06-01 22:09:28 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-06-01 22:09:28 (GMT) |
| commit | 0bd52c5044d5dc3e8e67ce0af9e97358e6f5107e (patch) | |
| tree | b330d2ef54690ebcf6bf5cad1ded1d8d243743f7 /generic/tclBasic.c | |
| parent | 63b8a6c10fc5f8568a7c9c87c170a564292b5002 (diff) | |
| download | tcl-0bd52c5044d5dc3e8e67ce0af9e97358e6f5107e.zip tcl-0bd52c5044d5dc3e8e67ce0af9e97358e6f5107e.tar.gz tcl-0bd52c5044d5dc3e8e67ce0af9e97358e6f5107e.tar.bz2 | |
missing INT2PTR in last commit
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]); |