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