[Vm-dev] [commit][3065] Fix getGoodSpurVM.sh for v3063 (and fix it
in the generator) .
commits at squeakvm.org
commits at squeakvm.org
Thu Aug 28 12:17:24 UTC 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;;
More information about the Vm-dev
mailing list