Revision: 2897 Author: eliot Date: 2014-04-19 09:23:44 -0700 (Sat, 19 Apr 2014) Log Message: ----------- Change build script to use package-cache if files ahve already been downloaded. Add compatibility for the multiple bytecode support the Cog assumes that is not yet in Squeak.
Modified Paths: -------------- branches/Cog/image/BuildSqueak45Image.st
Added Paths: ----------- branches/Cog/image/CompiledMethod-usesAlternateBytecodeSet.st
Modified: branches/Cog/image/BuildSqueak45Image.st =================================================================== --- branches/Cog/image/BuildSqueak45Image.st 2014-04-18 19:29:01 UTC (rev 2896) +++ branches/Cog/image/BuildSqueak45Image.st 2014-04-19 16:23:44 UTC (rev 2897) @@ -22,7 +22,8 @@ sort: [:a :b| a second <= b second].
#( 'FT2Constants.st' - 'Object-performwithwithwithwithwith.st' ) do: + 'Object-performwithwithwithwithwith.st' + 'CompiledMethod-usesAlternateBytecodeSet.st' ) do: [:fileName| (FileDirectory default fileNamed: fileName) fileIn].
load do: @@ -32,7 +33,9 @@ [:package| | latestVersion | latestVersion := (repository versionNamesForPackageNamed: package) first. [| version | - version := repository versionNamed: latestVersion. + version := ((MCCacheRepository default includesVersionNamed: latestVersion) + ifTrue: [MCCacheRepository default] + ifFalse: [repository]) versionNamed: latestVersion. version load. version workingCopy repositoryGroup addRepository: repository] on: Warning @@ -45,4 +48,8 @@ #( 'Workspace' 'Slang Test Workspace' 'VM Simulation Workspace' ) do: [:textFileName| (StringHolder new contents: (FileDirectory default fileNamed: textFileName, '.text') contentsOfEntireFile) - openLabel: textFileName] + openLabel: textFileName]. + +World findATranscript: nil. + +Smalltalk snapshot: true andQuit: true Added: branches/Cog/image/CompiledMethod-usesAlternateBytecodeSet.st =================================================================== --- branches/Cog/image/CompiledMethod-usesAlternateBytecodeSet.st (rev 0) +++ branches/Cog/image/CompiledMethod-usesAlternateBytecodeSet.st 2014-04-19 16:23:44 UTC (rev 2897) @@ -0,0 +1,6 @@ +'From Squeak4.1 of 17 April 2010 [latest update: #9957] on 18 April 2014 at 4:13:49 pm'! + +!CompiledMethod methodsFor: 'testing' stamp: 'eliot 10/16/2012 15:12'! +usesAlternateBytecodeSet + "(CompiledMethod >> #usesAlternateBytecodeSet) usesAlternateBytecodeSet" + ^self signFlag! !
vm-dev@lists.squeakfoundation.org