[Vm-dev] [commit][2897] Change build script to use package-cache if files ahve already been downloaded .

commits at squeakvm.org commits at squeakvm.org
Sat Apr 19 16:23:45 UTC 2014


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! !


More information about the Vm-dev mailing list