here insert explanation of what you were doing, suspect changes you've made and so forth.

[lets see if I can do this right this time... Okay, I think I got it to work but this "Mister Postman" application still has HORRIBLE, usibility deficits.. It relies on the user's clarvoyance in knowing to hit "alt-S" to make it do what every other mail application in the known universe does automaticly... ]

I was attempting to generate a 3.8 VM on a squeaky 3.8 image, I did my normal routine of heaping on all of the plugins as internal, -- I don't trust ld.so at all and think that its authors are among the most evil people ever to sit down at a keyboard...

I was supprised to get a debug box during this excercise...

I think what's going on is that a receient refactoring of Symbol broke the first line of MessageNode>> asTranslatorNode...

The missing symbol #key is, I beleive, a "red herring" because the CPU should have taken the ifTrue path... I think the code "isMemberOf:" should be replaced with something like "isMemberOrSubclassOf:"... But I don't know if that method exists or what its name is...

2 June 2004 2:51:37 pm

VM: unix - a SmalltalkImage Image: Squeak3.8 [latest update: #6665]

SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/atg/source/trunk/test Trusted Dir /home/atg/source/trunk/test/secure Untrusted Dir /home/atg/source/trunk/test/untrusted

ByteSymbol(Object)>>doesNotUnderstand: #key Receiver: #ifTrue:ifFalse: Arguments and temporary variables: aMessage: key Receiver's instance variables: #ifTrue:ifFalse:

MessageNode>>asTranslatorNode Receiver: {self hasEdgeTransform ifTrue: [self transformPoint: point into: point] ifFalse: [point ...etc... Arguments and temporary variables: sel: nil args: nil i: nil Receiver's instance variables: comment: nil pc: nil receiver: {self hasEdgeTransform} selector: #ifTrue:ifFalse: precedence: 3 special: 4 arguments: an OrderedCollection({[self transformPoint: point into: point]} {[po...etc... sizes: #(nil nil) equalNode: nil caseErrorNode: nil

[] in BlockNode>>asTranslatorNode {[:s | newS := s asTranslatorNode. newS isStmtList ifTrue: [statementList...]} Arguments and temporary variables: statementList: an OrderedCollection(self var: #point declareC: 'int *point') newS: self var: #point declareC: 'int *point' s: {self hasEdgeTransform ifTrue: [self transformPoint: point into: point] if...etc... arg: nil

OrderedCollection>>do: Receiver: an OrderedCollection({self var: #point declareC: 'int *point'} {self hasEdgeTransform ifT...etc... Arguments and temporary variables: aBlock: [] in BlockNode>>asTranslatorNode {[:s | newS := s asTranslatorNode. ...etc... index: 4 Receiver's instance variables: array: #(nil nil {self var: #point declareC: 'int *point'} {self hasEdgeTransfo...etc... firstIndex: 3 lastIndex: 5

--- The full stack --- ByteSymbol(Object)>>doesNotUnderstand: #key MessageNode>>asTranslatorNode [] in BlockNode>>asTranslatorNode {[:s | newS := s asTranslatorNode. newS isStmtList ifTrue: [statementList...]} OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - BlockNode>>asTranslatorNode TMethod>>setSelector:args:locals:block:primitive: MethodNode>>asTranslationMethodOfClass: [] in VMPluginCodeGenerator(CCodeGenerator)>>addClass: {[:sel :i | bar value: i. source := aClass sourceCodeAt: sel. self addMe...]} [] in Set>>doWithIndex: {[:item | aBlock2 value: item value: (index := index + 1)]} Set>>do: Set>>doWithIndex: [] in VMPluginCodeGenerator(CCodeGenerator)>>addClass: {[:bar | aClass selectors doWithIndex: [:sel :i | bar value: i. sour...]} [] in ProgressInitiationException>>defaultMorphicAction {[result := workBlock value: progress]} BlockContext>>ensure: ProgressInitiationException>>defaultMorphicAction ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: VMPluginCodeGenerator(CCodeGenerator)>>addClass: BalloonEnginePlugin class(InterpreterPlugin class)>>buildCodeGeneratorUpTo: BalloonEnginePlugin class(InterpreterPlugin class)>>translateInDirectory:doInlining: UnixVMMaker(VMMaker)>>privateGenerateInternalPlugin: [] in UnixVMMaker(VMMaker)>>generateInternalPlugins {[:plugin | self privateGenerateInternalPlugin: plugin]} [] in UnixVMMaker(VMMaker)>>plugins:do: {[:sym | (Smalltalk hasClassNamed: sym) ifTrue: [aBlock value: (Smallta...]} SortedCollection(OrderedCollection)>>do: UnixVMMaker(VMMaker)>>plugins:do: UnixVMMaker(VMMaker)>>internalPluginsDo: UnixVMMaker(VMMaker)>>generateInternalPlugins UnixVMMaker(VMMaker)>>generateMainVM UnixVMMaker(VMMaker)>>generateEntire [] in VMMakerTool>>generateAll {[vmMaker generateEntire]} BlockContext>>on:do: VMMakerTool>>generateAll [] in SimpleButtonMorph>>doButtonAction {[target perform: actionSelector withArguments: arguments]} BlockContext>>ensure: CursorWithMask(Cursor)>>showWhile: SimpleButtonMorph>>doButtonAction SimpleButtonMorph>>mouseUp: SimpleButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: SimpleButtonMorph(Morph)>>handleEvent: ...etc...