[squeak-dev] The Trunk: SystemReporter-ct.63.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Oct 11 11:35:32 UTC 2022
Christoph Thiede uploaded a new version of SystemReporter to project The Trunk:
http://source.squeak.org/trunk/SystemReporter-ct.63.mcz
==================== Summary ====================
Name: SystemReporter-ct.63
Author: ct
Time: 11 October 2022, 1:35:29.960414 pm
UUID: 27231051-f070-4d49-ae28-26156bd50619
Ancestors: SystemReporter-ct.62
Complements System-ct.1372 (interface on SmalltalkImage for testing OSVM).
=============== Diff against SystemReporter-ct.62 ===============
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.
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"].
+ Smalltalk vm isRunningOpenSmalltalkVM ifTrue:
- 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!
Item was removed:
- ----- Method: SystemReporter>>vmIsOpenSmalltalkVM (in category 'private') -----
- vmIsOpenSmalltalkVM
- ^[#('CoInterpreter' 'StackInterpreter') includes: (Smalltalk vm interpreterClass copyUpTo: Character space)]
- on: Error "unsupported primitives"
- do: [:ex| false]!
More information about the Squeak-dev
mailing list
|