VM Maker: VMMaker.oscog-eem.2644.mcz

 
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2644.mcz

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

Name: VMMaker.oscog-eem.2644
Author: eem
Time: 28 December 2019, 3:15:24.53656 pm
UUID: 805f6c57-b207-47be-a317-5df317516d88
Ancestors: VMMaker.oscog-eem.2643

lookup32BitWordConstant: needs to be more robust.

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

Item was changed:
  ----- Method: SpurMemoryManager>>lookup32BitWordConstant: (in category 'simulation only') -----
  lookup32BitWordConstant: word
  "If word appears to be a class index answer the class name, otherwise answer nil.
  For code disassembly"
  <doNotGenerate>
  | class classSize classNameIndex thisClassIndex |
+ (word between: 1 and: self classIndexMask) ifFalse:
+ [^nil].
  class := self noCheckClassAtIndex: word.
  (class isNil or: [class = nilObj]) ifTrue:
  [^nil]. "address is either a class or a metaclass, or an instance of a class or invalid.  determine which."
  classNameIndex := coInterpreter classNameIndex.
  thisClassIndex := coInterpreter thisClassIndex.
  ((classSize := self numSlotsOf: class) <= (classNameIndex max: thisClassIndex)
  or: [classSize > 255]) ifTrue:
  [^nil].
  "Address could be a class or a metaclass"
  (self lookupAddress: (self fetchPointer: classNameIndex ofObject: class)) ifNotNil:
  [:maybeClassName| ^maybeClassName allButFirst].
  (self lookupAddress: (self fetchPointer: thisClassIndex ofObject: class)) ifNotNil:
  [:maybeClassName| ^maybeClassName allButFirst, ' class'].!