diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-22 16:28:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-22 16:28:40 (GMT) |
| commit | d106cec620a5509cbc12f1add9fb12d7d115deae (patch) | |
| tree | 2631c2cf84e3d6ded784253b434a71fe0cf30769 | |
| parent | d090615310bc91584c7349efb40b30212daf15cf (diff) | |
| parent | af5dea2fa5e46b709e170f568e91b87eea7f1316 (diff) | |
| download | tcl-d106cec620a5509cbc12f1add9fb12d7d115deae.zip tcl-d106cec620a5509cbc12f1add9fb12d7d115deae.tar.gz tcl-d106cec620a5509cbc12f1add9fb12d7d115deae.tar.bz2 | |
Fix [6eb8d79cb8]: segfault in obj-34.1
| -rw-r--r-- | generic/tclTestObj.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index cfca015..d370e07 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -103,7 +103,10 @@ TclObjTest_Init( */ Tcl_Obj **varPtr; - varPtr = (Tcl_Obj **) Tcl_Alloc(NUMBER_OF_OBJECT_VARS *sizeof(varPtr[0])); + if (Tcl_TomMath_InitStubs(interp, "8.7-") == NULL) { + return TCL_ERROR; + } + varPtr = (Tcl_Obj **)Tcl_Alloc(NUMBER_OF_OBJECT_VARS *sizeof(varPtr[0])); if (!varPtr) { return TCL_ERROR; } |