[Pharo-project] [BUG]UndefinedObject(Object)>>doesNotUnderstand: #<
I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result. 30 November 2009 5:26:40 pm VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.0rc1 [Latest update: #10498] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir E:\Pharo Trusted Dir E:\Pharo\Cesar S. Rabak Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak UndefinedObject(Object)>>doesNotUnderstand: #< Receiver: nil Arguments and temporary variables: aMessage: < 0 exception: MessageNotUnderstood: receiver of "<" is nil resumeValue: nil Receiver's instance variables: nil EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: genSelector: #genPushLiteral: args: #(nil) Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil LiteralNode>>sizeCodeForValue: Receiver: {#testWithWithWithWith} Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil key: #testWithWithWithWith code: -3 index: nil [] in MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil OrderedCollection>>collect: Receiver: an OrderedCollection({#testWithWithWithWith}) Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil) firstIndex: 3 lastIndex: 3 MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil [] in CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: { add: #testWithWithWithWith} size: {an EncoderForV3PlusClosures} aMessage: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc... OrderedCollection>>do: Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 252 Receiver's instance variables: array: an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc... firstIndex: 1 lastIndex: 294 CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc... [] in MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil Array(SequenceableCollection)>>collect: Receiver: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: #(nil) index: 1 indexLimiT: 1 Receiver's instance variables: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc... MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil [] in MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil OrderedCollection>>collect: Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: an Array(nil nil {#passed -> (Set new add: #testAsArray; add: #testAs...etc... firstIndex: 3 lastIndex: 3 MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil [] in CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... size: {an EncoderForV3PlusClosures} aMessage: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; ...etc... OrderedCollection>>do: Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 3 Receiver's instance variables: array: an Array(nil nil { add: #passed -> (Set new add: #testAsArray; add: ...etc... firstIndex: 3 lastIndex: 7 CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; ...etc... CascadeNode(ParseNode)>>sizeCodeForReturn: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; ...etc... ReturnNode>>sizeCodeForValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc... ReturnNode(ParseNode)>>sizeCodeForBlockValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc... BlockNode>>sizeCodeForEvaluatedValue: Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil arguments: #() statements: an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc... returns: true nArgsNode: nil size: nil remoteCopyNode: nil temporaries: an OrderedCollection() optimized: false actualScopeIfOptimized: nil blockExtent: (0 to: 2) remoteTempNode: nil copiedValues: nil closureCreationNode: nil startOfLastStatement: 16 BytecodeAgnosticMethodNode>>generate: Receiver: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc... Arguments and temporary variables: trailer: #(0 0 0 0) primErrNode: nil blkSize: nil nLits: nil literals: nil stack: nil method: nil locals: nil lit: nil Receiver's instance variables: comment: nil pc: nil selectorOrFalse: #lastStoredRun precedence: 1 arguments: #() block: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add:...etc... primitive: 0 encoder: {an EncoderForV3PlusClosures} temporaries: #() properties: an AdditionalMethodState sourceText: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc... locationCounter: 3 localsPool: an IdentitySet() CompiledMethodWithNode class>>generateMethodFromNode:trailer: Receiver: CompiledMethodWithNode Arguments and temporary variables: aMethodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #tes...etc... bytes: #(0 0 0 0) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc... format: 134 instanceVariables: #('node' 'method') organization: ('accessing' method node selector) ('private' method: node:) subclasses: nil name: #CompiledMethodWithNode classPool: nil sharedPools: nil environment: Smalltalk category: #'Compiler-Support' traitComposition: nil localSelectors: nil Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil bytes: #(0 0 0 0) failBlock: [closure] in Metaclass(ClassDescription)>>compile:classified:withSta...etc... methodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #test...etc... Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified') thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil logSource: true methodAndNode: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified') thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified') thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil Metaclass(ClassDescription)>>compile:classified:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil stamp: 'CesarRabak 11/30/2009 17:26' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified') thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil Metaclass(ClassDescription)>>compile:classified: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... heading: 'history' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified') thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil StringTest class(TestCase class)>>generateLastStoredRunMethod Receiver: StringTest Arguments and temporary variables: Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 321) format: 158 instanceVariables: #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc... organization: ('initialization' setUp) ('requirements' aValue anIndex anotherEl...etc... subclasses: nil name: #StringTest classPool: nil sharedPools: nil environment: Smalltalk category: #'CollectionsTests-Text' traitComposition: TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc... localSelectors: an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc... [] in TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables: testCaseCls: StringTest Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil Set>>do: Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc... Arguments and temporary variables: aBlock: [closure] in TestRunner>>storeResultIntoTestCases index: 364 each: StringTest indexLimiT: 6638 Receiver's instance variables: tally: 49 array: {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc... TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables: Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil TestRunner>>perform:orSendTo: Receiver: a TestRunner Arguments and temporary variables: selector: #storeResultIntoTestCases otherTarget: a PluggableTextMorphPlus(3170) Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference' Arguments and temporary variables: evt: [675@67 mouseUp 21933765 nil] selArgCount: #(2) Receiver's instance variables: bounds: 613@54 corner: 836@70 owner: a MenuMorph(2400) submorphs: #() fullBounds: 613@54 corner: 836@70 color: Color black extension: a MorphExtension (2845) [other: (layoutProperties -> a LayoutProper...etc... font: a LogicalFont familyName: DejaVu Sans emphasis: nil pointSize: 10 rea...etc... emphasis: 0 contents: 'Store result as progress reference' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a TestRunner selector: #perform:orSendTo: arguments: an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170)) icon: nil getStateSelector: nil enablementSelector: nil keyText: nil BlockClosure>>ensure: Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor)>>showWhile: returnValue: nil b: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: startpc: 136 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r10000000000000000000000...etc... Arguments and temporary variables: aBlock: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@-1 maskForm: Form(16x16x1) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #< EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments: EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: LiteralNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: Array(SequenceableCollection)>>collect: MessageNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: CascadeNode(ParseNode)>>sizeCodeForReturn: ReturnNode>>sizeCodeForValue: ReturnNode(ParseNode)>>sizeCodeForBlockValue: BlockNode>>sizeCodeForEvaluatedValue: BytecodeAgnosticMethodNode>>generate: CompiledMethodWithNode class>>generateMethodFromNode:trailer: Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Metaclass(ClassDescription)>>compile:classified:notifying: Metaclass(ClassDescription)>>compile:classified: StringTest class(TestCase class)>>generateLastStoredRunMethod [] in TestRunner>>storeResultIntoTestCases Set>>do: TestRunner>>storeResultIntoTestCases TestRunner>>perform:orSendTo: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: WorldState>>doOneSubCycleFor: PasteUpMorph>>doOneSubCycle MenuMorph>>invokeModalAt:in:allowKeyboard: MenuMorph>>invokeModal: MenuMorph>>invokeModal PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity: TextMorphForEditView>>mouseDown: TextMorphForEditView(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TextMorphForEditView(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TransformMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableTextMorphPlus(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableStandardWindow(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: PasteUpMorph>>processEvent:using: PasteUpMorph(Morph)>>processEvent: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess -- Cesar Rabak
thanks can you let us knw the exact sequence your did? Stef On Nov 30, 2009, at 8:30 PM, csrabak@bol.com.br wrote:
I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result.
30 November 2009 5:26:40 pm
VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.0rc1 [Latest update: #10498]
SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir E:\Pharo Trusted Dir E:\Pharo\Cesar S. Rabak Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak
UndefinedObject(Object)>>doesNotUnderstand: #< Receiver: nil Arguments and temporary variables: aMessage: < 0 exception: MessageNotUnderstood: receiver of "<" is nil resumeValue: nil Receiver's instance variables: nil
EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: genSelector: #genPushLiteral: args: #(nil) Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
LiteralNode>>sizeCodeForValue: Receiver: {#testWithWithWithWith} Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil key: #testWithWithWithWith code: -3 index: nil
[] in MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil
OrderedCollection>>collect: Receiver: an OrderedCollection({#testWithWithWithWith}) Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil) firstIndex: 3 lastIndex: 3
MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: { add: #testWithWithWithWith} size: {an EncoderForV3PlusClosures} aMessage: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
OrderedCollection>>do: Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 252 Receiver's instance variables: array: an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc... firstIndex: 1 lastIndex: 294
CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
[] in MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
Array(SequenceableCollection)>>collect: Receiver: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: #(nil) index: 1 indexLimiT: 1 Receiver's instance variables: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc...
MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
OrderedCollection>>collect: Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: an Array(nil nil {#passed -> (Set new add: #testAsArray; add: #testAs...etc... firstIndex: 3 lastIndex: 3
MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... size: {an EncoderForV3PlusClosures} aMessage: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; ...etc...
OrderedCollection>>do: Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 3 Receiver's instance variables: array: an Array(nil nil { add: #passed -> (Set new add: #testAsArray; add: ...etc... firstIndex: 3 lastIndex: 7
CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; ...etc...
CascadeNode(ParseNode)>>sizeCodeForReturn: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; ...etc...
ReturnNode>>sizeCodeForValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc...
ReturnNode(ParseNode)>>sizeCodeForBlockValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc...
BlockNode>>sizeCodeForEvaluatedValue: Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil arguments: #() statements: an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc... returns: true nArgsNode: nil size: nil remoteCopyNode: nil temporaries: an OrderedCollection() optimized: false actualScopeIfOptimized: nil blockExtent: (0 to: 2) remoteTempNode: nil copiedValues: nil closureCreationNode: nil startOfLastStatement: 16
BytecodeAgnosticMethodNode>>generate: Receiver: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc... Arguments and temporary variables: trailer: #(0 0 0 0) primErrNode: nil blkSize: nil nLits: nil literals: nil stack: nil method: nil locals: nil lit: nil Receiver's instance variables: comment: nil pc: nil selectorOrFalse: #lastStoredRun precedence: 1 arguments: #() block: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add:...etc... primitive: 0 encoder: {an EncoderForV3PlusClosures} temporaries: #() properties: an AdditionalMethodState sourceText: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc... locationCounter: 3 localsPool: an IdentitySet()
CompiledMethodWithNode class>>generateMethodFromNode:trailer: Receiver: CompiledMethodWithNode Arguments and temporary variables: aMethodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #tes...etc... bytes: #(0 0 0 0) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc... format: 134 instanceVariables: #('node' 'method') organization: ('accessing' method node selector) ('private' method: node:)
subclasses: nil name: #CompiledMethodWithNode classPool: nil sharedPools: nil environment: Smalltalk category: #'Compiler-Support' traitComposition: nil localSelectors: nil
Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil bytes: #(0 0 0 0) failBlock: [closure] in Metaclass(ClassDescription)>>compile:classified:withSta...etc... methodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #test...etc... Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil logSource: true methodAndNode: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil stamp: 'CesarRabak 11/30/2009 17:26' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... heading: 'history' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
StringTest class(TestCase class)>>generateLastStoredRunMethod Receiver: StringTest Arguments and temporary variables:
Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 321) format: 158 instanceVariables: #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc... organization: ('initialization' setUp) ('requirements' aValue anIndex anotherEl...etc... subclasses: nil name: #StringTest classPool: nil sharedPools: nil environment: Smalltalk category: #'CollectionsTests-Text' traitComposition: TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc... localSelectors: an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc...
[] in TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables: testCaseCls: StringTest Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
Set>>do: Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc... Arguments and temporary variables: aBlock: [closure] in TestRunner>>storeResultIntoTestCases index: 364 each: StringTest indexLimiT: 6638 Receiver's instance variables: tally: 49 array: {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc...
TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables:
Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
TestRunner>>perform:orSendTo: Receiver: a TestRunner Arguments and temporary variables: selector: #storeResultIntoTestCases otherTarget: a PluggableTextMorphPlus(3170) Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference' Arguments and temporary variables: evt: [675@67 mouseUp 21933765 nil] selArgCount: #(2) Receiver's instance variables: bounds: 613@54 corner: 836@70 owner: a MenuMorph(2400) submorphs: #() fullBounds: 613@54 corner: 836@70 color: Color black extension: a MorphExtension (2845) [other: (layoutProperties -> a LayoutProper...etc... font: a LogicalFont familyName: DejaVu Sans emphasis: nil pointSize: 10 rea...etc... emphasis: 0 contents: 'Store result as progress reference' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a TestRunner selector: #perform:orSendTo: arguments: an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170)) icon: nil getStateSelector: nil enablementSelector: nil keyText: nil
BlockClosure>>ensure: Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor)>>showWhile: returnValue: nil b: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: startpc: 136 numArgs: 0
CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r10000000000000000000000...etc... Arguments and temporary variables: aBlock: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@-1 maskForm: Form(16x16x1)
--- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #< EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments: EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: LiteralNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: Array(SequenceableCollection)>>collect: MessageNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: CascadeNode(ParseNode)>>sizeCodeForReturn: ReturnNode>>sizeCodeForValue: ReturnNode(ParseNode)>>sizeCodeForBlockValue: BlockNode>>sizeCodeForEvaluatedValue: BytecodeAgnosticMethodNode>>generate: CompiledMethodWithNode class>>generateMethodFromNode:trailer: Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Metaclass(ClassDescription)>>compile:classified:notifying: Metaclass(ClassDescription)>>compile:classified: StringTest class(TestCase class)>>generateLastStoredRunMethod [] in TestRunner>>storeResultIntoTestCases Set>>do: TestRunner>>storeResultIntoTestCases TestRunner>>perform:orSendTo: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: WorldState>>doOneSubCycleFor: PasteUpMorph>>doOneSubCycle MenuMorph>>invokeModalAt:in:allowKeyboard: MenuMorph>>invokeModal: MenuMorph>>invokeModal PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity: TextMorphForEditView>>mouseDown: TextMorphForEditView(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TextMorphForEditView(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TransformMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableTextMorphPlus(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableStandardWindow(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: PasteUpMorph>>processEvent:using: PasteUpMorph(Morph)>>processEvent: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess
-- Cesar Rabak
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Just the full source code would do: lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... Nicolas 2009/11/30 Stéphane Ducasse <stephane.ducasse@inria.fr>:
thanks can you let us knw the exact sequence your did?
Stef
On Nov 30, 2009, at 8:30 PM, csrabak@bol.com.br wrote:
I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result.
30 November 2009 5:26:40 pm
VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.0rc1 [Latest update: #10498]
SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir E:\Pharo Trusted Dir E:\Pharo\Cesar S. Rabak Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak
UndefinedObject(Object)>>doesNotUnderstand: #<    Receiver: nil    Arguments and temporary variables:        aMessage:    < 0        exception:    MessageNotUnderstood: receiver of "<" is nil        resumeValue:   nil    Receiver's instance variables: nil
EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:    Receiver: {an EncoderForV3PlusClosures}    Arguments and temporary variables:        literalIndex:  nil    Receiver's instance variables:        comment:     nil        pc:   nil        scopeTable:   a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...        nTemps:     0        supered:     false        requestor:    nil        class:  StringTest class        selector:    #lastStoredRun        literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...        selectorSet:   a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...        litIndSet:    a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...        litSet:     a LiteralDictionary(size 302)        sourceRanges:  a Dictionary(size 309)        globalSourceRanges:   an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...        addedSelectorAndMethodClassLiterals:   false        stream:     {an EncoderForV3PlusClosures}        position:    0        rootNode:    lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...        blockExtentsToLocals:  nil
EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:    Receiver: {an EncoderForV3PlusClosures}    Arguments and temporary variables:        genSelector:   #genPushLiteral:        args:  #(nil)    Receiver's instance variables:        comment:     nil        pc:   nil        scopeTable:   a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...        nTemps:     0        supered:     false        requestor:    nil        class:  StringTest class        selector:    #lastStoredRun        literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...        selectorSet:   a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...        litIndSet:    a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...        litSet:     a LiteralDictionary(size 302)        sourceRanges:  a Dictionary(size 309)        globalSourceRanges:   an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...        addedSelectorAndMethodClassLiterals:   false        stream:     {an EncoderForV3PlusClosures}        position:    0        rootNode:    lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...        blockExtentsToLocals:  nil
EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:    Receiver: {an EncoderForV3PlusClosures}    Arguments and temporary variables:        literalIndex:  nil    Receiver's instance variables:        comment:     nil        pc:   nil        scopeTable:   a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...        nTemps:     0        supered:     false        requestor:    nil        class:  StringTest class        selector:    #lastStoredRun        literalStream:  a WriteStream {#Dictionary->Dictionary. #add:. #'->'. #passed. #...etc...        selectorSet:   a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...        litIndSet:    a Dictionary(#Dictionary->Dictionary->{Dictionary} #Set->Set->{Set} ...etc...        litSet:     a LiteralDictionary(size 302)        sourceRanges:  a Dictionary(size 309)        globalSourceRanges:   an OrderedCollection({'Dictionary'. (20 to: 29). false} {'S...etc...        addedSelectorAndMethodClassLiterals:   false        stream:     {an EncoderForV3PlusClosures}        position:    0        rootNode:    lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...        blockExtentsToLocals:  nil
LiteralNode>>sizeCodeForValue:    Receiver: {#testWithWithWithWith}    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        key:   #testWithWithWithWith        code:  -3        index:  nil
[] in MessageNode>>sizeCodeForValue:    Receiver: { add: #testWithWithWithWith}    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection({#testWithWithWithWith})        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
OrderedCollection>>collect: Â Â Â Receiver: an OrderedCollection({#testWithWithWithWith}) Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in MessageNode>>sizeCodeForValue: Â Â Â Â Â Â Â newCollection: Â an OrderedCollection() Â Â Â Â Â Â Â index: Â 3 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil) Â Â Â Â Â Â Â firstIndex: Â Â 3 Â Â Â Â Â Â Â lastIndex: Â Â Â 3
MessageNode>>sizeCodeForValue:    Receiver: { add: #testWithWithWithWith}    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection({#testWithWithWithWith})        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
[] in CascadeNode>>sizeCodeForValue:    Receiver: {Set new add: #testAsArray;     add: #testAsSet;     add: #testAsSortedCollection;     add: #tes...etc...    Arguments and temporary variables:        encoder:     { add: #testWithWithWithWith}        size:  {an EncoderForV3PlusClosures}        aMessage:    #(1506)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Set new}        messages:    an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
OrderedCollection>>do: Â Â Â Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in CascadeNode>>sizeCodeForValue: Â Â Â Â Â Â Â index: Â 252 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc... Â Â Â Â Â Â Â firstIndex: Â Â 1 Â Â Â Â Â Â Â lastIndex: Â Â Â 294
CascadeNode>>sizeCodeForValue:    Receiver: {Set new add: #testAsArray;     add: #testAsSet;     add: #testAsSortedCollection;     add: #tes...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}        size:  #(1506)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Set new}        messages:    an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
[] in MessageNode>>sizeCodeForValue:    Receiver: {#passed -> (Set new add: #testAsArray;         add: #testAsSet;         add: #testAsSortedCollectio...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {#passed}        selector:    {->}        precedence:   2        special:     0        arguments:    an Array({Set new add: #testAsArray;     add: #testAsSet;     add: #test...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
Array(SequenceableCollection)>>collect: Â Â Â Receiver: an Array({Set new add: #testAsArray; Â Â Â Â add: #testAsSet; Â Â Â Â add: #testAsSortedCollection; Â Â Â Â ...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in MessageNode>>sizeCodeForValue: Â Â Â Â Â Â Â newCollection: Â #(nil) Â Â Â Â Â Â Â index: Â 1 Â Â Â Â Â Â Â indexLimiT: Â Â 1 Â Â Â Receiver's instance variables: an Array({Set new add: #testAsArray; Â Â Â Â add: #testAsSet; Â Â Â Â add: #testAsSortedCollection; Â Â Â Â ...etc...
MessageNode>>sizeCodeForValue:    Receiver: {#passed -> (Set new add: #testAsArray;         add: #testAsSet;         add: #testAsSortedCollectio...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {#passed}        selector:    {->}        precedence:   2        special:     0        arguments:    an Array({Set new add: #testAsArray;     add: #testAsSet;     add: #test...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
[] in MessageNode>>sizeCodeForValue:    Receiver: { add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: #testAsSortedC...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection({#passed -> (Set new add: #testAsArray;         add:...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
OrderedCollection>>collect: Â Â Â Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â add: #testAsSet; Â Â Â Â Â Â Â Â add: #...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in MessageNode>>sizeCodeForValue: Â Â Â Â Â Â Â newCollection: Â an OrderedCollection() Â Â Â Â Â Â Â index: Â 3 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â an Array(nil nil {#passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â add: #testAs...etc... Â Â Â Â Â Â Â firstIndex: Â Â 3 Â Â Â Â Â Â Â lastIndex: Â Â Â 3
MessageNode>>sizeCodeForValue:    Receiver: { add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: #testAsSortedC...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection({#passed -> (Set new add: #testAsArray;         add:...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
[] in CascadeNode>>sizeCodeForValue:    Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: ...etc...    Arguments and temporary variables:        encoder:     { add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;            ...etc...        size:  {an EncoderForV3PlusClosures}        aMessage:    #(10)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Dictionary new}        messages:    an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;        ...etc...
OrderedCollection>>do: Â Â Â Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â Â Â Â Â add: #testAsSet; Â Â Â Â Â Â Â ...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in CascadeNode>>sizeCodeForValue: Â Â Â Â Â Â Â index: Â 3 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â an Array(nil nil { add: #passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â Â Â Â Â add: ...etc... Â Â Â Â Â Â Â firstIndex: Â Â 3 Â Â Â Â Â Â Â lastIndex: Â Â Â 7
CascadeNode>>sizeCodeForValue:    Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: ...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}        size:  #(10)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Dictionary new}        messages:    an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;        ...etc...
CascadeNode(ParseNode)>>sizeCodeForReturn:    Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: ...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Dictionary new}        messages:    an OrderedCollection({ add: #passed -> (Set new add: #testAsArray;        ...etc...
ReturnNode>>sizeCodeForValue:    Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        expr:  {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #tes...etc...
ReturnNode(ParseNode)>>sizeCodeForBlockValue:    Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        expr:  {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #tes...etc...
BlockNode>>sizeCodeForEvaluatedValue:    Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;                 add: #testAsSet;                 ...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        arguments:    #()        statements:   an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc...        returns:     true        nArgsNode:    nil        size:  nil        remoteCopyNode:     nil        temporaries:   an OrderedCollection()        optimized:    false        actualScopeIfOptimized:     nil        blockExtent:   (0 to: 2)        remoteTempNode:     nil        copiedValues:  nil        closureCreationNode:   nil        startOfLastStatement:  16
BytecodeAgnosticMethodNode>>generate:    Receiver: lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAsArray;                 add: #tes...etc...    Arguments and temporary variables:        trailer:     #(0 0 0 0)        primErrNode:   nil        blkSize:     nil        nLits:  nil        literals:    nil        stack:  nil        method:     nil        locals:     nil        lit:   nil    Receiver's instance variables:        comment:     nil        pc:   nil        selectorOrFalse:     #lastStoredRun        precedence:   1        arguments:    #()        block:  {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;                 add:...etc...        primitive:    0        encoder:     {an EncoderForV3PlusClosures}        temporaries:   #()        properties:   an AdditionalMethodState        sourceText:   'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...        locationCounter:     3        localsPool:   an IdentitySet()
CompiledMethodWithNode class>>generateMethodFromNode:trailer:    Receiver: CompiledMethodWithNode    Arguments and temporary variables:        aMethodNode:   lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #tes...etc...        bytes:  #(0 0 0 0)    Receiver's instance variables:        superclass:   Object        methodDict:   a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc...        format:     134        instanceVariables:    #('node' 'method')        organization:  ('accessing' method node selector) ('private' method: node:)
       subclasses:   nil        name:  #CompiledMethodWithNode        classPool:    nil        sharedPools:   nil        environment:   Smalltalk        category:    #'Compiler-Support'        traitComposition:    nil        localSelectors:     nil
Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:    Receiver: StringTest class    Arguments and temporary variables:        code:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        requestor:    nil        bytes:  #(0 0 0 0)        failBlock:    [closure] in Metaclass(ClassDescription)>>compile:classified:withSta...etc...        methodNode:   lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #test...etc...    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource:    Receiver: StringTest class    Arguments and temporary variables:        text:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        changeStamp:   'CesarRabak 11/30/2009 17:26'        requestor:    nil        logSource:    true        methodAndNode:  nil    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:    Receiver: StringTest class    Arguments and temporary variables:        text:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        changeStamp:   'CesarRabak 11/30/2009 17:26'        requestor:    nil    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)>>compile:classified:notifying:    Receiver: StringTest class    Arguments and temporary variables:        text:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        requestor:    nil        stamp:  'CesarRabak 11/30/2009 17:26'    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)>>compile:classified:    Receiver: StringTest class    Arguments and temporary variables:        code:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        heading:     'history'    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
StringTest class(TestCase class)>>generateLastStoredRunMethod    Receiver: StringTest    Arguments and temporary variables:
   Receiver's instance variables:        superclass:   CollectionRootTest        methodDict:   a MethodDictionary(size 321)        format:     158        instanceVariables:    #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc...        organization:  ('initialization' setUp) ('requirements' aValue anIndex anotherEl...etc...        subclasses:   nil        name:  #StringTest        classPool:    nil        sharedPools:   nil        environment:   Smalltalk        category:    #'CollectionsTests-Text'        traitComposition:    TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc...        localSelectors:     an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc...        history:     a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc...
[] in TestRunner>>storeResultIntoTestCases    Receiver: a TestRunner    Arguments and temporary variables:        testCaseCls:   StringTest    Receiver's instance variables:        categories:   #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...        categoriesSelected:   a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...        classes:     {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...        classIndex:   0        classesSelected:     a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...        failedList:   #()        failedSelected:     nil        errorList:    #()        errorSelected:  nil        lastUpdate:   3437054762        result:     4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...        previousRun:   nil
Set>>do:    Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc...    Arguments and temporary variables:        aBlock:     [closure] in TestRunner>>storeResultIntoTestCases        index:  364        each:  StringTest        indexLimiT:   6638    Receiver's instance variables:        tally:  49        array:  {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc...
TestRunner>>storeResultIntoTestCases    Receiver: a TestRunner    Arguments and temporary variables:
   Receiver's instance variables:        categories:   #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...        categoriesSelected:   a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...        classes:     {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...        classIndex:   0        classesSelected:     a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...        failedList:   #()        failedSelected:     nil        errorList:    #()        errorSelected:  nil        lastUpdate:   3437054762        result:     4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...        previousRun:   nil
TestRunner>>perform:orSendTo:    Receiver: a TestRunner    Arguments and temporary variables:        selector:    #storeResultIntoTestCases        otherTarget:   a PluggableTextMorphPlus(3170)    Receiver's instance variables:        categories:   #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...        categoriesSelected:   a Set(#'CollectionsTests-Support' #'CollectionsTests-Weak' ...etc...        classes:     {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...        classIndex:   0        classesSelected:     a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...        failedList:   #()        failedSelected:     nil        errorList:    #()        errorSelected:  nil        lastUpdate:   3437054762        result:     4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...        previousRun:   nil
[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:    Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference'    Arguments and temporary variables:        evt:   [675@67 mouseUp 21933765 nil]        selArgCount:   #(2)    Receiver's instance variables:        bounds:     613@54 corner: 836@70        owner:  a MenuMorph(2400)        submorphs:    #()        fullBounds:   613@54 corner: 836@70        color:  Color black        extension:    a MorphExtension (2845) [other:  (layoutProperties -> a LayoutProper...etc...        font:  a LogicalFont familyName: DejaVu Sans emphasis: nil pointSize: 10 rea...etc...        emphasis:    0        contents:    'Store result as progress reference'        hasFocus:    false        isEnabled:    true        subMenu:     nil        isSelected:   false        target:     a TestRunner        selector:    #perform:orSendTo:        arguments:    an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170))        icon:  nil        getStateSelector:    nil        enablementSelector:   nil        keyText:     nil
BlockClosure>>ensure:    Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:    Arguments and temporary variables:        aBlock:     [closure] in CursorWithMask(Cursor)>>showWhile:        returnValue:   nil        b:    nil    Receiver's instance variables:        outerContext:  ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:        startpc:     136        numArgs:     0
CursorWithMask(Cursor)>>showWhile:    Receiver: ((CursorWithMask    extent: 16@16    depth: 1    fromArray: #(        2r0        2r10000000000000000000000...etc...    Arguments and temporary variables:        aBlock:     [closure] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:        oldcursor:    ((CursorWithMask    extent: 16@16    depth: 1    fromArray: #(        2r0        2r1...etc...    Receiver's instance variables:        bits:  a Bitmap of length 16        width:  16        height:     16        depth:  1        offset:     -1@-1        maskForm:    Form(16x16x1)
--- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #< EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments: EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: LiteralNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: Array(SequenceableCollection)>>collect: MessageNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: CascadeNode(ParseNode)>>sizeCodeForReturn: ReturnNode>>sizeCodeForValue: ReturnNode(ParseNode)>>sizeCodeForBlockValue: BlockNode>>sizeCodeForEvaluatedValue: BytecodeAgnosticMethodNode>>generate: CompiledMethodWithNode class>>generateMethodFromNode:trailer: Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:logSource: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Metaclass(ClassDescription)>>compile:classified:notifying: Metaclass(ClassDescription)>>compile:classified: StringTest class(TestCase class)>>generateLastStoredRunMethod [] in TestRunner>>storeResultIntoTestCases Set>>do: TestRunner>>storeResultIntoTestCases TestRunner>>perform:orSendTo: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: - - - - - - - - - - - - - - - Â Â Â Â Â Â Â Â Â Â Â - - - - - - - - - - - - - - - - - - ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: WorldState>>doOneSubCycleFor: PasteUpMorph>>doOneSubCycle MenuMorph>>invokeModalAt:in:allowKeyboard: MenuMorph>>invokeModal: MenuMorph>>invokeModal PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity: TextMorphForEditView>>mouseDown: TextMorphForEditView(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TextMorphForEditView(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TransformMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableTextMorphPlus(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableStandardWindow(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: PasteUpMorph>>processEvent:using: PasteUpMorph(Morph)>>processEvent: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess
-- Cesar Rabak
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
On 30 nov. 2009, at 16:49, Nicolas Cellier wrote:
Just the full source code would do:
lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
Can you be a bit more precise? I feel concerned about this, it's part of something we did with Alex.
Nicolas
2009/11/30 Stéphane Ducasse <stephane.ducasse@inria.fr>:
thanks can you let us knw the exact sequence your did?
Stef
On Nov 30, 2009, at 8:30 PM, csrabak@bol.com.br wrote:
I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result.
30 November 2009 5:26:40 pm
VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.0rc1 [Latest update: #10498]
SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir E:\Pharo Trusted Dir E:\Pharo\Cesar S. Rabak Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak
UndefinedObject(Object)>>doesNotUnderstand: #< Receiver: nil Arguments and temporary variables: aMessage: < 0 exception: MessageNotUnderstood: receiver of "<" is nil resumeValue: nil Receiver's instance variables: nil
EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary-
Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary- {Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
EncoderForV3PlusClosures(BytecodeEncoder)
sizeOpcodeSelector:withArguments: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: genSelector: #genPushLiteral: args: #(nil) Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary- Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary- {Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary-
Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary->Dictionary- {Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
LiteralNode>>sizeCodeForValue: Receiver: {#testWithWithWithWith} Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil key: #testWithWithWithWith code: -3 index: nil
[] in MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection ({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil
OrderedCollection>>collect: Receiver: an OrderedCollection({#testWithWithWithWith}) Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil) firstIndex: 3 lastIndex: 3
MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection ({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: { add: #testWithWithWithWith} size: {an EncoderForV3PlusClosures} aMessage: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
OrderedCollection>>do: Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 252 Receiver's instance variables: array: an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc... firstIndex: 1 lastIndex: 294
CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
[] in MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
Array(SequenceableCollection)>>collect: Receiver: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: #(nil) index: 1 indexLimiT: 1 Receiver's instance variables: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc...
MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
OrderedCollection>>collect: Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: an Array(nil nil {#passed -> (Set new add: #testAsArray; add: #testAs...etc... firstIndex: 3 lastIndex: 3
MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... size: {an EncoderForV3PlusClosures} aMessage: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; ...etc...
OrderedCollection>>do: Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 3 Receiver's instance variables: array: an Array(nil nil { add: #passed -> (Set new add: #testAsArray; add: ...etc... firstIndex: 3 lastIndex: 7
CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; ...etc...
CascadeNode(ParseNode)>>sizeCodeForReturn: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; ...etc...
ReturnNode>>sizeCodeForValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc...
ReturnNode(ParseNode)>>sizeCodeForBlockValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc...
BlockNode>>sizeCodeForEvaluatedValue: Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil arguments: #() statements: an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc... returns: true nArgsNode: nil size: nil remoteCopyNode: nil temporaries: an OrderedCollection() optimized: false actualScopeIfOptimized: nil blockExtent: (0 to: 2) remoteTempNode: nil copiedValues: nil closureCreationNode: nil startOfLastStatement: 16
BytecodeAgnosticMethodNode>>generate: Receiver: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc... Arguments and temporary variables: trailer: #(0 0 0 0) primErrNode: nil blkSize: nil nLits: nil literals: nil stack: nil method: nil locals: nil lit: nil Receiver's instance variables: comment: nil pc: nil selectorOrFalse: #lastStoredRun precedence: 1 arguments: #() block: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add:...etc... primitive: 0 encoder: {an EncoderForV3PlusClosures} temporaries: #() properties: an AdditionalMethodState sourceText: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc... locationCounter: 3 localsPool: an IdentitySet()
CompiledMethodWithNode class>>generateMethodFromNode:trailer: Receiver: CompiledMethodWithNode Arguments and temporary variables: aMethodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #tes...etc... bytes: #(0 0 0 0) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc... format: 134 instanceVariables: #('node' 'method') organization: ('accessing' method node selector) ('private' method: node:)
subclasses: nil name: #CompiledMethodWithNode classPool: nil sharedPools: nil environment: Smalltalk category: #'Compiler-Support' traitComposition: nil localSelectors: nil
Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil bytes: #(0 0 0 0) failBlock: [closure] in Metaclass (ClassDescription)>>compile:classified:withSta...etc... methodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #test...etc... Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)
compile:classified:withStamp:notifying:logSource: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil logSource: true methodAndNode: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil stamp: 'CesarRabak 11/30/2009 17:26' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... heading: 'history' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
StringTest class(TestCase class)>>generateLastStoredRunMethod Receiver: StringTest Arguments and temporary variables:
Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 321) format: 158 instanceVariables: #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc... organization: ('initialization' setUp) ('requirements' aValue anIndex anotherEl...etc... subclasses: nil name: #StringTest classPool: nil sharedPools: nil environment: Smalltalk category: #'CollectionsTests-Text' traitComposition: TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc... localSelectors: an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc...
[] in TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables: testCaseCls: StringTest Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
Set>>do: Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc... Arguments and temporary variables: aBlock: [closure] in TestRunner>>storeResultIntoTestCases index: 364 each: StringTest indexLimiT: 6638 Receiver's instance variables: tally: 49 array: {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc...
TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables:
Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
TestRunner>>perform:orSendTo: Receiver: a TestRunner Arguments and temporary variables: selector: #storeResultIntoTestCases otherTarget: a PluggableTextMorphPlus(3170) Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference' Arguments and temporary variables: evt: [675@67 mouseUp 21933765 nil] selArgCount: #(2) Receiver's instance variables: bounds: 613@54 corner: 836@70 owner: a MenuMorph(2400) submorphs: #() fullBounds: 613@54 corner: 836@70 color: Color black extension: a MorphExtension (2845) [other: (layoutProperties -> a LayoutProper...etc... font: a LogicalFont familyName: DejaVu Sans emphasis: nil pointSize: 10 rea...etc... emphasis: 0 contents: 'Store result as progress reference' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a TestRunner selector: #perform:orSendTo: arguments: an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170)) icon: nil getStateSelector: nil enablementSelector: nil keyText: nil
BlockClosure>>ensure: Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)
invokeWithEvent: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor) showWhile: returnValue: nil b: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph) invokeWithEvent: startpc: 136 numArgs: 0
CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r10000000000000000000000...etc... Arguments and temporary variables: aBlock: [closure] in ToggleMenuItemMorph (MenuItemMorph)>>invokeWithEvent: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@-1 maskForm: Form(16x16x1)
--- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #< EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: EncoderForV3PlusClosures(BytecodeEncoder)
sizeOpcodeSelector:withArguments: EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: LiteralNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: Array(SequenceableCollection)>>collect: MessageNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: CascadeNode(ParseNode)>>sizeCodeForReturn: ReturnNode>>sizeCodeForValue: ReturnNode(ParseNode)>>sizeCodeForBlockValue: BlockNode>>sizeCodeForEvaluatedValue: BytecodeAgnosticMethodNode>>generate: CompiledMethodWithNode class>>generateMethodFromNode:trailer: Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Metaclass(ClassDescription) compile:classified:withStamp:notifying:logSource: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Metaclass(ClassDescription)>>compile:classified:notifying: Metaclass(ClassDescription)>>compile:classified: StringTest class(TestCase class)>>generateLastStoredRunMethod [] in TestRunner>>storeResultIntoTestCases Set>>do: TestRunner>>storeResultIntoTestCases TestRunner>>perform:orSendTo: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile:
- - - - - - - - - - - - - - - - - - ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: WorldState>>doOneSubCycleFor: PasteUpMorph>>doOneSubCycle MenuMorph>>invokeModalAt:in:allowKeyboard: MenuMorph>>invokeModal: MenuMorph>>invokeModal PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity: TextMorphForEditView>>mouseDown: TextMorphForEditView(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TextMorphForEditView(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TransformMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableTextMorphPlus(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableStandardWindow(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: PasteUpMorph>>processEvent:using: PasteUpMorph(Morph)>>processEvent: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess
-- Cesar Rabak
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
-- Simon
2009/11/30 Simon Denier <Simon.Denier@inria.fr>:
On 30 nov. 2009, at 16:49, Nicolas Cellier wrote:
Just the full source code would do:
lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
Can you be a bit more precise? I feel concerned about this, it's part of something we did with Alex.
Are these auto-generated ? If yes, I guess you might easily cross some bytecode limits and produce un-compilable code... I would try to store Sets differently - for example: #passed -> #(#testSuite #testAssert #testRanOnlyOnce #testFail #testIsNotRerunOnDebug #testDefects #testResult #testDialectLocalizedException #testRunning #testError #testException #testShould #testWithExceptionDo) asSet Nicolas
Nicolas
2009/11/30 Stéphane Ducasse <stephane.ducasse@inria.fr>:
thanks can you let us knw the exact sequence your did?
Stef
On Nov 30, 2009, at 8:30 PM, csrabak@bol.com.br wrote:
I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result.
30 November 2009 5:26:40 pm
VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.0rc1 [Latest update: #10498]
SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir E:\Pharo Trusted Dir E:\Pharo\Cesar S. Rabak Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak
UndefinedObject(Object)>>doesNotUnderstand: #<    Receiver: nil    Arguments and temporary variables:        aMessage:    < 0        exception:    MessageNotUnderstood: receiver of "<" is nil        resumeValue:   nil    Receiver's instance variables: nil
EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:    Receiver: {an EncoderForV3PlusClosures}    Arguments and temporary variables:        literalIndex:  nil    Receiver's instance variables:        comment:     nil        pc:   nil        scopeTable:   a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...        nTemps:     0        supered:     false        requestor:    nil        class:  StringTest class        selector:    #lastStoredRun        literalStream:  a WriteStream {#Dictionary-
Dictionary. #add:. #'->'. #passed. #...etc...        selectorSet:   a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...        litIndSet:    a Dictionary(#Dictionary->Dictionary- {Dictionary} #Set->Set->{Set} ...etc...        litSet:     a LiteralDictionary(size 302)        sourceRanges:  a Dictionary(size 309)        globalSourceRanges:   an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc...        addedSelectorAndMethodClassLiterals:   false        stream:     {an EncoderForV3PlusClosures}        position:    0        rootNode:    lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...        blockExtentsToLocals:  nil
EncoderForV3PlusClosures(BytecodeEncoder)
sizeOpcodeSelector:withArguments:    Receiver: {an EncoderForV3PlusClosures}    Arguments and temporary variables:        genSelector:   #genPushLiteral:        args:  #(nil)    Receiver's instance variables:        comment:     nil        pc:   nil        scopeTable:   a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...        nTemps:     0        supered:     false        requestor:    nil        class:  StringTest class        selector:    #lastStoredRun        literalStream:  a WriteStream {#Dictionary- Dictionary. #add:. #'->'. #passed. #...etc...        selectorSet:   a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...        litIndSet:    a Dictionary(#Dictionary->Dictionary- {Dictionary} #Set->Set->{Set} ...etc...        litSet:     a LiteralDictionary(size 302)        sourceRanges:  a Dictionary(size 309)        globalSourceRanges:   an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc...        addedSelectorAndMethodClassLiterals:   false        stream:     {an EncoderForV3PlusClosures}        position:    0        rootNode:    lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...        blockExtentsToLocals:  nil
EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:    Receiver: {an EncoderForV3PlusClosures}    Arguments and temporary variables:        literalIndex:  nil    Receiver's instance variables:        comment:     nil        pc:   nil        scopeTable:   a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc...        nTemps:     0        supered:     false        requestor:    nil        class:  StringTest class        selector:    #lastStoredRun        literalStream:  a WriteStream {#Dictionary-
Dictionary. #add:. #'->'. #passed. #...etc...        selectorSet:   a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc...        litIndSet:    a Dictionary(#Dictionary->Dictionary- {Dictionary} #Set->Set->{Set} ...etc...        litSet:     a LiteralDictionary(size 302)        sourceRanges:  a Dictionary(size 309)        globalSourceRanges:   an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc...        addedSelectorAndMethodClassLiterals:   false        stream:     {an EncoderForV3PlusClosures}        position:    0        rootNode:    lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAs...etc...        blockExtentsToLocals:  nil
LiteralNode>>sizeCodeForValue:    Receiver: {#testWithWithWithWith}    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        key:   #testWithWithWithWith        code:  -3        index:  nil
[] in MessageNode>>sizeCodeForValue:    Receiver: { add: #testWithWithWithWith}    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection ({#testWithWithWithWith})        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
OrderedCollection>>collect: Â Â Â Receiver: an OrderedCollection({#testWithWithWithWith}) Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in MessageNode>>sizeCodeForValue: Â Â Â Â Â Â Â newCollection: Â an OrderedCollection() Â Â Â Â Â Â Â index: Â 3 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil) Â Â Â Â Â Â Â firstIndex: Â Â 3 Â Â Â Â Â Â Â lastIndex: Â Â Â 3
MessageNode>>sizeCodeForValue:    Receiver: { add: #testWithWithWithWith}    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection ({#testWithWithWithWith})        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
[] in CascadeNode>>sizeCodeForValue:    Receiver: {Set new add: #testAsArray;     add: #testAsSet;     add: #testAsSortedCollection;     add: #tes...etc...    Arguments and temporary variables:        encoder:     { add: #testWithWithWithWith}        size:  {an EncoderForV3PlusClosures}        aMessage:    #(1506)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Set new}        messages:    an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
OrderedCollection>>do: Â Â Â Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in CascadeNode>>sizeCodeForValue: Â Â Â Â Â Â Â index: Â 252 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc... Â Â Â Â Â Â Â firstIndex: Â Â 1 Â Â Â Â Â Â Â lastIndex: Â Â Â 294
CascadeNode>>sizeCodeForValue:    Receiver: {Set new add: #testAsArray;     add: #testAsSet;     add: #testAsSortedCollection;     add: #tes...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}        size:  #(1506)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Set new}        messages:    an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
[] in MessageNode>>sizeCodeForValue:    Receiver: {#passed -> (Set new add: #testAsArray;         add: #testAsSet;         add: #testAsSortedCollectio...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {#passed}        selector:    {->}        precedence:   2        special:     0        arguments:    an Array({Set new add: #testAsArray;     add: #testAsSet;     add: #test...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
Array(SequenceableCollection)>>collect: Â Â Â Receiver: an Array({Set new add: #testAsArray; Â Â Â Â add: #testAsSet; Â Â Â Â add: #testAsSortedCollection; Â Â Â Â ...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in MessageNode>>sizeCodeForValue: Â Â Â Â Â Â Â newCollection: Â #(nil) Â Â Â Â Â Â Â index: Â 1 Â Â Â Â Â Â Â indexLimiT: Â Â 1 Â Â Â Receiver's instance variables: an Array({Set new add: #testAsArray; Â Â Â Â add: #testAsSet; Â Â Â Â add: #testAsSortedCollection; Â Â Â Â ...etc...
MessageNode>>sizeCodeForValue:    Receiver: {#passed -> (Set new add: #testAsArray;         add: #testAsSet;         add: #testAsSortedCollectio...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {#passed}        selector:    {->}        precedence:   2        special:     0        arguments:    an Array({Set new add: #testAsArray;     add: #testAsSet;     add: #test...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
[] in MessageNode>>sizeCodeForValue:    Receiver: { add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: #testAsSortedC...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection({#passed -> (Set new add: #testAsArray;         add:...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
OrderedCollection>>collect: Â Â Â Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â add: #testAsSet; Â Â Â Â Â Â Â Â add: #...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in MessageNode>>sizeCodeForValue: Â Â Â Â Â Â Â newCollection: Â an OrderedCollection() Â Â Â Â Â Â Â index: Â 3 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â an Array(nil nil {#passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â add: #testAs...etc... Â Â Â Â Â Â Â firstIndex: Â Â 3 Â Â Â Â Â Â Â lastIndex: Â Â Â 3
MessageNode>>sizeCodeForValue:    Receiver: { add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: #testAsSortedC...etc...    Arguments and temporary variables: <<error during printing>    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    nil        selector:    {add:}        precedence:   3        special:     0        arguments:    an OrderedCollection({#passed -> (Set new add: #testAsArray;         add:...etc...        sizes:  #(nil)        equalNode:    nil        caseErrorNode:  nil
[] in CascadeNode>>sizeCodeForValue:    Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: ...etc...    Arguments and temporary variables:        encoder:     { add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;            ...etc...        size:  {an EncoderForV3PlusClosures}        aMessage:    #(10)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Dictionary new}        messages:    an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; Â Â Â Â Â Â Â ...etc...
OrderedCollection>>do: Â Â Â Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â Â Â Â Â add: #testAsSet; Â Â Â Â Â Â Â ...etc... Â Â Â Arguments and temporary variables: Â Â Â Â Â Â Â aBlock: Â Â Â Â [closure] in CascadeNode>>sizeCodeForValue: Â Â Â Â Â Â Â index: Â 3 Â Â Â Receiver's instance variables: Â Â Â Â Â Â Â array: Â an Array(nil nil { add: #passed -> (Set new add: #testAsArray; Â Â Â Â Â Â Â Â Â Â Â Â add: ...etc... Â Â Â Â Â Â Â firstIndex: Â Â 3 Â Â Â Â Â Â Â lastIndex: Â Â Â 7
CascadeNode>>sizeCodeForValue:    Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: ...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}        size:  #(10)    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Dictionary new}        messages:    an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; Â Â Â Â Â Â Â ...etc...
CascadeNode(ParseNode)>>sizeCodeForReturn:    Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add: ...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        receiver:    {Dictionary new}        messages:    an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; Â Â Â Â Â Â Â ...etc...
ReturnNode>>sizeCodeForValue:    Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        expr:  {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #tes...etc...
ReturnNode(ParseNode)>>sizeCodeForBlockValue:    Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #testAsSet;             add...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        expr:  {Dictionary new add: #passed -> (Set new add: #testAsArray;             add: #tes...etc...
BlockNode>>sizeCodeForEvaluatedValue:    Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;                 add: #testAsSet;                 ...etc...    Arguments and temporary variables:        encoder:     {an EncoderForV3PlusClosures}    Receiver's instance variables:        comment:     nil        pc:   nil        arguments:    #()        statements:   an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc...        returns:     true        nArgsNode:    nil        size:  nil        remoteCopyNode:     nil        temporaries:   an OrderedCollection()        optimized:    false        actualScopeIfOptimized:     nil        blockExtent:   (0 to: 2)        remoteTempNode:     nil        copiedValues:  nil        closureCreationNode:   nil        startOfLastStatement:  16
BytecodeAgnosticMethodNode>>generate:    Receiver: lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #testAsArray;                 add: #tes...etc...    Arguments and temporary variables:        trailer:     #(0 0 0 0)        primErrNode:   nil        blkSize:     nil        nLits:  nil        literals:    nil        stack:  nil        method:     nil        locals:     nil        lit:   nil    Receiver's instance variables:        comment:     nil        pc:   nil        selectorOrFalse:     #lastStoredRun        precedence:   1        arguments:    #()        block:  {[^ Dictionary new add: #passed -> (Set new add: #testAsArray;                 add:...etc...        primitive:    0        encoder:     {an EncoderForV3PlusClosures}        temporaries:   #()        properties:   an AdditionalMethodState        sourceText:   'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc...        locationCounter:     3        localsPool:   an IdentitySet()
CompiledMethodWithNode class>>generateMethodFromNode:trailer:    Receiver: CompiledMethodWithNode    Arguments and temporary variables:        aMethodNode:   lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #tes...etc...        bytes:  #(0 0 0 0)    Receiver's instance variables:        superclass:   Object        methodDict:   a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc...        format:     134        instanceVariables:    #('node' 'method')        organization:  ('accessing' method node selector) ('private' method: node:)
       subclasses:   nil        name:  #CompiledMethodWithNode        classPool:    nil        sharedPools:   nil        environment:   Smalltalk        category:    #'Compiler-Support'        traitComposition:    nil        localSelectors:     nil
Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail:    Receiver: StringTest class    Arguments and temporary variables:        code:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        requestor:    nil        bytes:  #(0 0 0 0)        failBlock:    [closure] in Metaclass (ClassDescription)>>compile:classified:withSta...etc...        methodNode:   lastStoredRun    ^ Dictionary new add: #passed -> (Set new add: #test...etc...    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)
compile:classified:withStamp:notifying:logSource:    Receiver: StringTest class    Arguments and temporary variables:        text:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        changeStamp:   'CesarRabak 11/30/2009 17:26'        requestor:    nil        logSource:    true        methodAndNode:  nil    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)>>compile:classified:withStamp:notifying:    Receiver: StringTest class    Arguments and temporary variables:        text:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        changeStamp:   'CesarRabak 11/30/2009 17:26'        requestor:    nil    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)>>compile:classified:notifying:    Receiver: StringTest class    Arguments and temporary variables:        text:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        category:    'history'        requestor:    nil        stamp:  'CesarRabak 11/30/2009 17:26'    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
Metaclass(ClassDescription)>>compile:classified:    Receiver: StringTest class    Arguments and temporary variables:        code:  'lastStoredRun    ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...        heading:     'history'    Receiver's instance variables:        superclass:   CollectionRootTest class        methodDict:   a MethodDictionary()        format:     158        instanceVariables:    nil        organization:  ('as yet unclassified')
       thisClass:    StringTest        traitComposition:    TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc...        localSelectors:     nil
StringTest class(TestCase class)>>generateLastStoredRunMethod    Receiver: StringTest    Arguments and temporary variables:
   Receiver's instance variables:        superclass:   CollectionRootTest        methodDict:   a MethodDictionary(size 321)        format:     158        instanceVariables:    #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc...        organization:  ('initialization' setUp) ('requirements' aValue anIndex anotherEl...etc...        subclasses:   nil        name:  #StringTest        classPool:    nil        sharedPools:   nil        environment:   Smalltalk        category:    #'CollectionsTests-Text'        traitComposition:    TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc...        localSelectors:     an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc...        history:     a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc...
[] in TestRunner>>storeResultIntoTestCases    Receiver: a TestRunner    Arguments and temporary variables:        testCaseCls:   StringTest    Receiver's instance variables:        categories:   #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...        categoriesSelected:   a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc...        classes:     {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...        classIndex:   0        classesSelected:     a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...        failedList:   #()        failedSelected:     nil        errorList:    #()        errorSelected:  nil        lastUpdate:   3437054762        result:     4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...        previousRun:   nil
Set>>do:    Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc...    Arguments and temporary variables:        aBlock:     [closure] in TestRunner>>storeResultIntoTestCases        index:  364        each:  StringTest        indexLimiT:   6638    Receiver's instance variables:        tally:  49        array:  {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc...
TestRunner>>storeResultIntoTestCases    Receiver: a TestRunner    Arguments and temporary variables:
   Receiver's instance variables:        categories:   #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...        categoriesSelected:   a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc...        classes:     {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...        classIndex:   0        classesSelected:     a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...        failedList:   #()        failedSelected:     nil        errorList:    #()        errorSelected:  nil        lastUpdate:   3437054762        result:     4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...        previousRun:   nil
TestRunner>>perform:orSendTo:    Receiver: a TestRunner    Arguments and temporary variables:        selector:    #storeResultIntoTestCases        otherTarget:   a PluggableTextMorphPlus(3170)    Receiver's instance variables:        categories:   #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc...        categoriesSelected:   a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc...        classes:     {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc...        classIndex:   0        classesSelected:     a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc...        failedList:   #()        failedSelected:     nil        errorList:    #()        errorSelected:  nil        lastUpdate:   3437054762        result:     4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc...        previousRun:   nil
[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:    Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference'    Arguments and temporary variables:        evt:   [675@67 mouseUp 21933765 nil]        selArgCount:   #(2)    Receiver's instance variables:        bounds:     613@54 corner: 836@70        owner:  a MenuMorph(2400)        submorphs:    #()        fullBounds:   613@54 corner: 836@70        color:  Color black        extension:    a MorphExtension (2845) [other: (layoutProperties -> a LayoutProper...etc...        font:  a LogicalFont familyName: DejaVu Sans emphasis: nil pointSize: 10 rea...etc...        emphasis:    0        contents:    'Store result as progress reference'        hasFocus:    false        isEnabled:    true        subMenu:     nil        isSelected:   false        target:     a TestRunner        selector:    #perform:orSendTo:        arguments:    an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170))        icon:  nil        getStateSelector:    nil        enablementSelector:   nil        keyText:     nil
BlockClosure>>ensure: Â Â Â Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)
invokeWithEvent:    Arguments and temporary variables:        aBlock:     [closure] in CursorWithMask(Cursor) showWhile:        returnValue:   nil        b:    nil    Receiver's instance variables:        outerContext:  ToggleMenuItemMorph(MenuItemMorph) invokeWithEvent:        startpc:     136        numArgs:     0
CursorWithMask(Cursor)>>showWhile:    Receiver: ((CursorWithMask    extent: 16@16    depth: 1    fromArray: #(        2r0        2r10000000000000000000000...etc...    Arguments and temporary variables:        aBlock:     [closure] in ToggleMenuItemMorph (MenuItemMorph)>>invokeWithEvent:        oldcursor:    ((CursorWithMask    extent: 16@16    depth: 1    fromArray: #(        2r0        2r1...etc...    Receiver's instance variables:        bits:  a Bitmap of length 16        width:  16        height:     16        depth:  1        offset:     -1@-1        maskForm:    Form(16x16x1)
--- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #< EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: EncoderForV3PlusClosures(BytecodeEncoder)
sizeOpcodeSelector:withArguments: EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: LiteralNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: Array(SequenceableCollection)>>collect: MessageNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: CascadeNode(ParseNode)>>sizeCodeForReturn: ReturnNode>>sizeCodeForValue: ReturnNode(ParseNode)>>sizeCodeForBlockValue: BlockNode>>sizeCodeForEvaluatedValue: BytecodeAgnosticMethodNode>>generate: CompiledMethodWithNode class>>generateMethodFromNode:trailer: Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Metaclass(ClassDescription) compile:classified:withStamp:notifying:logSource: Metaclass(ClassDescription)>>compile:classified:withStamp:notifying: Metaclass(ClassDescription)>>compile:classified:notifying: Metaclass(ClassDescription)>>compile:classified: StringTest class(TestCase class)>>generateLastStoredRunMethod [] in TestRunner>>storeResultIntoTestCases Set>>do: TestRunner>>storeResultIntoTestCases TestRunner>>perform:orSendTo: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile:
           - - - - - - - - - - - - - - - - - - ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: WorldState>>doOneSubCycleFor: PasteUpMorph>>doOneSubCycle MenuMorph>>invokeModalAt:in:allowKeyboard: MenuMorph>>invokeModal: MenuMorph>>invokeModal PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity: TextMorphForEditView>>mouseDown: TextMorphForEditView(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TextMorphForEditView(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TransformMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableTextMorphPlus(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableStandardWindow(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: PasteUpMorph>>processEvent:using: PasteUpMorph(Morph)>>processEvent: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess
-- Cesar Rabak
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
-- Â Simon
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
On 30 nov. 2009, at 18:15, Nicolas Cellier wrote:
2009/11/30 Simon Denier <Simon.Denier@inria.fr>:
On 30 nov. 2009, at 16:49, Nicolas Cellier wrote:
Just the full source code would do:
lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc...
Can you be a bit more precise? I feel concerned about this, it's part of something we did with Alex.
Are these auto-generated ?
Yes, these are generated.
If yes, I guess you might easily cross some bytecode limits and produce un-compilable code... I would try to store Sets differently - for example:
#passed -> #(#testSuite #testAssert #testRanOnlyOnce #testFail #testIsNotRerunOnDebug #testDefects #testResult #testDialectLocalizedException #testRunning #testError #testException #testShould #testWithExceptionDo) asSet
ok, thanks for the tip.
Nicolas
Nicolas
2009/11/30 Stéphane Ducasse <stephane.ducasse@inria.fr>:
thanks can you let us knw the exact sequence your did?
Stef
On Nov 30, 2009, at 8:30 PM, csrabak@bol.com.br wrote:
I got a recent dev-image and ran some tests (all CollectionTests if this matter) and attempted to store the result.
30 November 2009 5:26:40 pm
VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.0rc1 [Latest update: #10498]
SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir E:\Pharo Trusted Dir E:\Pharo\Cesar S. Rabak Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak
UndefinedObject(Object)>>doesNotUnderstand: #< Receiver: nil Arguments and temporary variables: aMessage: < 0 exception: MessageNotUnderstood: receiver of "<" is nil resumeValue: nil Receiver's instance variables: nil
EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary-
Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary- Dictionary- {Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
EncoderForV3PlusClosures(BytecodeEncoder)
sizeOpcodeSelector:withArguments: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: genSelector: #genPushLiteral: args: #(nil) Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary- Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary- Dictionary- {Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: Receiver: {an EncoderForV3PlusClosures} Arguments and temporary variables: literalIndex: nil Receiver's instance variables: comment: nil pc: nil scopeTable: a Dictionary('category'->{category} 'classPool'->{classPool} 'envir...etc... nTemps: 0 supered: false requestor: nil class: StringTest class selector: #lastStoredRun literalStream: a WriteStream {#Dictionary-
Dictionary. #add:. #'->'. #passed. #...etc... selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #'->'->{->} #/->{/} #'//'->{/...etc... litIndSet: a Dictionary(#Dictionary- Dictionary- {Dictionary} #Set->Set->{Set} ...etc... litSet: a LiteralDictionary(size 302) sourceRanges: a Dictionary(size 309) globalSourceRanges: an OrderedCollection ({'Dictionary'. (20 to: 29). false} {'S...etc... addedSelectorAndMethodClassLiterals: false stream: {an EncoderForV3PlusClosures} position: 0 rootNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAs...etc... blockExtentsToLocals: nil
LiteralNode>>sizeCodeForValue: Receiver: {#testWithWithWithWith} Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil key: #testWithWithWithWith code: -3 index: nil
[] in MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection ({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil
OrderedCollection>>collect: Receiver: an OrderedCollection({#testWithWithWithWith}) Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: #(nil nil {#testWithWithWithWith} nil nil nil nil nil nil nil) firstIndex: 3 lastIndex: 3
MessageNode>>sizeCodeForValue: Receiver: { add: #testWithWithWithWith} Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection ({#testWithWithWithWith}) sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: { add: #testWithWithWithWith} size: {an EncoderForV3PlusClosures} aMessage: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
OrderedCollection>>do: Receiver: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCollectio...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 252 Receiver's instance variables: array: an Array({ add: #testAsArray} { add: #testAsSet} { add: #testAsSortedCol...etc... firstIndex: 1 lastIndex: 294
CascadeNode>>sizeCodeForValue: Receiver: {Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; add: #tes...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(1506) Receiver's instance variables: comment: nil pc: nil receiver: {Set new} messages: an OrderedCollection({ add: #testAsArray} { add: #testAsSet} { add: #...etc...
[] in MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
Array(SequenceableCollection)>>collect: Receiver: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: #(nil) index: 1 indexLimiT: 1 Receiver's instance variables: an Array({Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollection; ...etc...
MessageNode>>sizeCodeForValue: Receiver: {#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedCollectio...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: {#passed} selector: {->} precedence: 2 special: 0 arguments: an Array({Set new add: #testAsArray; add: #testAsSet; add: #test...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
OrderedCollection>>collect: Receiver: an OrderedCollection({#passed -> (Set new add: #testAsArray; add: #testAsSet; add: #...etc... Arguments and temporary variables: aBlock: [closure] in MessageNode>>sizeCodeForValue: newCollection: an OrderedCollection() index: 3 Receiver's instance variables: array: an Array(nil nil {#passed -> (Set new add: #testAsArray; add: #testAs...etc... firstIndex: 3 lastIndex: 3
MessageNode>>sizeCodeForValue: Receiver: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: #testAsSortedC...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: comment: nil pc: nil receiver: nil selector: {add:} precedence: 3 special: 0 arguments: an OrderedCollection({#passed -> (Set new add: #testAsArray; add:...etc... sizes: #(nil) equalNode: nil caseErrorNode: nil
[] in CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: { add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... size: {an EncoderForV3PlusClosures} aMessage: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; ...etc...
OrderedCollection>>do: Receiver: an OrderedCollection({ add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: aBlock: [closure] in CascadeNode>>sizeCodeForValue: index: 3 Receiver's instance variables: array: an Array(nil nil { add: #passed -> (Set new add: #testAsArray; add: ...etc... firstIndex: 3 lastIndex: 7
CascadeNode>>sizeCodeForValue: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} size: #(10) Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; ...etc...
CascadeNode(ParseNode)>>sizeCodeForReturn: Receiver: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add: ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil receiver: {Dictionary new} messages: an OrderedCollection({ add: #passed -
(Set new add: #testAsArray; ...etc...
ReturnNode>>sizeCodeForValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc...
ReturnNode(ParseNode)>>sizeCodeForBlockValue: Receiver: {^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; add...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil expr: {Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc...
BlockNode>>sizeCodeForEvaluatedValue: Receiver: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #testAsSet; ...etc... Arguments and temporary variables: encoder: {an EncoderForV3PlusClosures} Receiver's instance variables: comment: nil pc: nil arguments: #() statements: an OrderedCollection({^ Dictionary new add: #passed -> (Set new add...etc... returns: true nArgsNode: nil size: nil remoteCopyNode: nil temporaries: an OrderedCollection() optimized: false actualScopeIfOptimized: nil blockExtent: (0 to: 2) remoteTempNode: nil copiedValues: nil closureCreationNode: nil startOfLastStatement: 16
BytecodeAgnosticMethodNode>>generate: Receiver: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #testAsArray; add: #tes...etc... Arguments and temporary variables: trailer: #(0 0 0 0) primErrNode: nil blkSize: nil nLits: nil literals: nil stack: nil method: nil locals: nil lit: nil Receiver's instance variables: comment: nil pc: nil selectorOrFalse: #lastStoredRun precedence: 1 arguments: #() block: {[^ Dictionary new add: #passed -> (Set new add: #testAsArray; add:...etc... primitive: 0 encoder: {an EncoderForV3PlusClosures} temporaries: #() properties: an AdditionalMethodState sourceText: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: ...etc... locationCounter: 3 localsPool: an IdentitySet()
CompiledMethodWithNode class>>generateMethodFromNode:trailer: Receiver: CompiledMethodWithNode Arguments and temporary variables: aMethodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #tes...etc... bytes: #(0 0 0 0) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#method->a CompiledMethod(650: CompiledMethodWit...etc... format: 134 instanceVariables: #('node' 'method') organization: ('accessing' method node selector) ('private' method: node:)
subclasses: nil name: #CompiledMethodWithNode classPool: nil sharedPools: nil environment: Smalltalk category: #'Compiler-Support' traitComposition: nil localSelectors: nil
Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil bytes: #(0 0 0 0) failBlock: [closure] in Metaclass (ClassDescription)>>compile:classified:withSta...etc... methodNode: lastStoredRun ^ Dictionary new add: #passed -> (Set new add: #test...etc... Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)
compile:classified:withStamp:notifying:logSource: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil logSource: true methodAndNode: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)
compile:classified:withStamp:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' changeStamp: 'CesarRabak 11/30/2009 17:26' requestor: nil Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified:notifying: Receiver: StringTest class Arguments and temporary variables: text: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... category: 'history' requestor: nil stamp: 'CesarRabak 11/30/2009 17:26' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
Metaclass(ClassDescription)>>compile:classified: Receiver: StringTest class Arguments and temporary variables: code: 'lastStoredRun ^ ((Dictionary new) add: (#passed->((Set new) add: #testA...etc... heading: 'history' Receiver's instance variables: superclass: CollectionRootTest class methodDict: a MethodDictionary() format: 158 instanceVariables: nil organization: ('as yet unclassified')
thisClass: StringTest traitComposition: TIncludesTest classTrait + TCloneTest classTrait + TCopyTest ...etc... localSelectors: nil
StringTest class(TestCase class)>>generateLastStoredRunMethod Receiver: StringTest Arguments and temporary variables:
Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 321) format: 158 instanceVariables: #('string' 'emptyString' 'elementInNonEmpty' 'notIn' 'subcol...etc... organization: ('initialization' setUp) ('requirements' aValue anIndex anotherEl...etc... subclasses: nil name: #StringTest classPool: nil sharedPools: nil environment: Smalltalk category: #'CollectionsTests-Text' traitComposition: TIncludesTest + TCloneTest + TCopyTest + TSetArithmetic + TIt...etc... localSelectors: an IdentitySet(#elementNotIn #firstIndex #replacementCollection...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set(#testA...etc...
[] in TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables: testCaseCls: StringTest Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
Set>>do: Receiver: a Set(RunArrayTest SmallDictionaryTest StringTest WeakKeyToCollectionDictionaryTest ArrayT...etc... Arguments and temporary variables: aBlock: [closure] in TestRunner>>storeResultIntoTestCases index: 364 each: StringTest indexLimiT: 6638 Receiver's instance variables: tally: 49 array: {nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. nil. n...etc...
TestRunner>>storeResultIntoTestCases Receiver: a TestRunner Arguments and temporary variables:
Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
TestRunner>>perform:orSendTo: Receiver: a TestRunner Arguments and temporary variables: selector: #storeResultIntoTestCases otherTarget: a PluggableTextMorphPlus(3170) Receiver's instance variables: categories: #(#'AST-Tests' #'AutomaticMethodCategorizer-Tests' #'AutomaticMetho...etc... categoriesSelected: a Set(#'CollectionsTests- Support' #'CollectionsTests-Weak' ...etc... classes: {Base64MimeConverterTest. ByteArrayTest. CharacterSetTest. Association...etc... classIndex: 0 classesSelected: a Set(TextAndTextStreamTest WideStringTest WriteStreamTest Ide...etc... failedList: #() failedSelected: nil errorList: #() errorSelected: nil lastUpdate: 3437054762 result: 4978 run, 4978 passes, 0 expected failures, 0 failures, 0 errors, 0 une...etc... previousRun: nil
[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(2690)'Store result as progress reference' Arguments and temporary variables: evt: [675@67 mouseUp 21933765 nil] selArgCount: #(2) Receiver's instance variables: bounds: 613@54 corner: 836@70 owner: a MenuMorph(2400) submorphs: #() fullBounds: 613@54 corner: 836@70 color: Color black extension: a MorphExtension (2845) [other: (layoutProperties -> a LayoutProper...etc... font: a LogicalFont familyName: DejaVu Sans emphasis: nil pointSize: 10 rea...etc... emphasis: 0 contents: 'Store result as progress reference' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: a TestRunner selector: #perform:orSendTo: arguments: an Array(#storeResultIntoTestCases a PluggableTextMorphPlus(3170)) icon: nil getStateSelector: nil enablementSelector: nil keyText: nil
BlockClosure>>ensure: Receiver: [closure] in ToggleMenuItemMorph(MenuItemMorph)
invokeWithEvent: Arguments and temporary variables: aBlock: [closure] in CursorWithMask(Cursor) showWhile: returnValue: nil b: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph) invokeWithEvent: startpc: 136 numArgs: 0
CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r10000000000000000000000...etc... Arguments and temporary variables: aBlock: [closure] in ToggleMenuItemMorph (MenuItemMorph)>>invokeWithEvent: oldcursor: ((CursorWithMask extent: 16@16 depth: 1 fromArray: #( 2r0 2r1...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: -1@-1 maskForm: Form(16x16x1)
--- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #< EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral: EncoderForV3PlusClosures(BytecodeEncoder)
sizeOpcodeSelector:withArguments: EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral: LiteralNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: Array(SequenceableCollection)>>collect: MessageNode>>sizeCodeForValue: [] in MessageNode>>sizeCodeForValue: OrderedCollection>>collect: MessageNode>>sizeCodeForValue: [] in CascadeNode>>sizeCodeForValue: OrderedCollection>>do: CascadeNode>>sizeCodeForValue: CascadeNode(ParseNode)>>sizeCodeForReturn: ReturnNode>>sizeCodeForValue: ReturnNode(ParseNode)>>sizeCodeForBlockValue: BlockNode>>sizeCodeForEvaluatedValue: BytecodeAgnosticMethodNode>>generate: CompiledMethodWithNode class>>generateMethodFromNode:trailer: Metaclass(Behavior)>>compile:classified:notifying:trailer:ifFail: Metaclass(ClassDescription) compile:classified:withStamp:notifying:logSource: Metaclass(ClassDescription) compile:classified:withStamp:notifying: Metaclass(ClassDescription)>>compile:classified:notifying: Metaclass(ClassDescription)>>compile:classified: StringTest class(TestCase class)>>generateLastStoredRunMethod [] in TestRunner>>storeResultIntoTestCases Set>>do: TestRunner>>storeResultIntoTestCases TestRunner>>perform:orSendTo: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile:
- - - - - - - - - - - - - - - - - - ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: WorldState>>doOneSubCycleFor: PasteUpMorph>>doOneSubCycle MenuMorph>>invokeModalAt:in:allowKeyboard: MenuMorph>>invokeModal: MenuMorph>>invokeModal PluggableTextMorphPlus(PluggableTextMorph)>>yellowButtonActivity: TextMorphForEditView>>mouseDown: TextMorphForEditView(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TextMorphForEditView(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TransformMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableTextMorphPlus(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableStandardWindow(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: PasteUpMorph>>processEvent:using: PasteUpMorph(Morph)>>processEvent: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess
-- Cesar Rabak
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo- project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
-- Simon
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
-- Simon
I ran the tests (all Collection related [4986] ones) then I action-clicked in the upper right pane (which when I started was all green ;-). The Test Runner offered a three choices menu, the middle one (which I was interested in) "Store result as progress reference", the I clicked there and... MNU Em 30/11/2009 17:36, Stéphane Ducasse <stephane.ducasse@inria.fr> escreveu: thanks can you let us knw the exact sequence your did? Stef
participants (4)
-
csrabak@bol.com.br -
Nicolas Cellier -
Simon Denier -
Stéphane Ducasse