summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authornijtmans <nijtmans@noemail.net>2008-11-14 00:22:38 (GMT)
committernijtmans <nijtmans@noemail.net>2008-11-14 00:22:38 (GMT)
commit2c65582c5107bb91424de41ea9161feaa75d2f3a (patch)
tree4a1ebcbeafbfabd4f034af76e1a1e6d6397fa3e6 /generic/tclIOUtil.c
parent91c8ba844853997363dd06a02c291898cb578c45 (diff)
downloadtcl-2c65582c5107bb91424de41ea9161feaa75d2f3a.zip
tcl-2c65582c5107bb91424de41ea9161feaa75d2f3a.tar.gz
tcl-2c65582c5107bb91424de41ea9161feaa75d2f3a.tar.bz2
Fixed [Bug 2269431]: load of shared objects
leaves emporary files on windows FossilOrigin-Name: c651428b00d6b44ab27aa64a0963860a043f41a7
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c16
1 files changed, 5 insertions, 11 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 745ba6b..396acd7 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.151 2008/02/27 03:35:49 jenglish Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.151.2.1 2008/11/14 00:22:39 nijtmans Exp $
*/
#include "tclInt.h"
@@ -436,12 +436,6 @@ TCL_DECLARE_MUTEX(cwdMutex)
Tcl_ThreadDataKey tclFsDataKey;
/*
- * Declare fallback support function and information for Tcl_FSLoadFile
- */
-
-static Tcl_FSUnloadFileProc FSUnloadTempFile;
-
-/*
* One of these structures is used each time we successfully load a file from
* a file system by way of making a temporary copy of the file on the native
* filesystem. We need to store both the actual unloadProc/clientData
@@ -3381,7 +3375,7 @@ TclLoadFile(
copyToPtr = NULL;
(*handlePtr) = newLoadHandle;
(*clientDataPtr) = (ClientData) tvdlPtr;
- (*unloadProcPtr) = &FSUnloadTempFile;
+ (*unloadProcPtr) = TclFSUnloadTempFile;
Tcl_ResetResult(interp);
return retVal;
@@ -3445,7 +3439,7 @@ TclpLoadFile(
/*
*---------------------------------------------------------------------------
*
- * FSUnloadTempFile --
+ * TclFSUnloadTempFile --
*
* This function is called when we loaded a library of code via an
* intermediate temporary file. This function ensures the library is
@@ -3461,8 +3455,8 @@ TclpLoadFile(
*---------------------------------------------------------------------------
*/
-static void
-FSUnloadTempFile(
+void
+TclFSUnloadTempFile(
Tcl_LoadHandle loadHandle) /* loadHandle returned by a previous call to
* Tcl_FSLoadFile(). The loadHandle is a token
* that represents the loaded file. */