Tcl Source Code

With a tclsh built with --enable-symbols=all or (mem), the following snippet triggers a segmentation fault in ReleaseClassContents():

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 {}