diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-20 16:01:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-20 16:01:05 (GMT) |
| commit | 82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0 (patch) | |
| tree | 1be1702aae5457abf45fee50f4eb540c7b5d1383 /generic/tclMain.c | |
| parent | b7e5592df1f6b8d92935251cb1616e10b656ac07 (diff) | |
| parent | a1bc5b8a2b3fbc46b0207124137c9b2a5a8cced1 (diff) | |
| download | tcl-82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0.zip tcl-82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0.tar.gz tcl-82877a8aa3a3014d32dc21aa5309d2ae0b2a1aa0.tar.bz2 | |
merge core-8-branch. Deprecate support for "string bytelength"
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 6 |
1 files changed, 1 insertions, 5 deletions
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); |