[Vm-dev] VM Maker: VMMaker.oscog-eem.1440.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 20 20:54:08 UTC 2015
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1440.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.1440
Author: eem
Time: 20 August 2015, 1:44:11.242 pm
UUID: afa0373e-0470-4a3b-bdac-0345416dbe0e
Ancestors: VMMaker.oscog-eem.1439
Fix use count printing in printStackPagesInUse et al.
Nuke the unnecerssary Glue configurations. One can already override EnforceAccessControl on the command line.
=============== Diff against VMMaker.oscog-eem.1439 ===============
Item was changed:
----- Method: StackInterpreter>>printStackPageListInUse (in category 'debug printing') -----
printStackPageListInUse
| page n |
<inline: false>
<var: #page type: #'StackPage *'>
page := stackPages mostRecentlyUsedPage.
n := 0.
[(stackPages isFree: page) ifFalse:
+ [self printStackPage: page useCount: (n := n + 1); cr].
- [self printStackPage: page useCount: n; cr.
- n := n + 1].
(page := page prevPage) ~= stackPages mostRecentlyUsedPage] whileTrue!
Item was changed:
----- Method: StackInterpreter>>printStackPagesInUse (in category 'debug printing') -----
printStackPagesInUse
| n |
n := 0.
0 to: numStackPages - 1 do:
[:i|
(stackPages isFree: (stackPages stackPageAt: i)) ifFalse:
+ [self printStackPage: (stackPages stackPageAt: i) useCount: (n := n + 1); cr]]!
- [self printStackPage: (stackPages stackPageAt: i) useCount: n; cr.
- n := n + 1]]!
Item was removed:
- ----- Method: VMMaker class>>generateAllGlueConfigurationsUnderVersionControl (in category 'configurations') -----
- generateAllGlueConfigurationsUnderVersionControl
- self generateGlueSpurStackVM;
- generateGlueSpurCogVM!
Item was removed:
- ----- Method: VMMaker class>>generateGlueSpurCogVM (in category 'configurations') -----
- generateGlueSpurCogVM
- "No primitives since we can use those from the Cog Spur Newspeak VM"
- ^VMMaker
- generate: CoInterpreter
- and: StackToRegisterMappingCogit
- with: #( ObjectMemory Spur32BitCoMemoryManager
- MULTIPLEBYTECODESETS true
- NewspeakVM true
- EnforceAccessControl false)
- to: (FileDirectory default directoryNamed: self sourceTree, '/nsnacspursrc') fullName
- platformDir: (FileDirectory default directoryNamed: self sourceTree, '/platforms') fullName
- including: #()!
Item was removed:
- ----- Method: VMMaker class>>generateGlueSpurStackVM (in category 'configurations') -----
- generateGlueSpurStackVM
- "No primitives since we can use those from the Cog Spur Newspeak VM"
- ^VMMaker
- generate: StackInterpreter
- with: #( ObjectMemory Spur32BitMemoryManager
- MULTIPLEBYTECODESETS true
- NewspeakVM true
- FailImbalancedPrimitives false
- EnforceAccessControl false)
- to: (FileDirectory default directoryNamed: self sourceTree, '/nsnacspurstacksrc') fullName
- platformDir: (FileDirectory default directoryNamed: self sourceTree, '/platforms') fullName
- including: #()!
More information about the Vm-dev
mailing list