diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-01 19:44:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-01 19:44:08 (GMT) |
| commit | 2f7d589ee1ecb7d5440ba1a10e60498383f0de09 (patch) | |
| tree | 10ac40a74b2be25987ea6de60710cb0b9e0f07fe /generic | |
| parent | f62f05d3e4c4400263dff5825decd7da8f74bc66 (diff) | |
| parent | 45e6a10fa7084aec99d8f713dea4072a288a0164 (diff) | |
| download | tcl-2f7d589ee1ecb7d5440ba1a10e60498383f0de09.zip tcl-2f7d589ee1ecb7d5440ba1a10e60498383f0de09.tar.gz tcl-2f7d589ee1ecb7d5440ba1a10e60498383f0de09.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic')
| -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 d9cabe6..c425a42 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)); |