diff options
| author | nijtmans <nijtmans> | 2010-03-06 06:29:24 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-03-06 06:29:24 (GMT) |
| commit | e0f4b9aef0aed9b336779d768d41cf8fba52f137 (patch) | |
| tree | 7e13c1fef5504409271dd09f6be709763c1f7e21 /generic | |
| parent | 50f9d6b3744f31f806d0f0a86cf96cb2608c86e0 (diff) | |
| download | tcl-e0f4b9aef0aed9b336779d768d41cf8fba52f137.zip tcl-e0f4b9aef0aed9b336779d768d41cf8fba52f137.tar.gz tcl-e0f4b9aef0aed9b336779d768d41cf8fba52f137.tar.bz2 | |
remove presence of tclTomMathStubsPtr in tclStubLib.c
test that tommath stubs are present in stub library
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStubLib.c | 4 | ||||
| -rw-r--r-- | generic/tclTest.c | 7 |
2 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index af14e2e..8603e02 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.31 2010/03/04 22:29:05 nijtmans Exp $ + * RCS: @(#) $Id: tclStubLib.c,v 1.32 2010/03/06 06:29:24 nijtmans Exp $ */ /* @@ -28,13 +28,11 @@ 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; const TclStubs *tclStubsPtr = NULL; const TclPlatStubs *tclPlatStubsPtr = NULL; const TclIntStubs *tclIntStubsPtr = NULL; const TclIntPlatStubs *tclIntPlatStubsPtr = NULL; -const TclTomMathStubs *tclTomMathStubsPtr = NULL; static const TclStubs * HasStubSupport( diff --git a/generic/tclTest.c b/generic/tclTest.c index 5b035fe..35bff84 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.147 2010/02/25 22:20:10 nijtmans Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.148 2010/03/06 06:29:24 nijtmans Exp $ */ #undef STATIC_BUILD @@ -539,7 +539,10 @@ Tcltest_Init( "-appinitprocclosestderr", "-appinitprocsetrcfile", NULL }; - if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { + if (Tcl_InitStubs(interp, "8.5", 0) == NULL) { + return TCL_ERROR; + } + if (Tcl_TomMath_InitStubs(interp, "8.5") == NULL) { return TCL_ERROR; } /* TIP #268: Full patchlevel instead of just major.minor */ |