diff options
| author | stanton <stanton> | 1999-02-01 21:29:48 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-01 21:29:48 (GMT) |
| commit | 698e7bfaf6014325ebbdf40634e3d9d9c0c28aca (patch) | |
| tree | 7091931bbbe9926769ef521c09cb774b668ee6d9 /generic/tclInterp.c | |
| parent | 3e2cd02657427f0858bc981092e85a6c1feae1a6 (diff) | |
| download | tcl-698e7bfaf6014325ebbdf40634e3d9d9c0c28aca.zip tcl-698e7bfaf6014325ebbdf40634e3d9d9c0c28aca.tar.gz tcl-698e7bfaf6014325ebbdf40634e3d9d9c0c28aca.tar.bz2 | |
* generic/tclBasic.c:
* generic/tclCmdAH.c:
* generic/tclCmdIL.c:
* generic/tclCmdMZ.c:
* generic/tclExecute.c:
* generic/tclHistory.c:
* generic/tclIO.c:
* generic/tclIOUtil.c:
* generic/tclInterp.c:
* generic/tclMain.c:
* generic/tclNamesp.c:
* generic/tclParse.c:
* generic/tclProc.c:
* generic/tclTest.c:
* generic/tclTimer.c:
* generic/tcl.h: Made eval interfaces compatible with 8.0 by
renaming Tcl_EvalObj to Tcl_EvalObjEx, renaming Tcl_Eval2 to
Tcl_EvalEx and restoring Tcl_EvalObj and Tcl_GlobalEvalObj
interfaces so they match Tcl 8.0.
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 5e663a8..0ea38ff 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.1.2.7 1998/12/12 01:36:59 lfb Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.1.2.8 1999/02/01 21:29:53 stanton Exp $ */ #include <stdio.h> @@ -2015,11 +2015,11 @@ SlaveEval(interp, slaveInterp, objc, objv) Tcl_AllowExceptions(slaveInterp); if (objc == 1) { - result = Tcl_EvalObj(slaveInterp, objv[0], 0); + result = Tcl_EvalObjEx(slaveInterp, objv[0], 0); } else { objPtr = Tcl_ConcatObj(objc, objv); Tcl_IncrRefCount(objPtr); - result = Tcl_EvalObj(slaveInterp, objPtr, 0); + result = Tcl_EvalObjEx(slaveInterp, objPtr, 0); Tcl_DecrRefCount(objPtr); } TclTransferResult(slaveInterp, result, interp); |