diff options
| author | jenglish <jenglish@flightlab.com> | 2007-05-16 18:35:20 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2007-05-16 18:35:20 (GMT) |
| commit | fde19a4caabf0561efd9d42b592f86e188f4a83f (patch) | |
| tree | bcbd522de62cc6de0d372e978de9b8688b7646bd | |
| parent | 2175fd4d04e6c0088b9adfac510d6b7603686997 (diff) | |
| download | tk-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-- | ChangeLog | 8 | ||||
| -rw-r--r-- | generic/tkStubLib.c | 18 |
2 files changed, 10 insertions, 16 deletions
@@ -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, |