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/tclIO.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/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 65c4704..9974fe1 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.1.2.5 1998/12/03 04:57:14 stanton Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.1.2.6 1999/02/01 21:29:52 stanton Exp $ */ #include "tclInt.h" @@ -6040,7 +6040,7 @@ ChannelEventScriptInvoker(clientData, mask) */ Tcl_Preserve((ClientData) interp); - result = Tcl_EvalObj(interp, esPtr->scriptPtr, TCL_EVAL_GLOBAL); + result = Tcl_EvalObjEx(interp, esPtr->scriptPtr, TCL_EVAL_GLOBAL); /* * On error, cause a background error and remove the channel handler @@ -6978,7 +6978,7 @@ CopyData(csPtr, mask) if (errObj) { Tcl_ListObjAppendElement(interp, cmdPtr, errObj); } - if (Tcl_EvalObj(interp, cmdPtr, TCL_EVAL_GLOBAL) != TCL_OK) { + if (Tcl_EvalObjEx(interp, cmdPtr, TCL_EVAL_GLOBAL) != TCL_OK) { Tcl_BackgroundError(interp); result = TCL_ERROR; } |