diff options
| author | das <das> | 2008-04-02 21:29:05 (GMT) |
|---|---|---|
| committer | das <das> | 2008-04-02 21:29:05 (GMT) |
| commit | 039faefdd7231c1ffac3a2f89d3fe4d9ca05049c (patch) | |
| tree | 760f325bb0ba7262213d27bb9a851281dd71a294 /generic | |
| parent | 7d7777702e9483612dda3a16c4ef7ee0f1259093 (diff) | |
| download | tcl-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.c | 24 |
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 */ |