summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 */