diff options
Diffstat (limited to 'generic/tclStubLib.c')
| -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 */ |