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/tclCmdMZ.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/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index b158c09..47402c6 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdMZ.c,v 1.1.2.8 1998/11/18 22:34:13 stanton Exp $ + * RCS: @(#) $Id: tclCmdMZ.c,v 1.1.2.9 1999/02/01 21:29:50 stanton Exp $ */ #include "tclInt.h" @@ -1491,7 +1491,7 @@ Tcl_SwitchObjCmd(dummy, interp, objc, objv) break; } } - result = Tcl_EvalObj(interp, objv[j], 0); + result = Tcl_EvalObjEx(interp, objv[j], 0); if (result == TCL_ERROR) { char msg[100 + TCL_INTEGER_SPACE]; @@ -1552,7 +1552,7 @@ Tcl_TimeObjCmd(dummy, interp, objc, objv) i = count; TclpGetTime(&start); while (i-- > 0) { - result = Tcl_EvalObj(interp, objPtr, 0); + result = Tcl_EvalObjEx(interp, objPtr, 0); if (result != TCL_OK) { return result; } @@ -1911,7 +1911,7 @@ Tcl_WhileObjCmd(dummy, interp, objc, objv) if (!value) { break; } - result = Tcl_EvalObj(interp, objv[2], 0); + result = Tcl_EvalObjEx(interp, objv[2], 0); if ((result != TCL_OK) && (result != TCL_CONTINUE)) { if (result == TCL_ERROR) { char msg[32 + TCL_INTEGER_SPACE]; |