diff options
author | dgp <dgp@users.sourceforge.net> | 2020-03-09 15:45:52 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2020-03-09 15:45:52 (GMT) |
commit | 8816b1a873ea5b502c1fcefc3b56875e281f0458 (patch) | |
tree | 6a5b73ea983c2195085a9dcec069012cf50d6a0e /unix/tclUnixInit.c | |
parent | 1baa16d30dfb27a4df336268d8acae3af327054a (diff) | |
download | tcl-8816b1a873ea5b502c1fcefc3b56875e281f0458.zip tcl-8816b1a873ea5b502c1fcefc3b56875e281f0458.tar.gz tcl-8816b1a873ea5b502c1fcefc3b56875e281f0458.tar.bz2 |
TCL_UNUSED in the unix sources.
Diffstat (limited to 'unix/tclUnixInit.c')
-rw-r--r-- | unix/tclUnixInit.c | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 0e61e85..a86fcde 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -1053,26 +1053,27 @@ TclpFindVariable( */ #ifdef HAVE_COREFOUNDATION +#ifdef TCL_FRAMEWORK static int MacOSXGetLibraryPath( Tcl_Interp *interp, int maxPathLen, char *tclLibPath) { - int foundInFramework = TCL_ERROR; - -#ifdef TCL_FRAMEWORK - foundInFramework = Tcl_MacOSXOpenVersionedBundleResources(interp, + return Tcl_MacOSXOpenVersionedBundleResources(interp, "com.tcltk.tcllibrary", TCL_FRAMEWORK_VERSION, 0, maxPathLen, tclLibPath); +} #else - (void)interp; - (void)maxPathLen; - (void)tclLibPath; -#endif - - return foundInFramework; +static int +MacOSXGetLibraryPath( + TCL_UNUSED(Tcl_Interp *), + TCL_UNUSED(int), + TCL_UNUSED(char *)) +{ + return TCL_ERROR; } +#endif #endif /* HAVE_COREFOUNDATION */ /* |