diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-22 17:41:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-22 17:41:34 (GMT) |
| commit | 1f51f9e619ce207bf8d4508809c3d3eb6c8c98c2 (patch) | |
| tree | 1a2964cf7f88fe71fdccd835f68a995e1825a408 | |
| parent | 132b4661e93294b89c86e61d8e937fdaf5ac091f (diff) | |
| download | tcl-1f51f9e619ce207bf8d4508809c3d3eb6c8c98c2.zip tcl-1f51f9e619ce207bf8d4508809c3d3eb6c8c98c2.tar.gz tcl-1f51f9e619ce207bf8d4508809c3d3eb6c8c98c2.tar.bz2 | |
Only use Tcl_TomMath_InitStubs() when TCL_WITH_EXTERNAL_TOMMATH is not defined
| -rw-r--r-- | generic/tclTestObj.c | 2 |
1 files changed, 2 insertions, 0 deletions
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; |