From fde19a4caabf0561efd9d42b592f86e188f4a83f Mon Sep 17 00:00:00 2001 From: jenglish Date: Wed, 16 May 2007 18:35:20 +0000 Subject: 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. --- ChangeLog | 8 ++++++++ generic/tkStubLib.c | 18 ++---------------- 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 + + * 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 * 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, -- cgit v0.12