[Vm-dev] VM Maker: VMMaker.oscog-mt.3175.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-mt.3175.mcz

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

Name: VMMaker.oscog-mt.3175
Author: mt
Time: 6 April 2022, 2:14:07.177017 pm
UUID: c104df7c-e900-5145-9ec3-3164112c3841
Ancestors: VMMaker.oscog-eem.3174

Updates generated accessors for CogNewspeakMethodSurrogate so that code generation of Newspeak sources can be clean.

(Maybe this should end up in a "*autogenerated" category so that it does not have to be committed?)

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

Item was changed:
  ----- Method: CogNewspeakMethodSurrogate32>>nextMethodOrIRCs: (in category 'accessing generated') -----
  nextMethodOrIRCs: aValue
  	
  	| index delta |
  	index := address + 20 + baseHeaderSize.
  	(delta := cogit getCodeToDataDelta) > 0 ifTrue:
  		[self assert: (cogit addressIsInCodeZone: address - delta).
  		 objectMemory
  			long32At: index - delta
+ 			put: aValue].
- 			put: ((aValue ifNotNil: [aValue asUnsignedInteger] ifNil: [0]))].
  	^objectMemory
  		long32At: index
+ 		put: aValue!
- 		put: ((aValue ifNotNil: [aValue asUnsignedInteger] ifNil: [0]))!

Item was changed:
  ----- Method: CogNewspeakMethodSurrogate64>>nextMethodOrIRCs: (in category 'accessing generated') -----
  nextMethodOrIRCs: aValue
  	
  	| index delta |
  	index := address + 32 + baseHeaderSize.
  	(delta := cogit getCodeToDataDelta) > 0 ifTrue:
  		[self assert: (cogit addressIsInCodeZone: address - delta).
  		 objectMemory
  			long64At: index - delta
+ 			put: aValue].
- 			put: ((aValue ifNotNil: [aValue asUnsignedInteger] ifNil: [0]))].
  	^objectMemory
  		long64At: index
+ 		put: aValue!
- 		put: ((aValue ifNotNil: [aValue asUnsignedInteger] ifNil: [0]))!