diff options
author | nijtmans <nijtmans@noemail.net> | 2010-03-04 22:29:03 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2010-03-04 22:29:03 (GMT) |
commit | 2796be24f99719f6a4a595cd522e5a084b09009a (patch) | |
tree | 20424fb33bacac14f3240a09effbc1b2e5476576 /generic/tclStubLib.c | |
parent | 6e9a0ed7259326dc66469c54b40a8d37caec780c (diff) | |
download | tcl-2796be24f99719f6a4a595cd522e5a084b09009a.zip tcl-2796be24f99719f6a4a595cd522e5a084b09009a.tar.gz tcl-2796be24f99719f6a4a595cd522e5a084b09009a.tar.bz2 |
Split tommath stub lib source file
in separate file.
Don't use -fvisibility=hidden for cygwin
FossilOrigin-Name: c8722c8b57f1a834fb1e549481d82d45020e2632
Diffstat (limited to 'generic/tclStubLib.c')
-rw-r--r-- | generic/tclStubLib.c | 57 |
1 files changed, 6 insertions, 51 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index b2f39fa..af14e2e 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.30 2010/02/21 20:09:38 nijtmans Exp $ + * RCS: @(#) $Id: tclStubLib.c,v 1.31 2010/03/04 22:29:05 nijtmans Exp $ */ /* @@ -145,54 +145,9 @@ Tcl_InitStubs( } /* - *---------------------------------------------------------------------- - * - * TclTomMathInitStubs -- - * - * Initializes the Stubs table for Tcl's subset of libtommath - * - * Results: - * Returns a standard Tcl result. - * - * This procedure should not be called directly, but rather through - * the TclTomMath_InitStubs macro, to insure that the Stubs table - * matches the header files used in compilation. - * - *---------------------------------------------------------------------- + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: */ - -MODULE_SCOPE const char * -TclTomMathInitializeStubs( - Tcl_Interp *interp, /* Tcl interpreter */ - const char *version, /* Tcl version needed */ - int epoch, /* Stubs table epoch from the header files */ - int revision) /* Stubs table revision number from the - * header files */ -{ - int exact = 0; - const char *packageName = "tcl::tommath"; - const char *errMsg = NULL; - ClientData pkgClientData = NULL; - const char *actualVersion = - Tcl_PkgRequireEx(interp, packageName, version, exact, &pkgClientData); - const TclTomMathStubs *stubsPtr = pkgClientData; - - if (actualVersion == NULL) { - return NULL; - } - if (pkgClientData == NULL) { - errMsg = "missing stub table pointer"; - } else if ((stubsPtr->tclBN_epoch)() != epoch) { - errMsg = "epoch number mismatch"; - } else if ((stubsPtr->tclBN_revision)() != revision) { - errMsg = "requires a later revision"; - } else { - tclTomMathStubsPtr = stubsPtr; - return actualVersion; - } - Tcl_ResetResult(interp); - Tcl_AppendResult(interp, "error loading ", packageName, - " (requested version ", version, ", actual version ", - actualVersion, "): ", errMsg, NULL); - return NULL; -} |