diff options
author | msofer <msofer@noemail.net> | 2011-03-04 11:57:38 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2011-03-04 11:57:38 (GMT) |
commit | eb3b4a6cdb647988640e035df1e80e1262a620ef (patch) | |
tree | eed823ea914a3da2c67ed1f1dcb6b1978fb4894e /generic/tclBasic.c | |
parent | 92767c3e08ebe907310b96476aa73b4489d9a8b9 (diff) | |
download | tcl-eb3b4a6cdb647988640e035df1e80e1262a620ef.zip tcl-eb3b4a6cdb647988640e035df1e80e1262a620ef.tar.gz tcl-eb3b4a6cdb647988640e035df1e80e1262a620ef.tar.bz2 |
* generic/tclBasic.c (TclNREvalObjv): missing a variable declaration in commented out non-optimised code, left for ref in checkin [b97b771b6d]
FossilOrigin-Name: b1628c0c007163bc893fcaf3f2cf8455f5177cc5
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, |