From f7de0447c4c22debc09815073b1e4c5f64fec0de Mon Sep 17 00:00:00 2001 From: jenglish Date: Wed, 16 May 2007 18:28:39 +0000 Subject: Change Tcl_InitStubs(), tclStubsPtr, and the auxilliary stubs table pointers back to public visibility. These symbols need to be exported so that stub-enabled extensions may be statically linked into an extended tclsh or Big Wish with a dynamically-linked libtcl. [Bug#1716117] --- ChangeLog | 10 ++++++++++ generic/tclStubLib.c | 15 ++++----------- 2 files changed, 14 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 94826fd..2cd67fc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2007-05-12 Joe English + + * generic/tclStubLib.c: Change Tcl_InitStubs(), tclStubsPtr, + and the auxilliary stubs table pointers back to public visibility. + + These symbols need to be exported so that stub-enabled extensions + may be statically linked into an extended tclsh or Big Wish with + a dynamically-linked libtcl. [Bug#1716117] + + 2007-05-15 Don Porter * win/configure: autoconf-2.59 (FC6 fork) diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index 5e2d2ba..5389cfc 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.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: tclStubLib.c,v 1.14 2005/12/31 02:58:00 kennykb Exp $ + * RCS: @(#) $Id: tclStubLib.c,v 1.15 2007/05/16 18:28:40 jenglish Exp $ */ /* @@ -28,16 +28,9 @@ #include "tclInt.h" /* - * Ensure that Tcl_InitStubs is built as an exported symbol. The other stub - * symbols should be built as non-exported symbols. + * Tcl_InitStubs and stub table pointers are built as exported symbols. */ -MODULE_SCOPE TclStubs *tclStubsPtr; -MODULE_SCOPE TclPlatStubs *tclPlatStubsPtr; -MODULE_SCOPE TclIntStubs *tclIntStubsPtr; -MODULE_SCOPE TclIntPlatStubs *tclIntPlatStubsPtr; -MODULE_SCOPE TclTomMathStubs *tclTomMathStubsPtr; - TclStubs *tclStubsPtr = NULL; TclPlatStubs *tclPlatStubsPtr = NULL; TclIntStubs *tclIntStubsPtr = NULL; @@ -82,7 +75,7 @@ HasStubSupport( #undef Tcl_InitStubs #endif -MODULE_SCOPE CONST char * +CONST char * Tcl_InitStubs( Tcl_Interp *interp, CONST char *version, @@ -142,7 +135,7 @@ Tcl_InitStubs( #undef TclTomMathInitializeStubs #endif -MODULE_SCOPE CONST char* +CONST char* TclTomMathInitializeStubs( Tcl_Interp* interp, /* Tcl interpreter */ CONST char* version, /* Tcl version needed */ -- cgit v0.12