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

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

Name: VMMaker.oscog.seperateMarking-eem.3320
Author: eem
Time: 16 March 2023, 1:30:30.382071 pm
UUID: 8a2b74ee-9ebb-46bf-88a3-b25339d9dba9
Ancestors: VMMaker.oscog.seperateMarking-eem.3319

Finish merge of VMMaker.oscog-eem.3286

=============== Diff against VMMaker.oscog.seperateMarking-eem.3319 ===============

Item was changed:
  ----- Method: CogMethodSurrogate>>cmIsFullBlock (in category 'accessing') -----
  cmIsFullBlock
  	"Answer the value of cpicHasMNUCaseOrCMIsFullBlock"
+ 	self assert: (self isCMMethodEtAl or: [self isCMBlock]).
- 	self assert: (self cmType = CMMethod or: [self cmType = CMBlock]).
  	^SistaV1BytecodeSet
  		ifTrue: [self cpicHasMNUCaseOrCMIsFullBlock]
  		ifFalse: [false]!

Item was changed:
  ----- Method: CogMethodSurrogate>>cpicHasMNUCase (in category 'accessing') -----
  cpicHasMNUCase
  	"Answer if the receiver has an MNU case."
  	<inline: true>
  
  	^SistaV1BytecodeSet
+ 		ifTrue: [self cpicHasMNUCaseOrCMIsFullBlock and: [self isCMClosedPIC]]
- 		ifTrue: [self cpicHasMNUCaseOrCMIsFullBlock and: [self cmType = CMClosedPIC]]
  		ifFalse: [self cpicHasMNUCaseOrCMIsFullBlock]!

Item was added:
+ ----- Method: CogMethodSurrogate>>isCMBlock (in category 'testing') -----
+ isCMBlock
+ 	^self cmType = CMBlock!

Item was added:
+ ----- Method: CogMethodSurrogate>>isCMClosedPIC (in category 'testing') -----
+ isCMClosedPIC
+ 	^self cmType = CMClosedPIC!

Item was added:
+ ----- Method: CogMethodSurrogate>>isCMFree (in category 'testing') -----
+ isCMFree
+ 	^self cmType = CMFree!

Item was added:
+ ----- Method: CogMethodSurrogate>>isCMOpenPIC (in category 'testing') -----
+ isCMOpenPIC
+ 	^self cmType = CMOpenPIC!

Item was changed:
  ----- Method: CogVMSimulator>>ceMNUFromPICMNUMethod:receiver: (in category 'trampolines') -----
  ceMNUFromPICMNUMethod: aMethodObj receiver: rcvr
  	| cPIC |
  	cPIC := self cCoerceSimple: self stackTop - cogit mnuOffset to: #'CogMethod *'.
+ 	self assert: (cPIC isCMClosedPIC or: [cPIC isCMOpenPIC]).
- 	self assert: (cPIC cmType = CMClosedPIC or: [cPIC cmType = CMOpenPIC]).
  	self mnuBreakpoint: cPIC selector receiver: nil.
  	^super ceMNUFromPICMNUMethod: aMethodObj receiver: rcvr!