summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixInit.c
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-09-02 19:27:42 (GMT)
committerhobbs <hobbs>2002-09-02 19:27:42 (GMT)
commit2433b43fc73edca24a0c96681212806145a22c27 (patch)
tree16cd2218c868883393ee1ce93fa227002ba8ab4e /unix/tclUnixInit.c
parent9a16699a47b39be8a044c60ab7ba6123d5f9f51a (diff)
downloadtcl-2433b43fc73edca24a0c96681212806145a22c27.zip
tcl-2433b43fc73edca24a0c96681212806145a22c27.tar.gz
tcl-2433b43fc73edca24a0c96681212806145a22c27.tar.bz2
* unix/tclUnixInit.c (Tcl_MacOSXGetLibraryPath): made this static
function only appear when HAVE_CFBUNDLE is defined.
Diffstat (limited to 'unix/tclUnixInit.c')
-rw-r--r--unix/tclUnixInit.c8
1 files changed, 5 insertions, 3 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c
index a3978cc..092330d 100644
--- a/unix/tclUnixInit.c
+++ b/unix/tclUnixInit.c
@@ -7,7 +7,7 @@
* Copyright (c) 1999 by Scriptics Corporation.
* All rights reserved.
*
- * RCS: @(#) $Id: tclUnixInit.c,v 1.32 2002/08/31 06:09:46 das Exp $
+ * RCS: @(#) $Id: tclUnixInit.c,v 1.33 2002/09/02 19:27:42 hobbs Exp $
*/
#if defined(HAVE_CFBUNDLE)
@@ -140,7 +140,9 @@ static CONST LocaleTable localeTable[] = {
{NULL, NULL}
};
+#ifdef HAVE_CFBUNDLE
static int Tcl_MacOSXGetLibraryPath(Tcl_Interp *interp, int maxPathLen, char *tclLibPath);
+#endif /* HAVE_CFBUNDLE */
/*
@@ -966,6 +968,7 @@ TclpCheckStackSpace()
return 1;
}
+#ifdef HAVE_CFBUNDLE
/*
*----------------------------------------------------------------------
*
@@ -986,12 +989,11 @@ TclpCheckStackSpace()
static int Tcl_MacOSXGetLibraryPath(Tcl_Interp *interp, int maxPathLen, char *tclLibPath)
{
int foundInFramework = TCL_ERROR;
-#ifdef HAVE_CFBUNDLE
if (strcmp(defaultLibraryDir, "@TCL_IN_FRAMEWORK@") == 0) {
foundInFramework = Tcl_MacOSXOpenBundleResources(interp,
"com.tcltk.tcllibrary", 0, maxPathLen, tclLibPath);
}
-#endif /* HAVE_CFBUNDLE */
return foundInFramework;
}
+#endif /* HAVE_CFBUNDLE */