[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