diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclStubLib.c | 4 | ||||
| -rw-r--r-- | generic/tclTest.c | 7 |
3 files changed, 11 insertions, 5 deletions
@@ -1,3 +1,8 @@ +2010-03-06 Jan Nijtmans <nijtmans@users.sf.net> + + * generic/tclStubLib.c remove presence of tclTomMathStubsPtr here + * generic/tclTest.c test that tommath stubs are present in stub library + 2010-03-05 Donal K. Fellows <dkf@users.sf.net> * generic/tclIORTrans.c (ForwardProc): [Bug 2964425]: When cleaning 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 */ |