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

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

Name: VMMaker.oscog-eem.2706
Author: eem
Time: 4 February 2020, 5:56:30.188439 pm
UUID: e99996b1-463c-4cb8-878e-833d5286269f
Ancestors: VMMaker.oscog-eem.2705

Simulation: Fix printRumpCStack and have it be more informative.

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

Item was changed:
  ----- Method: CogVMSimulator>>printRumpCStackTo: (in category 'rump c stack') -----
  printRumpCStackTo: address
  	self assert: (self isOnRumpCStack: address).
+ 	address
+ 		to: heapBase - self rumpCStackSize
- 	heapBase - objectMemory wordSize
- 		to: address
  		by: objectMemory wordSize negated
+ 		do: [:addr| | label |
- 		do:
- 			[:addr|
  			self printHex: addr.
+ 			addr = cogit processor sp ifTrue: [label := ' sp'].
+ 			addr = cogit processor fp ifTrue: [label := (label ifNil: [''] ifNotNil: [label, ',']), 'fp'].
+ 			addr = CStackPointer ifTrue: [label := (label ifNil: [''] ifNotNil: [label, ',']), 'CSP'].
+ 			addr = CFramePointer ifTrue: [label := (label ifNil: [''] ifNotNil: [label, ',']), 'CFP'].
+ 			label ifNil: [self tab] ifNotNil: [self print: ' ', label, '->'].
- 			addr = cogit processor sp
- 				ifTrue: [self print: ' sp->']
- 				ifFalse:
- 					[addr = cogit processor fp
- 						ifTrue: [self print: ' fp->']
- 						ifFalse: [self tab]].
  			self tab; printHex: (objectMemory longAt: addr); cr]!