[Vm-dev] VM Maker: VMMaker.oscog-eem.1017.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.1017.mcz

==================== Summary ====================

Name: VMMaker.oscog-eem.1017
Author: eem
Time: 14 January 2015, 10:59:37.787 am
UUID: 5684df46-8489-43e5-b2ac-6406ef739cf5
Ancestors: VMMaker.oscog-eem.1016

Add an assert to check for forwarding in
wakeHighestPriority to hunt bug CM is seeing.

Comment typo

=============== Diff against VMMaker.oscog-eem.1016 ===============

Item was changed:
  ----- Method: SpurMemoryManager>>formatOf: (in category 'object access') -----
  formatOf: objOop
  	"0 = 0 sized objects (UndefinedObject True False et al)
  	 1 = non-indexable objects with inst vars (Point et al)
  	 2 = indexable objects with no inst vars (Array et al)
  	 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al)
  	 4 = weak indexable objects with inst vars (WeakArray et al)
  	 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron)
  	 6 unused, reserved for exotic pointer objects?
  	 7 Forwarded Object, 1st field is pointer, rest of fields are ignored
  	 8 unused, reserved for exotic non-pointer objects?
  	 9 (?) 64-bit indexable
  	 10 - 11 32-bit indexable	(11 unused in 32 bits)
  	 12 - 15 16-bit indexable	(14 & 15 unused in 32-bits)
  	 16 - 23 byte indexable		(20-23 unused in 32-bits)
+ 	 24 - 31 compiled method	(28-31 unused in 32-bits)"
- 	 24 - 31 compiled method	(28-21 unused in 32-bits)"
  	^(self longAt: objOop) >> self formatShift bitAnd: self formatMask!

Item was changed:
  ----- Method: StackInterpreter>>isLiveContext: (in category 'frame access') -----
  isLiveContext: oop
  	"Answer if the argument, which can be any object, is a live context."
+ 	self deny: (objectMemory isOopForwarded: oop).
  	(objectMemory isContext: oop) ifFalse:
  		[^false].
  	(self isSingleContext: oop) ifTrue:
  		[^objectMemory isIntegerObject: (objectMemory fetchPointer: InstructionPointerIndex ofObject: oop)].
  	^(self isWidowedContext: oop) not!