From 4f7e6a5909b4916bc504be0ddecfa1e9b647bf4d Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 6 Apr 2011 13:11:06 +0000
Subject: Make symbols "main" and "Tcl_AppInit" MODULE_SCOPE: there is
 absolutely no reason for exporting them.

---
 ChangeLog        | 5 +++++
 unix/tkAppInit.c | 5 ++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index d2cd591..3e5c1a4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-06  Jan Nijtmans  <nijtmans@users.sf.net>
+
+	* unix/tkAppInit.c:  Make symbols "main" and "Tcl_AppInit"
+	MODULE_SCOPE: there is absolutely no reason for exporting them.
+
 2011-04-04  Peter Spjuth  <peter.spjuth@gmail.com>
 
 	* tests/grid.test:
diff --git a/unix/tkAppInit.c b/unix/tkAppInit.c
index e18ddc2..c2cafef 100644
--- a/unix/tkAppInit.c
+++ b/unix/tkAppInit.c
@@ -14,6 +14,8 @@
  * RCS: @(#) $Id: tkAppInit.c,v 1.12 2010/09/23 21:45:14 nijtmans Exp $
  */
 
+#undef BUILD_tk
+#undef STATIC_BUILD
 #include "tk.h"
 
 #ifdef TK_TEST
@@ -29,7 +31,8 @@ extern Tcl_PackageInitProc Tktest_Init;
 #ifndef TK_LOCAL_APPINIT
 #define TK_LOCAL_APPINIT Tcl_AppInit
 #endif
-extern int TK_LOCAL_APPINIT(Tcl_Interp *interp);
+MODULE_SCOPE int TK_LOCAL_APPINIT(Tcl_Interp *);
+MODULE_SCOPE int main(int, char **);
 
 /*
  * The following #if block allows you to change how Tcl finds the startup
-- 
cgit v0.12