VM Maker: VMMaker.oscog-eem.2526.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.2526.mcz

Eliot Miranda uploaded a new version of VMMaker to project VM Maker:

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

Name: VMMaker.oscog-eem.2526
Author: eem
Time: 6 March 2019, 10:42:00.510725 am
UUID: 3816c000-cb74-427f-9c89-ee2509a89266
Ancestors: VMMaker.oscog-eem.2525

Force default initialization of VM options before generating VM plugins.

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

Item was changed:
  ----- Method: VMMaker class>>makerFor:and:with:to:platformDir: (in category 'instance creation') -----
  makerFor: interpreterClass and: cogitClassOrNil with: optionsPairsArrayArg to: srcDirName platformDir: platDirName
  "Initialize a VMMaker to generate the VM to the given target directory."
  | optionsPairsArray |
  optionsPairsArray := (cogitClassOrNil isNil or: [optionsPairsArrayArg includes: #Cogit])
  ifTrue: [optionsPairsArrayArg]
  ifFalse: [optionsPairsArrayArg, { #Cogit. cogitClassOrNil name }].
+ VMClass initializeWithOptions: optionsPairsArray.
  ^(self forPlatform: 'Cross')
  sourceDirectoryName: (self fullNameForPath: srcDirName);
  platformRootDirectoryName: (self fullNameForPath: platDirName);
  options: optionsPairsArray;
  interpreterClass: interpreterClass;

Item was changed:
  ----- Method: VMMaker>>generateExternalPlugin: (in category 'generate sources') -----
  generateExternalPlugin: pluginName
  "generate the named external plugin"
  | exports plugin |
  "Refuse to translate this plugin if it requires platform specific files and they are not present."
  [plugin := self validateExternalPlugin: pluginName]
  on: VMMakerException
  do: [:ex|
  logger show: 'external plugin ' , plugin name , ' failed to validate: ' , ex messageText; cr.
+ VMClass initializeWithOptions: #().
  [exports := plugin
  translateInDirectory: (self externalPluginsDirectoryFor: plugin)
  doInlining: inline]
  on:  ProvideAnswerNotification
  do: [:ex|
  ex tag == #logger
  ifTrue: [ex resume: logger]
  ifFalse: [ex pass]].
  exports ifNotNil: "if exp is nil we skip this since the plugin was already up to date"
  [logger show: 'external plugin ' , plugin name , ' generated as ' , plugin moduleName; cr.
  self export: exports forExternalPlugin: plugin.
  self processFilesForExternalPlugin: plugin]!