From 42e3415106fd0092b5a661973d6c5406d8d46db6 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 12 Feb 2021 08:21:46 +0000 Subject: Fix warning about unused symbol on --disable-shared build --- generic/tclZipfs.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 65c8cc7..50653ff 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -285,7 +285,9 @@ static const char *zipfs_literal_tcl_library = NULL; static inline int DescribeMounted(Tcl_Interp *interp, const char *mountPoint); static inline int ListMountPoints(Tcl_Interp *interp); +#if !defined(STATIC_BUILD) static int ZipfsAppHookFindTclInit(const char *archive); +#endif static int ZipFSPathInFilesystemProc(Tcl_Obj *pathPtr, void **clientDataPtr); static Tcl_Obj * ZipFSFilesystemPathTypeProc(Tcl_Obj *pathPtr); @@ -4755,6 +4757,7 @@ TclZipfs_Init( #endif /* HAVE_ZLIB */ } +#if !defined(STATIC_BUILD) static int ZipfsAppHookFindTclInit( const char *archive) @@ -4791,6 +4794,7 @@ ZipfsAppHookFindTclInit( return TCL_ERROR; } +#endif static void ZipfsExitHandler( -- cgit v0.12