Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.173.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.173 Author: eem Time: 26 June 2012, 9:40:33.301 am UUID: abe6a6dd-40dd-4e34-98b2-ae778d5f7e03 Ancestors: VMMaker.oscog-eem.172
Fix simulator dev MNUs for unimplemented methods.
=============== Diff against VMMaker.oscog-eem.172 ===============
Item was changed: ----- Method: CogVMSimulator>>doesNotUnderstand: (in category 'error handling') ----- doesNotUnderstand: aMessage "If this is a doit and the objectMemory understands, pass it on." (thisContext findContextSuchThat: [:ctxt| ctxt selector == #evaluate:in:to:notifying:ifFail:logged:]) ifNotNil: + [(objectMemory class whichClassIncludesSelector: aMessage selector) ifNotNil: + [:implementingClass| + (implementingClass inheritsFrom: Object) ifTrue: "i.e. VMClass and below" + [Transcript nextPutAll: 'warning: redirecting to objectMemory'; cr; flush. + aMessage lookupClass: nil. + ^aMessage sentTo: objectMemory]]. + (cogit class whichClassIncludesSelector: aMessage selector) ifNotNil: + [:implementingClass| + (implementingClass inheritsFrom: Object) ifTrue: "i.e. VMClass and below" + [Transcript nextPutAll: 'warning: redirecting to cogit'; cr; flush. + aMessage lookupClass: nil. + ^aMessage sentTo: cogit]]]. - [((objectMemory class whichClassIncludesSelector: aMessage selector) inheritsFrom: Object) ifTrue: "i.e. VMClass and below" - [Transcript nextPutAll: 'warning: redirecting to objectMemory'; cr; flush. - aMessage lookupClass: nil. - ^aMessage sentTo: objectMemory]. - ((cogit class whichClassIncludesSelector: aMessage selector) inheritsFrom: Object) ifTrue: "i.e. VMClass and below" - [Transcript nextPutAll: 'warning: redirecting to cogit'; cr; flush. - aMessage lookupClass: nil. - ^aMessage sentTo: cogit]]. ^super doesNotUnderstand: aMessage!
Item was changed: ----- Method: StackInterpreterSimulator>>doesNotUnderstand: (in category 'error handling') ----- doesNotUnderstand: aMessage "If this is a doit and the objectMemory understands, pass it on." (thisContext findContextSuchThat: [:ctxt| ctxt selector == #evaluate:in:to:notifying:ifFail:logged:]) ifNotNil: + [(objectMemory class whichClassIncludesSelector: aMessage selector) ifNotNil: + [:implementingClass| + (implementingClass inheritsFrom: Object) ifTrue: "i.e. VMClass and below" + [Transcript nextPutAll: 'warning: redirecting to objectMemory'; cr; flush. + aMessage lookupClass: nil. + ^aMessage sentTo: objectMemory]]]. - [((objectMemory class whichClassIncludesSelector: aMessage selector) inheritsFrom: Object) ifTrue: "i.e. VMClass and below" - [Transcript nextPutAll: 'warning: redirecting to objectMemory'; cr; flush. - aMessage lookupClass: nil. - ^aMessage sentTo: objectMemory]]. ^super doesNotUnderstand: aMessage!
vm-dev@lists.squeakfoundation.org