[Vm-dev] VM Maker: VMMaker.oscog-eem.173.mcz

[commits at source.squeak.org]

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!