[commit][3065] Fix getGoodSpurVM.sh for v3063 (and fix it in the generator) . - Vm-dev

28 Aug 2014

Revision: 3065
Author:   eliot
Date:     2014-08-28 05:17:19 -0700 (Thu, 28 Aug 2014)
Log Message:
-----------
Fix getGoodSpurVM.sh for v3063 (and fix it in the generator).
Add a script to add SmallFloat to a Spur image.
Modified Paths:
--------------
    branches/Cog/image/buildspurtrunkimage.sh
    branches/Cog/image/getGoodSpurVM.sh
    branches/Cog/image/makegetvmscripts.sh
Added Paths:
-----------
    branches/Cog/image/AddSmallFloat.st
Added: branches/Cog/image/AddSmallFloat.st
===================================================================

--- branches/Cog/image/AddSmallFloat.st	                        (rev 0)
+++ branches/Cog/image/AddSmallFloat.st	2014-08-28 12:17:19 UTC (rev 3065)
@@ -0,0 +1,55 @@
+Number subclass: #LimitedPrecisionReal
+	instanceVariableNames: ''
+	classVariableNames: ''
+	poolDictionaries: ''
+	category: 'Kernel-Numbers'.
+
+LimitedPrecisionReal immediateSubclass: #SmallFloat
+	instanceVariableNames: ''
+	classVariableNames: ''
+	poolDictionaries: ''
+	category: 'Kernel-Numbers'.
+
+Float superclass: LimitedPrecisionReal.
+Float class superclass: LimitedPrecisionReal class.
+Number removeSubclass: Float.
+Number class removeSubclass: Float class.
+LimitedPrecisionReal addSubclass: Float.
+LimitedPrecisionReal class addSubclass: Float class.
+
+LimitedPrecisionReal ensureClassPool.
+Float classPool keys do:
+	[:key|
+	LimitedPrecisionReal classPool declare: key from: Float classPool].
+
+Float selectors do:
+	[:s| | m |
+	m := Float >> s.
+	(((#(0 38 39) includes: m primitive) or: [m isQuick])
+	 and: [m protocol ~~ #copying]) ifTrue:
+		[LimitedPrecisionReal methodDict at: s put: m.
+		 Float methodDict removeKey: s.
+		 m methodClassAssociation: LimitedPrecisionReal binding]].
+
+SystemChangeNotifier uniqueInstance doSilently:
+	[LimitedPrecisionReal organization changeFromString: Float organization printString.
+	LimitedPrecisionReal selectors do:
+		[:s|
+		LimitedPrecisionReal organization classify: s under: (Float organization categoryOfElement: s).
+		Float organization removeElement: s].
+	LimitedPrecisionReal organization removeEmptyCategories.
+	Float organization removeEmptyCategories].
+
+Float selectors do:
+	[:s| | m src |
+	m := Float >> s.
+	m primitive > 0 ifTrue:
+		[src := (Float sourceCodeAt: s) asString.
+		 src := src copyReplaceAll: '<primitive: ' with: '<primitive: 5'.
+		 SmallFloat compile: src classified: m protocol]].
+
+(SmallInteger organization listAtCategoryNamed: #copying) do:
+	[:s|
+	SmallFloat compile: (SmallInteger sourceCodeAt: s) asString classified: #copying].
+
+Smalltalk snapshot: true andQuit: true
Modified: branches/Cog/image/buildspurtrunkimage.sh
===================================================================
--- branches/Cog/image/buildspurtrunkimage.sh	2014-08-26 08:52:44 UTC (rev 3064)
+++ branches/Cog/image/buildspurtrunkimage.sh	2014-08-28 12:17:19 UTC (rev 3065)
@@ -41,7 +41,7 @@
    	exit 1
    fi
    if [ -z "$IMAGE" ]; then
-		buildsqueaktrunkvmmakerimage.sh
+		./buildsqueaktrunkvmmakerimage.sh
    	GOTIMAGE=1
    fi
 done
Modified: branches/Cog/image/getGoodSpurVM.sh
===================================================================
--- branches/Cog/image/getGoodSpurVM.sh	2014-08-26 08:52:44 UTC (rev 3064)
+++ branches/Cog/image/getGoodSpurVM.sh	2014-08-28 12:17:19 UTC (rev 3065)
@@ -15,8 +15,7 @@
         VM=CogSpur.app/Contents/MacOS/Squeak;;
 Linux) get_vm_from_tar \
         cogspurlinuxht/lib/squeak/4.0-$REV/squeak  \
-        cogspurlinuxht-$TAG.tgz af8988545c1042a9813e3166390af6cb
-    VM=cogspurlinuxht/squeak;;
+        cogspurlinuxht-$TAG.tgz af8988545c1042a9813e3166390af6cb    VM=cogspurlinuxht/squeak;;
 CYGWIN*) get_vm_from_zip \
             cogspurwin/SqueakConsole.exe a7bc32115050dab7e9060e8391025c4e \
             cogspurwin-$TAG.zip 6945ef0ff89bc5c1da00f6076868f3e6
Modified: branches/Cog/image/makegetvmscripts.sh
===================================================================
--- branches/Cog/image/makegetvmscripts.sh	2014-08-26 08:52:44 UTC (rev 3064)
+++ branches/Cog/image/makegetvmscripts.sh	2014-08-28 12:17:19 UTC (rev 3065)
@@ -127,7 +127,7 @@
 echo -n `quietmd5 ../products/cogspurlinuxht/lib/squeak/4.0-$REV/squeak` >>$GetSpurScript
 echo ' ' >>$GetSpurScript
 echo -n '        cogspurlinuxht-$TAG.tgz ' >>$GetSpurScript
-quietmd5 ../products/cogspurlinuxht-$TAG.tgz >>$GetSpurScript
+echo -n `quietmd5 ../products/cogspurlinuxht-$TAG.tgz` >>$GetSpurScript
cat >>$GetSpurScript <<END
     VM=cogspurlinuxht/squeak;;

    