[Vm-dev] VM Maker: Cog-eem.239.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 3 21:02:23 UTC 2015

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

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

Name: Cog-eem.239
Author: eem
Time: 3 February 2015, 1:02:13.213 pm
UUID: f2c5a239-5895-4b6c-a7bb-4bfc66c99bf0
Ancestors: Cog-eem.238

Spur bootstrap:
Make it an error to fail to find a suitable spur
version of the four packages in

=============== Diff against Cog-eem.238 ===============

Item was changed:
  ----- Method: SpurBootstrapMonticelloPackagePatcher>>spurConfigurationOf:forRepository: (in category 'configurations') -----
  spurConfigurationOf: anMCConfiguration forRepository: repo
  	"Answer a copy of anMCConfiguration containing the matching Spur dependencies.
  	 If no replacements could be made (because no Spur versions exist) then answer nil."
  	| found clone |
  	found := false.
  	clone := Array streamContents:
  				s nextPut: #name; nextPut: (anMCConfiguration name copyReplaceAll: 'update-' with: 'update.spur-');
  				 "no location accessor!!!!"
  				  nextPut: #repository; nextPut: {anMCConfiguration repositories first locationWithTrailingSlash allButLast}.
  				 anMCConfiguration dependencies do:
  					[:dep| | info pkg ver spurVersionName |
  					 info := dep versionInfo.
  					 ((pkg := self packages
  								detect: [:package| package name = dep package name]
  								ifNone: []) notNil
  					  and: [spurVersionName := (info name
  													copyReplaceAll: pkg name
  													with: pkg name, '.spur'), '.mcz'.
  						 (ver := MCCacheRepository default versionNamed: spurVersionName asMCVersionName) ifNil:
  							[ver := repo versionNamed: spurVersionName asMCVersionName].
  						 ver notNil])
  						ifTrue: [found := true. info := ver info].
  					(ver isNil and: [spurVersionName notNil]) ifTrue:
+ 						[Transcript nextPutAll: 'failed to get ', spurVersionName, ' in ', anMCConfiguration name; cr; flush.
+ 						 self error: 'failed to get ', spurVersionName, ' in ', anMCConfiguration name].
- 						[Transcript nextPutAll: 'failed to get ', spurVersionName, ' in ', anMCConfiguration name; cr; flush].
  					s nextPut: #dependency; nextPut: (MCConfiguration dependencyToArray: (MCVersionDependency package: dep package info: info))]].
  	^found ifTrue:
  		[MCConfiguration fromArray: clone]!

More information about the Vm-dev mailing list