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 | e9be0b4fcb7df7c6ed88d11f52a4083f8f593564 (patch) | |
| tree | 2631c2cf84e3d6ded784253b434a71fe0cf30769 | |
| parent | a4077127774087ac6cf704ed10303b1c1044ecec (diff) | |
| parent | 132b4661e93294b89c86e61d8e937fdaf5ac091f (diff) | |
| download | tcl-e9be0b4fcb7df7c6ed88d11f52a4083f8f593564.zip tcl-e9be0b4fcb7df7c6ed88d11f52a4083f8f593564.tar.gz tcl-e9be0b4fcb7df7c6ed88d11f52a4083f8f593564.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; } |