Tcl Source Code

View Ticket
Login
Ticket UUID: 6bca38d59b1f9c11272beb130b37e0fadcfbe1ab
Title: TclOO segmentation fault cleaning up objects that that have mixed themselves into themselves.
Type: Bug Version: core-8-5-branch
Submitter: pooryorick Created on: 2017-11-29 11:53:26
Subsystem: 35. TclOO Package Assigned To: nobody
Priority: 5 Medium Severity: Minor
Status: Closed Last Modified: 2017-11-29 12:06:07
Resolution: Fixed Closed By: pooryorick
    Closed on: 2017-11-29 12:06:07
Description: (text/x-fossil-wiki)
With a tclsh built with --enable-symbols=all or (mem), the following snippet
triggers a segmentation fault in ReleaseClassContents():

<code><verbatim>
oo::class create obj

oo::copy obj obj1 obj1
oo::objdefine obj1 {
	mixin obj1 obj
}
oo::copy obj1 obj2
oo::objdefine obj2 {
	mixin obj2 obj1
}
rename obj2 {}
rename obj1 {}
</verbatim></code>
User Comments: pooryorick added on 2017-11-29 12:06:07: (text/x-fossil-wiki)
Fixed in [313a7c1b8a91].