diff options
| -rw-r--r-- | generic/tcl.decls | 1 | ||||
| -rw-r--r-- | generic/tclIOUtil.c | 1 | ||||
| -rw-r--r-- | generic/tclMain.c | 6 |
3 files changed, 1 insertions, 7 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 7c9935a..ca4feee 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -469,7 +469,6 @@ declare 128 { declare 129 { int Tcl_Eval(Tcl_Interp *interp, const char *script) } -# This is obsolete, use Tcl_FSEvalFile declare 130 { int Tcl_EvalFile(Tcl_Interp *interp, const char *fileName) } diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 2c389c6..4f2288e 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -412,7 +412,6 @@ Tcl_GetCwd( return Tcl_DStringValue(cwdPtr); } -/* Obsolete */ int Tcl_EvalFile( Tcl_Interp *interp, /* Interpreter in which to process file. */ diff --git a/generic/tclMain.c b/generic/tclMain.c index f89bd5e..9380fb2 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -266,18 +266,14 @@ Tcl_SourceRCFile( c = Tcl_OpenFileChannel(NULL, fullName, "r", 0); if (c != NULL) { - Tcl_Obj *fullNameObj = Tcl_NewStringObj(fullName, -1); - Tcl_Close(NULL, c); - Tcl_IncrRefCount(fullNameObj); - if (Tcl_FSEvalFileEx(interp, fullNameObj, NULL) != TCL_OK) { + if (Tcl_EvalFile(interp, fullName) != TCL_OK) { chan = Tcl_GetStdChannel(TCL_STDERR); if (chan) { Tcl_WriteObj(chan, Tcl_GetObjResult(interp)); Tcl_WriteChars(chan, "\n", 1); } } - Tcl_DecrRefCount(fullNameObj); } } Tcl_DStringFree(&temp); |