diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-22 18:37:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-22 18:37:59 (GMT) |
| commit | 16696e0c338e2265c9af2f03fafce32751dfd53e (patch) | |
| tree | 19c705e0fcda06a363266cae2b6cb808ca5f3c43 /generic | |
| parent | d106cec620a5509cbc12f1add9fb12d7d115deae (diff) | |
| parent | b9cc38ad86bd6c56365768c53ee9cead6016cbb7 (diff) | |
| download | tcl-16696e0c338e2265c9af2f03fafce32751dfd53e.zip tcl-16696e0c338e2265c9af2f03fafce32751dfd53e.tar.gz tcl-16696e0c338e2265c9af2f03fafce32751dfd53e.tar.bz2 | |
Only use Tcl_TomMath_InitStubs() when TCL_WITH_EXTERNAL_TOMMATH is not defined
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclTestObj.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index d370e07..b0279b5 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -103,10 +103,12 @@ TclObjTest_Init( */ Tcl_Obj **varPtr; +#ifndef TCL_WITH_EXTERNAL_TOMMATH if (Tcl_TomMath_InitStubs(interp, "8.7-") == NULL) { return TCL_ERROR; } - varPtr = (Tcl_Obj **)Tcl_Alloc(NUMBER_OF_OBJECT_VARS *sizeof(varPtr[0])); +#endif + varPtr = (Tcl_Obj **)Tcl_Alloc(NUMBER_OF_OBJECT_VARS * sizeof(varPtr[0])); if (!varPtr) { return TCL_ERROR; } |