[Vm-dev] VM Maker: VMMaker.oscog-eem.3312.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Mar 18 02:24:42 UTC 2023
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3312.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.3312
Author: eem
Time: 17 March 2023, 7:24:26.948309 pm
UUID: fe99b8e8-d402-49d2-a547-ec40f2407e0f
Ancestors: VMMaker.oscog-eem.3311
Merge VMMaker.oscog.seperateMarking-eem.3321:
Fix printStackPage:useCount: in the simulator.
=============== Diff against VMMaker.oscog-eem.3311 ===============
Item was changed:
----- Method: StackInterpreter>>printStackPage:useCount: (in category 'debug printing') -----
printStackPage: page useCount: n
<inline: false>
<var: #page type: #'StackPage *'>
+ self cCode: '' inSmalltalk: [page isInteger ifTrue: [^self printStackPage: (stackPages stackPageFor: page) useCount: n]].
+ self print: 'page ';
+ printHexPtrnp: (self cCode: [page] inSmalltalk: [page baseAddress]);
- self print: 'page '; printHexPtrnp: (self cCode: [page] inSmalltalk: [page baseAddress]);
print: ' ('; printNum: (stackPages pageIndexFor: page realStackLimit).
n >= 0 ifTrue:
[self print: ','; printNum: n].
self print: ') (trace: '; printNum: page trace; printChar: $).
(stackPages isFree: page) ifTrue:
[self print: ' (free)'].
page = stackPages mostRecentlyUsedPage ifTrue:
[self print: ' (MRU)'].
page prevPage = stackPages mostRecentlyUsedPage ifTrue:
[self print: ' (LRU)'].
self cr; tab; print: 'ba: ';
printHexPtrnp: page baseAddress; print: ' - sl: ';
printHexPtrnp: page realStackLimit; print: ' - sl-so: ';
printHexPtrnp: page realStackLimit - self stackLimitOffset; print: ' - la:';
printHexPtrnp: page lastAddress.
(stackPages isFree: page) ifFalse:
[self cr; tab; print: 'baseFP '; printHexPtrnp: page baseFP.
self "cr;" tab; print: 'headFP '; printHexPtrnp: page headFP.
self "cr;" tab; print: 'headSP '; printHexPtrnp: page headSP].
self cr; tab; print: 'prev '; printHexPtrnp: (self cCode: 'page->prevPage' inSmalltalk: [page prevPage baseAddress]);
print: ' ('; printNum: (stackPages pageIndexFor: page prevPage realStackLimit); printChar: $).
self tab; print: 'next '; printHexPtrnp: (self cCode: 'page->nextPage' inSmalltalk: [page nextPage baseAddress]);
print: ' ('; printNum: (stackPages pageIndexFor: page nextPage realStackLimit); printChar: $).
self cr!
More information about the Vm-dev
mailing list