summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-07-21 19:41:42 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-07-21 19:41:42 (GMT)
commit24289b9502c809549472c1edc7398415f51f578e (patch)
tree7cb28df35f7dde97cb330a13135ffc685667f090 /generic/tclExecute.c
parent1d5e719008a7c51b66cc13a0a30991af762353c1 (diff)
downloadtcl-24289b9502c809549472c1edc7398415f51f578e.zip
tcl-24289b9502c809549472c1edc7398415f51f578e.tar.gz
tcl-24289b9502c809549472c1edc7398415f51f578e.tar.bz2
use TclEvalObjv instead of Tcl_EvalObjv at selected spots
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 0be6655..148b3e9 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.384 2008/07/21 16:26:02 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.385 2008/07/21 19:41:42 msofer Exp $
*/
#include "tclInt.h"
@@ -2686,7 +2686,7 @@ TclExecuteByteCode(
#endif /*TCL_COMPILE_DEBUG*/
/*
- * Finally, let Tcl_EvalObjv handle the command.
+ * Finally, let TclEvalObjv handle the command.
*
* TIP #280: Record the last piece of info needed by
* 'TclGetSrcInfoForPc', and push the frame.
@@ -2697,7 +2697,7 @@ TclExecuteByteCode(
/*
* Reset the instructionCount variable, since we're about to check
- * for async stuff anyway while processing Tcl_EvalObjv
+ * for async stuff anyway while processing TclEvalObjv
*/
instructionCount = 1;
@@ -2708,7 +2708,7 @@ TclExecuteByteCode(
TEBC_CALL(iPtr) = 1;
recordPtr = TOP_RECORD(iPtr);
#endif
- result = Tcl_EvalObjv(interp, objc, objv, evalFlags);
+ result = TclEvalObjv(interp, objc, objv, evalFlags, NULL);
CACHE_STACK_INFO();
#if (USE_NR_TEBC)
evalFlags = TCL_EVAL_NOERR;