summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2007-05-16 18:28:39 (GMT)
committerjenglish <jenglish@flightlab.com>2007-05-16 18:28:39 (GMT)
commitf7de0447c4c22debc09815073b1e4c5f64fec0de (patch)
tree31af22c48516d1032511ef4837e2e4fd1ed15cca /generic
parentb5850105f3e012c6c89834c0b5b60392c0747081 (diff)
downloadtcl-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.c15
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 */