Merge 8.6

tcltk · Oct 1, 2023 · 45e6a10 · 45e6a10
2 parents 1f9a56d + 6c67bd0
commit 45e6a10
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/generic/tclOO.c b/generic/tclOO.c
@@ -457,6 +457,7 @@ InitClassSystemRoots(
     fPtr->objectCls = &fakeCls;
     /* referenced in TclOOAllocClass to increment the refCount. */
     fakeCls.thisPtr = &fakeObject;
+    fakeObject.refCount = 0; /* Do not increment an uninitialized value. */
 
     fPtr->objectCls = TclOOAllocClass(interp,
 	    AllocObject(interp, "object", (Namespace *)fPtr->ooNs, NULL));