summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2011-03-04 11:57:38 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2011-03-04 11:57:38 (GMT)
commit91f3302e5805d69ba4f6cffed08c27bebdf595fa (patch)
treeeed823ea914a3da2c67ed1f1dcb6b1978fb4894e /generic
parent3812d1d48551882d0350ac37965e2b7f456cc381 (diff)
downloadtcl-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')
-rw-r--r--generic/tclBasic.c17
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,