diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-01 19:41:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-01 19:41:27 (GMT) |
| commit | 45e6a10fa7084aec99d8f713dea4072a288a0164 (patch) | |
| tree | f28dffaf838c72675dc7859cbbccca7a7ddead6d | |
| parent | 1f9a56de2f17443d6639279abb1b25b536c14cfc (diff) | |
| parent | 6c67bd02861aa2363f0e2ef8dd4639566a114351 (diff) | |
| download | tcl-45e6a10fa7084aec99d8f713dea4072a288a0164.zip tcl-45e6a10fa7084aec99d8f713dea4072a288a0164.tar.gz tcl-45e6a10fa7084aec99d8f713dea4072a288a0164.tar.bz2 | |
Merge 8.6
| -rw-r--r-- | generic/tclOO.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 9fc5942..624ea8f 100644 --- 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)); |