From 7207d9a57abd342956e228d594c8e4a70a03030a Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 6 Apr 2011 13:10:05 +0000 Subject: Make symbols "main" and "Tcl_AppInit" MODULE_SCOPE: there is absolutely no reason for exporting them. --- ChangeLog | 5 +++++ unix/tclAppInit.c | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 197deaf..3ac06bd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2011-04-06 Jan Nijtmans + + * unix/tclAppInit.c: Make symbols "main" and "Tcl_AppInit" + MODULE_SCOPE: there is absolutely no reason for exporting them. + 2011-04-06 Donal K. Fellows * generic/tclFCmd.c, macosx/tclMacOSXFCmd.c, unix/tclUnixChan.c, diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index 11ab0d1..0d2a6c4 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.c @@ -12,6 +12,8 @@ * this file, and for a DISCLAIMER OF ALL WARRANTIES. */ +#undef BUILD_tcl +#undef STATIC_BUILD #include "tcl.h" #ifdef TCL_TEST @@ -33,7 +35,8 @@ extern int Tclxttest_Init(Tcl_Interp *interp); #ifndef TCL_LOCAL_APPINIT #define TCL_LOCAL_APPINIT Tcl_AppInit #endif -extern int TCL_LOCAL_APPINIT(Tcl_Interp *interp); +MODULE_SCOPE int TCL_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