The Trunk: SystemReporter-eem.39.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: SystemReporter-eem.39.mcz

Eliot Miranda uploaded a new version of SystemReporter to project The Trunk:

==================== 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.
+ 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; follow the\"Clone or download" instructions, then read the top-level\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]!