From 1f51f9e619ce207bf8d4508809c3d3eb6c8c98c2 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 22 Apr 2024 17:41:34 +0000
Subject: Only use Tcl_TomMath_InitStubs() when TCL_WITH_EXTERNAL_TOMMATH is
 not defined

---
 generic/tclTestObj.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c
index 4a23369..26f07d8 100644
--- a/generic/tclTestObj.c
+++ b/generic/tclTestObj.c
@@ -109,9 +109,11 @@ TclObjTest_Init(
      */
     Tcl_Obj **varPtr;
 
+#ifndef TCL_WITH_EXTERNAL_TOMMATH
     if (Tcl_TomMath_InitStubs(interp, "8.5-") == NULL) {
 	return TCL_ERROR;
     }
+#endif
     varPtr = (Tcl_Obj **)ckalloc(NUMBER_OF_OBJECT_VARS *sizeof(varPtr[0]));
     if (!varPtr) {
 	return TCL_ERROR;
-- 
cgit v0.12