summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordas <das>2008-04-02 21:29:05 (GMT)
committerdas <das>2008-04-02 21:29:05 (GMT)
commit039faefdd7231c1ffac3a2f89d3fe4d9ca05049c (patch)
tree760f325bb0ba7262213d27bb9a851281dd71a294 /generic
parent7d7777702e9483612dda3a16c4ef7ee0f1259093 (diff)
downloadtcl-039faefdd7231c1ffac3a2f89d3fe4d9ca05049c.zip
tcl-039faefdd7231c1ffac3a2f89d3fe4d9ca05049c.tar.gz
tcl-039faefdd7231c1ffac3a2f89d3fe4d9ca05049c.tar.bz2
* generic/tclStubLib.c: make symbols in libtclstub.a MODULE_SCOPE to
* tools/genStubs.tcl: avoid exporting them from libraries that link with -ltclstub; constify tcl*StubsPtr and stub table hook pointers. [Bug 1819422]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclStubLib.c24
1 files changed, 13 insertions, 11 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c
index 0ba42d5..a724a09 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.23 2008/04/02 03:37:32 dgp Exp $
+ * RCS: @(#) $Id: tclStubLib.c,v 1.24 2008/04/02 21:29:05 das Exp $
*/
/*
@@ -24,15 +24,17 @@
#include "tclInt.h"
-/*
- * Tcl_InitStubs and stub table pointers are built as exported symbols.
- */
+MODULE_SCOPE const TclStubs *tclStubsPtr;
+MODULE_SCOPE const TclPlatStubs *tclPlatStubsPtr;
+MODULE_SCOPE const TclIntStubs *tclIntStubsPtr;
+MODULE_SCOPE const TclIntPlatStubs *tclIntPlatStubsPtr;
+MODULE_SCOPE const TclTomMathStubs* tclTomMathStubsPtr;
-TclStubs *tclStubsPtr = NULL;
-TclPlatStubs *tclPlatStubsPtr = NULL;
-TclIntStubs *tclIntStubsPtr = NULL;
-TclIntPlatStubs *tclIntPlatStubsPtr = NULL;
-TclTomMathStubs* tclTomMathStubsPtr = NULL;
+const TclStubs *tclStubsPtr = NULL;
+const TclPlatStubs *tclPlatStubsPtr = NULL;
+const TclIntStubs *tclIntStubsPtr = NULL;
+const TclIntPlatStubs *tclIntPlatStubsPtr = NULL;
+const TclTomMathStubs* tclTomMathStubsPtr = NULL;
static TclStubs *
HasStubSupport(
@@ -77,7 +79,7 @@ static int isDigit(const int c)
*----------------------------------------------------------------------
*/
-CONST char *
+MODULE_SCOPE CONST char *
Tcl_InitStubs(
Tcl_Interp *interp,
CONST char *version,
@@ -159,7 +161,7 @@ Tcl_InitStubs(
*----------------------------------------------------------------------
*/
-CONST char*
+MODULE_SCOPE CONST char*
TclTomMathInitializeStubs(
Tcl_Interp* interp, /* Tcl interpreter */
CONST char* version, /* Tcl version needed */