diff options
| author | nijtmans <nijtmans> | 2008-11-13 22:34:33 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-11-13 22:34:33 (GMT) |
| commit | 1dc34345abbeeb394c746abc809889b36af93584 (patch) | |
| tree | 5e0965c72984533c7c66feaa10fdbbda08db3006 /generic/tclIOUtil.c | |
| parent | e1dd76f8cbed9c460c1787cd88d0a058a6d46c7c (diff) | |
| download | tcl-1dc34345abbeeb394c746abc809889b36af93584.zip tcl-1dc34345abbeeb394c746abc809889b36af93584.tar.gz tcl-1dc34345abbeeb394c746abc809889b36af93584.tar.bz2 | |
rename static function FSUnloadTempFile to
TclFSUnloadTempFile, needed in tclLoad.c
Fixed [Bug 2269431]: load of shared
objects leaves temporary files on windows
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 077eb96..607397e 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.158 2008/10/05 22:25:35 nijtmans Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.159 2008/11/13 22:34:33 nijtmans Exp $ */ #include "tclInt.h" @@ -192,12 +192,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 @@ -3187,7 +3181,7 @@ TclLoadFile( copyToPtr = NULL; *handlePtr = newLoadHandle; *clientDataPtr = tvdlPtr; - *unloadProcPtr = &FSUnloadTempFile; + *unloadProcPtr = TclFSUnloadTempFile; Tcl_ResetResult(interp); return retVal; @@ -3252,7 +3246,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 @@ -3268,8 +3262,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. */ |