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