VM Maker: VMMaker.oscog-eem.2586.mcz

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

VM Maker: VMMaker.oscog-eem.2586.mcz

commits-2
 
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2586.mcz

==================== Summary ====================

Name: VMMaker.oscog-eem.2586
Author: eem
Time: 17 November 2019, 10:27:40.821889 am
UUID: ae4e24e7-dc65-411b-9f81-53f66f183eaf
Ancestors: VMMaker.oscog-eem.2585

Eliminate info duplicaton in new interpreter version name.

=============== Diff against VMMaker.oscog-eem.2585 ===============

Item was changed:
  ----- Method: VMClass class>>declareInterpreterVersionIn:defaultName: (in category 'translation') -----
  declareInterpreterVersionIn: aCCodeGenerator defaultName: defaultName
- | objMemName |
- objMemName := aCCodeGenerator vmClass objectMemoryClass memoryManagerName.
  NewspeakVM ifTrue:
  ["Newspeak as of mid 2011 derives SystemScope systemName from the interpreterVersion
   (via system attribute 1004) by copying up to but not including the last space, provided the
   string ends with a digit.  So spaces must be eliminated from the Monitcello version string,
   and we can't surround it with square brackets."
  (aCCodeGenerator shortMonticelloDescriptionForClass: self) last isDigit ifFalse:
  [self error: 'Newspeak expects interpreterVersion ends with a digit'].
  aCCodeGenerator
  var: #interpreterVersion
  declareC: 'const char *interpreterVersion = "Newspeak Virtual Machine ',
+ ('[ Open Smalltalk, ', aCCodeGenerator vmClass objectMemoryClass memoryManagerName,'] '),
- ('[ Open Smalltalk, ',objMemName,'] '),
  ((aCCodeGenerator shortMonticelloDescriptionForClass: self) copyReplaceAll: ' ' with: '_'),
  '"'.
  ^self].
 
  aCCodeGenerator
  var: #interpreterVersion
  declareC: 'const char *interpreterVersion = "Open Smalltalk ', defaultName, ' VM [',
- objMemName, ' ',
  (aCCodeGenerator shortMonticelloDescriptionForClass: self),']"'!