diff options
| author | hobbs <hobbs> | 2003-05-13 22:55:50 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-05-13 22:55:50 (GMT) |
| commit | 332fa168c0765b816430af658ef8d160761130cb (patch) | |
| tree | 8d22c1efdfd41fdd9796064510edd9d8ea5872f9 /generic/tclIOUtil.c | |
| parent | 19640d138b057a8250b163bb5dcd1f7131bd682a (diff) | |
| download | tcl-332fa168c0765b816430af658ef8d160761130cb.zip tcl-332fa168c0765b816430af658ef8d160761130cb.tar.gz tcl-332fa168c0765b816430af658ef8d160761130cb.tar.bz2 | |
* generic/tclIOUtil.c: add decl for FsThrExitProc to suppress
warnings.
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 840c431..42f73bd 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.77.2.3 2003/05/11 01:23:13 hobbs Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.77.2.4 2003/05/13 22:55:50 hobbs Exp $ */ #include "tclInt.h" @@ -100,7 +100,7 @@ static Tcl_Obj* TclFSNormalizeAbsolutePath static FilesystemRecord* FsGetIterator(void); static void FsReleaseIterator(void); - +static void FsThrExitProc(ClientData cd); /* * These form part of the native filesystem support. They are needed |