summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-07-16 21:24:38 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-07-16 21:24:38 (GMT)
commit47696f530aabf1a5ddab3d36eb8481b469d44397 (patch)
tree2212f61d925aabd55784a55ed9182b092a9bf383 /generic/tclIOUtil.c
parentb5f035d9c80dbec4986ba4e7e2ba4a1881d90d38 (diff)
downloadtcl-47696f530aabf1a5ddab3d36eb8481b469d44397.zip
tcl-47696f530aabf1a5ddab3d36eb8481b469d44397.tar.gz
tcl-47696f530aabf1a5ddab3d36eb8481b469d44397.tar.bz2
* generic/tclBinary.c: Removed unused variables.
* generic/tclCmdIL.c: * generic/tclCompile.c: * generic/tclExecute.c: * generic/tclHash.c: * generic/tclIOUtil.c: * generic/tclVar.c: * generic/tclBasic.c: Silence compiler warnings about ClientData. * generic/tclProc.c: * generic/tclScan.c: Typo in ACCEPT_NAN configuration. * generic/tclStrToD.c: Set floating point control register on MIPS systems so that the gradual underflow expected by Tcl is in effect. [Bug 2819200]
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 44df324..f77e737 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIOUtil.c,v 1.163 2009/02/10 22:50:05 nijtmans Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.164 2009/07/16 21:24:39 dgp Exp $
*/
#include "tclInt.h"
@@ -1793,11 +1793,9 @@ TclNREvalFile(
const char *encodingName) /* If non-NULL, then use this encoding for the
* file. NULL means use the system encoding. */
{
- int length;
Tcl_StatBuf statBuf;
Tcl_Obj *oldScriptFile, *objPtr;
Interp *iPtr;
- const char *string;
Tcl_Channel chan;
if (Tcl_FSGetNormalizedPath(interp, pathPtr) == NULL) {
@@ -1857,7 +1855,6 @@ TclNREvalFile(
oldScriptFile = iPtr->scriptFile;
iPtr->scriptFile = pathPtr;
Tcl_IncrRefCount(iPtr->scriptFile);
- string = Tcl_GetStringFromObj(objPtr, &length);
/*
* TIP #280: Force the evaluator to open a frame for a sourced file.