summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2007-05-16 18:35:20 (GMT)
committerjenglish <jenglish@flightlab.com>2007-05-16 18:35:20 (GMT)
commitfde19a4caabf0561efd9d42b592f86e188f4a83f (patch)
treebcbd522de62cc6de0d372e978de9b8688b7646bd
parent2175fd4d04e6c0088b9adfac510d6b7603686997 (diff)
downloadtk-fde19a4caabf0561efd9d42b592f86e188f4a83f.zip
tk-fde19a4caabf0561efd9d42b592f86e188f4a83f.tar.gz
tk-fde19a4caabf0561efd9d42b592f86e188f4a83f.tar.bz2
Change Tk_InitStubs(), tkStubsPtr, and the auxilliary stubs table pointers
back to public visibility. See [Bug 1716117] for details. Removed TCL_STORAGE_CLASS monkey business, as it had no effect.
-rw-r--r--ChangeLog8
-rw-r--r--generic/tkStubLib.c18
2 files changed, 10 insertions, 16 deletions
diff --git a/ChangeLog b/ChangeLog
index 59755f2..734a5ae 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2007-05-16 Joe English <jenglish@users.sourceforge.net>
+
+ * generic/tkStubLib.c: Change Tk_InitStubs(), tkStubsPtr,
+ and the auxilliary stubs table pointers back to public visibility.
+ See [Bug 1716117] for details.
+
+ Removed TCL_STORAGE_CLASS monkey business, as it had no effect.
+
2007-05-16 Don Porter <dgp@users.sourceforge.net>
* library/choosedir.tcl: Removed uses of obsolete {expand}
diff --git a/generic/tkStubLib.c b/generic/tkStubLib.c
index 2d2e995..43721d8 100644
--- a/generic/tkStubLib.c
+++ b/generic/tkStubLib.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkStubLib.c,v 1.13 2007/05/03 22:36:11 dkf Exp $
+ * RCS: @(#) $Id: tkStubLib.c,v 1.14 2007/05/16 18:35:20 jenglish Exp $
*/
/*
@@ -47,20 +47,6 @@
#include "tkIntPlatDecls.h"
#include "tkIntXlibDecls.h"
-/*
- * Ensure that Tk_InitStubs is built as an exported symbol. The other stub
- * symbols should be built as non-exported symbols.
- */
-
-#undef TCL_STORAGE_CLASS
-#define TCL_STORAGE_CLASS DLLEXPORT
-
-MODULE_SCOPE TkStubs *tkStubsPtr;
-MODULE_SCOPE TkPlatStubs *tkPlatStubsPtr;
-MODULE_SCOPE TkIntStubs *tkIntStubsPtr;
-MODULE_SCOPE TkIntPlatStubs *tkIntPlatStubsPtr;
-MODULE_SCOPE TkIntXlibStubs *tkIntXlibStubsPtr;
-
TkStubs *tkStubsPtr;
TkPlatStubs *tkPlatStubsPtr;
TkIntStubs *tkIntStubsPtr;
@@ -89,7 +75,7 @@ TkIntXlibStubs *tkIntXlibStubsPtr;
#undef Tk_InitStubs
#endif
-MODULE_SCOPE CONST char *
+CONST char *
Tk_InitStubs(
Tcl_Interp *interp,
CONST char *version,