diff options
| author | jenglish <jenglish@flightlab.com> | 2007-05-16 18:28:39 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2007-05-16 18:28:39 (GMT) |
| commit | f7de0447c4c22debc09815073b1e4c5f64fec0de (patch) | |
| tree | 31af22c48516d1032511ef4837e2e4fd1ed15cca /generic | |
| parent | b5850105f3e012c6c89834c0b5b60392c0747081 (diff) | |
| download | tcl-f7de0447c4c22debc09815073b1e4c5f64fec0de.zip tcl-f7de0447c4c22debc09815073b1e4c5f64fec0de.tar.gz tcl-f7de0447c4c22debc09815073b1e4c5f64fec0de.tar.bz2 | |
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]
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStubLib.c | 15 |
1 files changed, 4 insertions, 11 deletions
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 */ |