[Vm-dev] VM Maker: VMMaker.oscog-eem.173.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jun 26 16:43:07 UTC 2012
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!
More information about the Vm-dev
mailing list