Eliot Miranda uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-eem.39.mcz
==================== Summary ====================
Name: SystemReporter-eem.39 Author: eem Time: 31 October 2018, 2:42:33.87259 pm UUID: b7c74979-b810-4435-aa83-81b55ba493e1 Ancestors: SystemReporter-eem.38
Add (how) "To Build A Similar Virtual Machine" information to the VM General tab in the SystemReporter.
=============== Diff against SystemReporter-eem.38 ===============
Item was changed: ----- Method: SystemReporter>>reportVM: (in category 'reporting') ----- reportVM: aStream + | howToBuild | self header: 'Virtual Machine' on: aStream. aStream + nextPutAll: Smalltalk vm vmFileName; cr; + nextPutAll: Smalltalk vm vmVersion; cr. - nextPutAll: (Smalltalk vm vmFileName); cr; - nextPutAll: (Smalltalk vm vmVersion); cr. Smalltalk vm buildDate ifNotNil: [:string | aStream nextPutAll: string; cr]. [Smalltalk vm platformSourceVersion ifNotNil: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterSourceVersion ifNotNil: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]] on: Warning do: ["unsupported primitive"]. [Smalltalk vm interpreterClass ifNotNil: [:string | aStream nextPutAll: string; cr]. Smalltalk vm cogitClass ifNotNil: [:string | aStream nextPutAll: string; cr] + ] on: Error do: ["unsupported primitives"]. + self vmIsOpenSmalltalkVM ifTrue: + [howToBuild := 'Visit https://github.com/OpenSmalltalk/opensmalltalk-vm; follow the"Clone or download" instructions, then read the top-level README.md\and HowToBuild files in the top-level build directory for your\platform(s), build.macos64x64/HowToBuild, build.win32x86/HowToBuild, etc.' withCRs]. + howToBuild ifNil: [^self]. + aStream cr. + self header: 'To Build A Similar Virtual Machine' on: aStream. + aStream nextPutAll: howToBuild; cr! - ] on: Error do: ["unsupported primitives"] - !
Item was added: + ----- Method: SystemReporter>>vmIsOpenSmalltalkVM (in category 'private') ----- + vmIsOpenSmalltalkVM + ^[#('CoInterpreter' 'StackInterpreter') includes: (Smalltalk vm interpreterClass copyUpTo: Character space)] + on: Error "unsupported primitives" + do: [:ex| false]!