summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-03-06 06:29:24 (GMT)
committernijtmans <nijtmans>2010-03-06 06:29:24 (GMT)
commite0f4b9aef0aed9b336779d768d41cf8fba52f137 (patch)
tree7e13c1fef5504409271dd09f6be709763c1f7e21
parent50f9d6b3744f31f806d0f0a86cf96cb2608c86e0 (diff)
downloadtcl-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
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclStubLib.c4
-rw-r--r--generic/tclTest.c7
3 files changed, 11 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index 164b86d..304c261 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 */