Regression

windows-32 / Tests-windows-32 / Windows32.Tests.Traits.TraitCompositionTest.testAliasCompositions (from Tests)

Failing for the past 1 build (Since Unstable#136 )
Took 12 sec.

Stacktrace

Process>>pvtSignal:list:
[ lastRead := false ] in ZnBufferedReadWriteStream>>writingActionDo:
BlockClosure>>ensure:
ZnBufferedReadWriteStream>>writingActionDo:
ZnBufferedReadWriteStream>>flush
ZnCharacterWriteStream(ZnEncodedWriteStream)>>flush
ZnCharacterReadWriteStream>>flush
SourceFile>>flush
ChunkWriteStream>>nextPut:
[ :file | (ChunkWriteStream on: file) nextPut: ' ' ] in [ :newSourcePointer | 
"Method chunk needs a final ! !"
SourceFiles
	changesWriteStreamDo: [ :file | (ChunkWriteStream on: file) nextPut: ' ' ].
"Update with new source pointer"
self setSourcePointer: newSourcePointer ] in CompiledMethod>>putSource:withPreamble:
[ ^ aBlock value: changesFile ] in SourceFileArray>>changesWriteStreamDo:
BlockClosure>>ensure:
SourceFileArray>>changesWriteStreamDo:
[ :newSourcePointer | 
"Method chunk needs a final ! !"
SourceFiles
	changesWriteStreamDo: [ :file | (ChunkWriteStream on: file) nextPut: ' ' ].
"Update with new source pointer"
self setSourcePointer: newSourcePointer ] in CompiledMethod>>putSource:withPreamble:
SourceFileArray>>writeSource:preamble:onSuccess:onFail:
CompiledMethod>>putSource:withPreamble:
TaSequence(TaAbstractComposition)>>copyMethod:into:replacing:
[ ^ (self needsRecompilation: aSelector)
	ifTrue: [ self compile: aSelector into: aClass ]
	ifFalse: [ self copyMethod: aSelector into: aClass replacing: replacing ] ] in TaSequence(TaAbstractComposition)>>installSelector:into:replacing:
BlockClosure>>on:do:
TaSequence(TaAbstractComposition)>>installSelector:into:replacing:
[ :e | 
modified := modified
	| (self traitComposition installSelector: e into: self replacing: false) ] in T4 classTrait>>doRebuildMethodDictionary
OrderedCollection>>do:
T4 classTrait>>doRebuildMethodDictionary
T4 classTrait(Trait)>>rebuildMethodDictionary
TraitBuilderEnhancer>>afterMethodsCompiled:
ShiftClassBuilder>>build
[ builder oldClass: oldClass.
newClass := builder build.
self validateReadOnlyInstancesOf: oldClass.
self installInEnvironment: newClass.
self installSubclassInSuperclass: newClass.
builder builderEnhancer beforeMigratingClass: builder installer: self.
self migrateClassTo: newClass.
builder builderEnhancer afterMigratingClass: builder installer: self.
builder builderEnhancer
	propagateChangesToRelatedClasses: newClass
	installer: self ] in ShiftClassInstaller>>make:
BlockClosure>>on:do:
ShiftClassInstaller>>make:
ShiftClassInstaller>>remake:
[ :each | installer remake: each instanceSide ] in TraitBuilderEnhancer>>propagateChangesToRelatedClasses:installer:
IdentitySet(Set)>>do:
TraitBuilderEnhancer>>propagateChangesToRelatedClasses:installer:
[ builder oldClass: oldClass.
newClass := builder build.
self validateReadOnlyInstancesOf: oldClass.
self installInEnvironment: newClass.
self installSubclassInSuperclass: newClass.
builder builderEnhancer beforeMigratingClass: builder installer: self.
self migrateClassTo: newClass.
builder builderEnhancer afterMigratingClass: builder installer: self.
builder builderEnhancer
	propagateChangesToRelatedClasses: newClass
	installer: self ] in ShiftClassInstaller>>make:
BlockClosure>>on:do:
ShiftClassInstaller>>make:
ShiftClassInstaller class>>update:to:
T2 classTrait(Class)>>setTraitComposition:
TraitCompositionTest>>testAliasCompositions
TraitCompositionTest(TestCase)>>performTest