diff options
| author | mig <mig> | 2011-06-01 22:09:28 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-06-01 22:09:28 (GMT) |
| commit | ec4576ad2add9240b3b00273bd355224e5a40d7b (patch) | |
| tree | b330d2ef54690ebcf6bf5cad1ded1d8d243743f7 | |
| parent | 274777e1ac483e9c8d8cef953a676b060bf59dd9 (diff) | |
| download | tcl-ec4576ad2add9240b3b00273bd355224e5a40d7b.zip tcl-ec4576ad2add9240b3b00273bd355224e5a40d7b.tar.gz tcl-ec4576ad2add9240b3b00273bd355224e5a40d7b.tar.bz2 | |
missing INT2PTR in last commit
| -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]); |