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: #()!
vm-dev@lists.squeakfoundation.org