diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2011-03-04 11:57:38 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2011-03-04 11:57:38 (GMT) |
| commit | 91f3302e5805d69ba4f6cffed08c27bebdf595fa (patch) | |
| tree | eed823ea914a3da2c67ed1f1dcb6b1978fb4894e /generic/tclBasic.c | |
| parent | 3812d1d48551882d0350ac37965e2b7f456cc381 (diff) | |
| download | tcl-91f3302e5805d69ba4f6cffed08c27bebdf595fa.zip tcl-91f3302e5805d69ba4f6cffed08c27bebdf595fa.tar.gz tcl-91f3302e5805d69ba4f6cffed08c27bebdf595fa.tar.bz2 | |
* generic/tclBasic.c (TclNREvalObjv): missing a variable declaration in commented out non-optimised code, left for ref in checkin [b97b771b6d]
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 30039a4..9187306 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4263,14 +4263,17 @@ TclNREvalObjv( */ #if 0 - objProc = cmdPtr->nreProc; - if (!objProc) { - objProc = cmdPtr->objProc; + { + Tcl_ObjCmdProc *objProc = cmdPtr->nreProc; + + if (!objProc) { + objProc = cmdPtr->objProc; + } + + TclNRAddCallback(interp, NRRunObjProc, objProc, cmdPtr->objClientData, + INT2PTR(objc), (ClientData) objv); } - objClientData = cmdPtr->objClientData; - - TclNRAddCallback(interp, NRRunObjProc, objProc, objClientData, - INT2PTR(objc), (ClientData) objv); + return TCL_OK; #else if (cmdPtr->nreProc) { TclNRAddCallback(interp, NRRunObjProc, cmdPtr->nreProc, |