diff options
author | nijtmans <nijtmans@noemail.net> | 2008-11-14 00:22:38 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2008-11-14 00:22:38 (GMT) |
commit | 2c65582c5107bb91424de41ea9161feaa75d2f3a (patch) | |
tree | 4a1ebcbeafbfabd4f034af76e1a1e6d6397fa3e6 /generic/tclIOUtil.c | |
parent | 91c8ba844853997363dd06a02c291898cb578c45 (diff) | |
download | tcl-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.c | 16 |
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. */ |