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 | |
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
-rw-r--r-- | ChangeLog | 10 | ||||
-rw-r--r-- | generic/tclBasic.c | 17 |
2 files changed, 18 insertions, 9 deletions
@@ -1,3 +1,9 @@ +2011-03-01 Miguel Sofer <msofer@users.sf.net> + + * generic/tclBasic.c (TclNREvalObjv): missing a variable + declaration in commented out non-optimised code, left for ref in + checkin [b97b771b6d] + 2011-03-03 Don Porter <dgp@users.sourceforge.net> * generic/tclResult.c (Tcl_AppendResultVA): Use the directive @@ -7,8 +13,8 @@ 2011-03-01 Miguel Sofer <msofer@users.sf.net> - * generic/tclCompCmdsSZ.c (TclCompileThrowCmd) - (TclCompileUnsetCmd): fix leaks + * generic/tclCompCmdsSZ.c (TclCompileThrowCmd, TclCompileUnsetCmd): + fix leaks * generic/tclBasic.c: This is [Patch 3168398], * generic/tclCompCmdsSZ.c: Joe Mistachkin's optimisation 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, |