From e0f4b9aef0aed9b336779d768d41cf8fba52f137 Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Sat, 6 Mar 2010 06:29:24 +0000
Subject: remove presence of tclTomMathStubsPtr in tclStubLib.c test that
 tommath stubs are present in stub library

---
 ChangeLog            | 5 +++++
 generic/tclStubLib.c | 4 +---
 generic/tclTest.c    | 7 +++++--
 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 */
-- 
cgit v0.12