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 | 8fc02c43c0d0e8414b242af7724dcc414b0167fc (patch) | |
tree | 2631c2cf84e3d6ded784253b434a71fe0cf30769 /generic | |
parent | 06e98924b9a7d08c58701dacf24e8761c39232a7 (diff) | |
parent | c04c8e25e31366f042491c4a414e6692932918dd (diff) | |
download | tcl-8fc02c43c0d0e8414b242af7724dcc414b0167fc.zip tcl-8fc02c43c0d0e8414b242af7724dcc414b0167fc.tar.gz tcl-8fc02c43c0d0e8414b242af7724dcc414b0167fc.tar.bz2 |
Fix [6eb8d79cb8]: segfault in obj-34.1
Diffstat (limited to 'generic')
-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; } |