Vm-dev August 2014

vm-dev@lists.squeakfoundation.org

12 participants
89 discussions

Re: [Pharo-dev] Substitution of ' to " in TextEditor>>shiftEnclose
by Eliot Miranda 28 Aug '14

28 Aug '14

On Wed, Aug 27, 2014 at 4:27 PM, Nicolas Cellier < nicolas.cellier.aka.nice(a)gmail.com> wrote: > I encountered this in Squeak too, because French keyboard is not better > than german one :( > > Nicolas Cellier uploaded a new version of ST80 to project The Trunk: > http://source.squeak.org/trunk/ST80-nice.136.mcz > > ==================== Summary ==================== > > Name: ST80-nice.136 > Author: nice > Time: 4 August 2011, 10:43:00.836 am > UUID: 6f8b2f4c-8c8c-48a8-ba32- > bb5b37d827d0 > Ancestors: ST80-ul.135 > > #shiftEnclose: is hardcoding the keyboard layout, which is not compatible > with foreign keyboards and modern VM, and prevents correct enclosing to > work. > +1. This is the issue that must be fixed. It must be understood properly (is the VM answering adequate information or not?). > > This version rather use a normal #enclose: > A (ParagraphEditor initialize) postscrip is necessary. > > =============== Diff against ST80-ul.135 =============== > > > > 2014-08-27 17:11 GMT+02:00 Max Bareis <max.bareis(a)me.com>: > > >> >> > >> > I am curious, because this substitution does not make any sense to >> > me. The keyCharacter is always the "real" character ( $( instead >> > of $9 ). Also it seems that this substitution reduces the keyboard >> > to the en-Layout, therefore breaks the separation of concerns. >> > >> > >> > >> > I hope this gets resolved, as it is really annoying with a german >> > Keyboard. >> > >> > And look at the issues: >> > 11436 <https://pharo.fogbugz.com/default.asp?11436> and >> > 4646 <https://pharo.fogbugz.com/default.asp?4646> >> > >> >Should the core team take action? >> > >> >Stef >> >> For me, there is no urgency. I sent it to the mailing list, because I used >> the wrong words for the issue search and didn't find any issue. As it is >> already on the issue list and I have a workaround (replacing the method in >> my download bash file for zeroconf) it is ok. >> >> Max >> >> >> >> >> >> >> -- >> View this message in context: >> http://forum.world.st/Substitution-of-to-in-TextEditor-shiftEnclose-tp47750… >> Sent from the Pharo Smalltalk Developers mailing list archive at >> Nabble.com. >> >> > -- best, Eliot

2 1

[commit][3067] Ho hum. Might have got it right this time.
by commits＠squeakvm.org 28 Aug '14

28 Aug '14

Revision: 3067 Author: eliot Date: 2014-08-28 05:44:32 -0700 (Thu, 28 Aug 2014) Log Message: ----------- Ho hum. Might have got it right this time. Modified Paths: -------------- branches/Cog/image/getGoodCogVM.sh branches/Cog/image/getGoodSpurVM.sh branches/Cog/image/makegetnsvmscripts.sh branches/Cog/image/makegetvmscripts.sh Modified: branches/Cog/image/getGoodCogVM.sh =================================================================== --- branches/Cog/image/getGoodCogVM.sh 2014-08-28 12:38:54 UTC (rev 3066) +++ branches/Cog/image/getGoodCogVM.sh 2014-08-28 12:44:32 UTC (rev 3067) @@ -4,6 +4,7 @@ TAG=14.32.3063 REV=3063 +LCBINDIR=4.0-3063 URL=http://www.mirandabanda.org/files/Cog/VM/VM.r$REV/ . ./envvars.sh Modified: branches/Cog/image/getGoodSpurVM.sh =================================================================== --- branches/Cog/image/getGoodSpurVM.sh 2014-08-28 12:38:54 UTC (rev 3066) +++ branches/Cog/image/getGoodSpurVM.sh 2014-08-28 12:44:32 UTC (rev 3067) @@ -4,6 +4,7 @@ TAG=14.32.3063 REV=3063 +LSBINDIR=5.0-3063 URL=http://www.mirandabanda.org/files/Cog/VM/VM.r$REV/ . ./envvars.sh Modified: branches/Cog/image/makegetnsvmscripts.sh =================================================================== --- branches/Cog/image/makegetnsvmscripts.sh 2014-08-28 12:38:54 UTC (rev 3066) +++ branches/Cog/image/makegetnsvmscripts.sh 2014-08-28 12:44:32 UTC (rev 3067) @@ -43,6 +43,7 @@ TAG=$TAG REV=$REV +LCBINDIR=4.0-$REV URL=http://www.mirandabanda.org/files/Cog/VM/VM.r\$REV/ . ./envvars.sh @@ -106,6 +107,7 @@ TAG=$TAG REV=$REV +LSBINDIR=5.0-$REV URL=http://www.mirandabanda.org/files/Cog/VM/VM.r\$REV/ . ./envvars.sh Modified: branches/Cog/image/makegetvmscripts.sh =================================================================== --- branches/Cog/image/makegetvmscripts.sh 2014-08-28 12:38:54 UTC (rev 3066) +++ branches/Cog/image/makegetvmscripts.sh 2014-08-28 12:44:32 UTC (rev 3067) @@ -43,6 +43,7 @@ TAG=$TAG REV=$REV +LCBINDIR=4.0-$REV URL=http://www.mirandabanda.org/files/Cog/VM/VM.r\$REV/ . ./envvars.sh @@ -106,6 +107,7 @@ TAG=$TAG REV=$REV +LSBINDIR=5.0-$REV URL=http://www.mirandabanda.org/files/Cog/VM/VM.r\$REV/ . ./envvars.sh

1 0

[commit][3066] Fix the getGooVM generators for the SPuyr VM version number change (4.0 => 5.0)
by commits＠squeakvm.org 28 Aug '14

28 Aug '14

Revision: 3066 Author: eliot Date: 2014-08-28 05:38:54 -0700 (Thu, 28 Aug 2014) Log Message: ----------- Fix the getGooVM generators for the SPuyr VM version number change (4.0 => 5.0) Modified Paths: -------------- branches/Cog/image/getGoodCogVM.sh branches/Cog/image/getGoodSpurVM.sh branches/Cog/image/makegetnsvmscripts.sh branches/Cog/image/makegetvmscripts.sh Modified: branches/Cog/image/getGoodCogVM.sh =================================================================== --- branches/Cog/image/getGoodCogVM.sh 2014-08-28 12:17:19 UTC (rev 3065) +++ branches/Cog/image/getGoodCogVM.sh 2014-08-28 12:38:54 UTC (rev 3066) @@ -16,11 +16,11 @@ Linux) if expr $OSREL \> 2.6.12; then get_vm_from_tar \ - coglinuxht/lib/squeak/4.0-$REV/squeak badd6e33775c1176e478b2262cffe177 \ + coglinuxht/lib/squeak/$LCBINDIR/squeak badd6e33775c1176e478b2262cffe177 \ coglinuxht-$TAG.tgz 1b58e26c4c6c92ca8b141e94c04b0ed9 else get_vm_from_tar \ - coglinux/lib/squeak/4.0-$REV/squeak 817f87fa0cf4b7d90ef9599d7b762fe5 \ + coglinux/lib/squeak/$LCBINDIR/squeak 817f87fa0cf4b7d90ef9599d7b762fe5 \ coglinux-$TAG.tgz 1394d1bfd1749b711a2266621dc8ff5b fi;; CYGWIN*) get_vm_from_zip \ Modified: branches/Cog/image/getGoodSpurVM.sh =================================================================== --- branches/Cog/image/getGoodSpurVM.sh 2014-08-28 12:17:19 UTC (rev 3065) +++ branches/Cog/image/getGoodSpurVM.sh 2014-08-28 12:38:54 UTC (rev 3066) @@ -14,8 +14,9 @@ CogSpur.app-$TAG.tgz 741a5355c22f20cda33db969bb5e3d7a 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/lib/squeak/$LSBINDIR/squeak 22e8dfc3409a79155f79b2943c834572 \ + cogspurlinuxht-$TAG.tgz af8988545c1042a9813e3166390af6cb + VM=cogspurlinuxht/squeak;; CYGWIN*) get_vm_from_zip \ cogspurwin/SqueakConsole.exe a7bc32115050dab7e9060e8391025c4e \ cogspurwin-$TAG.zip 6945ef0ff89bc5c1da00f6076868f3e6 Modified: branches/Cog/image/makegetnsvmscripts.sh =================================================================== --- branches/Cog/image/makegetnsvmscripts.sh 2014-08-28 12:17:19 UTC (rev 3065) +++ branches/Cog/image/makegetnsvmscripts.sh 2014-08-28 12:38:54 UTC (rev 3066) @@ -21,6 +21,8 @@ | sed 's/^.*Rev: $[0-9][0-9]*$ $";/\1/'` test -n "$TAG" || TAG=`date +%g.%U.`$REV +LCBINDIR=4.0-$REV +LSBINDIR=5.0-$REV echo REV=$REV TAG=$TAG . ./envvars.sh @@ -62,8 +64,8 @@ get_vm_from_tar \\ END -echo -n ' nsvmlinuxht/lib/nsvm/4.0-$REV/nsvm ' >>$GetCogScript -echo -n `quietmd5 ../products/nsvmlinuxht/lib/nsvm/4.0-$REV/nsvm` >>$GetCogScript +echo -n ' nsvmlinuxht/lib/nsvm/$LCBINDIR/nsvm ' >>$GetCogScript +echo -n `quietmd5 ../products/nsvmlinuxht/lib/nsvm/$LCBINDIR/nsvm` >>$GetCogScript echo ' \' >>$GetCogScript echo -n ' nsvmlinuxht-$TAG.tgz ' >>$GetCogScript quietmd5 ../products/nsvmlinuxht-$TAG.tgz >>$GetCogScript @@ -73,8 +75,8 @@ get_vm_from_tar \\ END -echo -n ' nsvmlinux/lib/nsvm/4.0-$REV/nsvm ' >>$GetCogScript -echo -n `quietmd5 ../products/nsvmlinux/lib/nsvm/4.0-$REV/nsvm` >>$GetCogScript +echo -n ' nsvmlinux/lib/nsvm/$LCBINDIR/nsvm ' >>$GetCogScript +echo -n `quietmd5 ../products/nsvmlinux/lib/nsvm/$LCBINDIR/nsvm` >>$GetCogScript echo ' \' >>$GetCogScript echo -n ' nsvmlinux-$TAG.tgz ' >>$GetCogScript quietmd5 ../products/nsvmlinux-$TAG.tgz >>$GetCogScript @@ -123,8 +125,8 @@ Linux) get_vm_from_tar \\ END -echo -n ' nsvmspurlinuxht/lib/nsvm/4.0-$REV/nsvm ' >>$GetSpurScript -echo -n `quietmd5 ../products/nsvmspurlinuxht/lib/nsvm/4.0-$REV/nsvm` >>$GetSpurScript +echo -n ' nsvmspurlinuxht/lib/nsvm/$LSBINDIR/nsvm ' >>$GetSpurScript +echo -n `quietmd5 ../products/nsvmspurlinuxht/lib/nsvm/$LSBINDIR/nsvm` >>$GetSpurScript echo ' \' >>$GetSpurScript echo -n ' nsvmspurlinuxht-$TAG.tgz ' >>$GetSpurScript quietmd5 ../products/nsvmspurlinuxht-$TAG.tgz >>$GetSpurScript Modified: branches/Cog/image/makegetvmscripts.sh =================================================================== --- branches/Cog/image/makegetvmscripts.sh 2014-08-28 12:17:19 UTC (rev 3065) +++ branches/Cog/image/makegetvmscripts.sh 2014-08-28 12:38:54 UTC (rev 3066) @@ -21,6 +21,8 @@ | sed 's/^.*Rev: $[0-9][0-9]*$ $";/\1/'` test -n "$TAG" || TAG=`date +%g.%U.`$REV +LCBINDIR=4.0-$REV +LSBINDIR=5.0-$REV echo REV=$REV TAG=$TAG . ./envvars.sh @@ -62,8 +64,8 @@ get_vm_from_tar \\ END -echo -n ' coglinuxht/lib/squeak/4.0-$REV/squeak ' >>$GetCogScript -echo -n `quietmd5 ../products/coglinuxht/lib/squeak/4.0-$REV/squeak` >>$GetCogScript +echo -n ' coglinuxht/lib/squeak/$LCBINDIR/squeak ' >>$GetCogScript +echo -n `quietmd5 ../products/coglinuxht/lib/squeak/$LCBINDIR/squeak` >>$GetCogScript echo ' \' >>$GetCogScript echo -n ' coglinuxht-$TAG.tgz ' >>$GetCogScript quietmd5 ../products/coglinuxht-$TAG.tgz >>$GetCogScript @@ -73,8 +75,8 @@ get_vm_from_tar \\ END -echo -n ' coglinux/lib/squeak/4.0-$REV/squeak ' >>$GetCogScript -echo -n `quietmd5 ../products/coglinux/lib/squeak/4.0-$REV/squeak` >>$GetCogScript +echo -n ' coglinux/lib/squeak/$LCBINDIR/squeak ' >>$GetCogScript +echo -n `quietmd5 ../products/coglinux/lib/squeak/$LCBINDIR/squeak` >>$GetCogScript echo ' \' >>$GetCogScript echo -n ' coglinux-$TAG.tgz ' >>$GetCogScript quietmd5 ../products/coglinux-$TAG.tgz >>$GetCogScript @@ -123,11 +125,11 @@ Linux) get_vm_from_tar \\ END -echo -n ' cogspurlinuxht/lib/squeak/4.0-$REV/squeak ' >>$GetSpurScript -echo -n `quietmd5 ../products/cogspurlinuxht/lib/squeak/4.0-$REV/squeak` >>$GetSpurScript +echo -n ' cogspurlinuxht/lib/squeak/$LSBINDIR/squeak ' >>$GetSpurScript +echo -n `quietmd5 ../products/cogspurlinuxht/lib/squeak/$LSBINDIR/squeak` >>$GetSpurScript echo ' \' >>$GetSpurScript echo -n ' cogspurlinuxht-$TAG.tgz ' >>$GetSpurScript -echo -n `quietmd5 ../products/cogspurlinuxht-$TAG.tgz` >>$GetSpurScript +quietmd5 ../products/cogspurlinuxht-$TAG.tgz >>$GetSpurScript cat >>$GetSpurScript <<END VM=cogspurlinuxht/squeak;;

1 0

[commit][3065] Fix getGoodSpurVM.sh for v3063 (and fix it in the generator) .
by commits＠squeakvm.org 28 Aug '14

28 Aug '14

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

1 0

VM Maker: VMMaker.oscog-eem.868.mcz
by commits＠source.squeak.org 28 Aug '14

28 Aug '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.868.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.868 Author: eem Time: 28 August 2014, 9:25:21.878 am UUID: 14a9feae-9641-497b-afe9-190e47fd6e37 Ancestors: VMMaker.oscog-eem.867 Rescue in-image compilation for V3 =============== Diff against VMMaker.oscog-eem.867 =============== Item was changed: ----- Method: CurrentImageCoInterpreterFacade>>initialize (in category 'initialize-release') ----- initialize memory := (VMBIGENDIAN ifTrue: [Bitmap] ifFalse: [LittleEndianBitmap]) new: 1024*1024/4. objectMemory := self class objectMemoryClass simulatorClass new. + objectMemory + initializeFreeSpaceForFacadeFrom: self startOfMemory + to: self variablesBase. objectMemory memory: memory. coInterpreter := CoInterpreter new. coInterpreter instVarNamed: 'objectMemory' put: objectMemory; instVarNamed: 'primitiveTable' put: (CArrayAccessor on: CoInterpreter primitiveTable copy). variables := Dictionary new. #('stackLimit') do: [:l| self addressForLabel: l]. self initializeObjectMap! Item was removed: - ----- Method: CurrentImageCoInterpreterFacadeForSpurObjectRepresentation>>initialize (in category 'initialize-release') ----- - initialize - super initialize. - objectMemory - initializeFreeSpaceForFacadeFrom: self startOfMemory - to: self variablesBase! Item was added: + ----- Method: NewCoObjectMemory>>initializeFreeSpaceForFacadeFrom:to: (in category 'simulation') ----- + initializeFreeSpaceForFacadeFrom: base to: limit + freeStart := base. + endOfMemory := scavengeThreshold := limit! Item was changed: ----- Method: Spur32BitCoMemoryManager>>initializeFreeSpaceForFacadeFrom:to: (in category 'simulation only') ----- initializeFreeSpaceForFacadeFrom: base to: limit "c.f. initializeFreeSpacePostLoad: freeListObj." | freeListObj freeBytes | newSpaceLimit := oldSpaceStart := freeStart := base. + endOfMemory := scavengeThreshold := limit. - endOfMemory := scavengeThreshold := limit.. segmentManager initSegmentForInImageCompilationFrom: base to: limit. freeListObj := self allocateSlots: self numFreeLists format: self wordIndexableFormat classIndex: self wordSizeClassIndexPun. freeLists := self firstIndexableField: freeListObj. freeListsMask := 0. 0 to: self numFreeLists - 1 do: [:i| (freeLists at: i) ~= 0 ifTrue: [freeListsMask := freeListsMask bitOr: (1 << i). freeLists at: i put: (segmentManager swizzleObj: (freeLists at: i))]]. freeBytes := segmentManager lastSegment segLimit - self bridgeSize - freeStart. freeLists at: 0 put: (self initFreeChunkWithBytes: freeBytes at: freeStart). totalFreeOldSpace := freeBytes!

1 0

VM Maker: Cog-eem.199.mcz
by commits＠source.squeak.org 27 Aug '14

27 Aug '14

Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.199.mcz ==================== Summary ==================== Name: Cog-eem.199 Author: eem Time: 27 August 2014, 4:55:58.736 pm UUID: 0291b9f2-a3b9-4b87-ae19-873bec4af1d0 Ancestors: Cog-eem.198 Spur bootstrap: Add a stack depth check to interpreter:object:perform: withArguments: to catch errors before invoking a GC etc. =============== Diff against Cog-eem.198 =============== Item was changed: ----- Method: SimulatorHarness>>interpreter:object:perform:withArguments: (in category 'bootstrap methods') ----- interpreter: sim object: receiver perform: selector withArguments: arguments "Interpret an expression in oldHeap using oldInterpreter. Answer the result." + | fp savedpc savedsp savedStackPages result startByteCount | - | fp savedpc savedsp result startByteCount | self assert: ({receiver. selector}, arguments allSatisfy: [:oop| oop isInteger and: [sim objectMemory addressCouldBeOop: oop]]). savedpc := sim localIP. savedsp := sim localSP. + savedStackPages := Set with: sim stackPage. sim internalPush: receiver. arguments do: [:arg| sim internalPush: arg]. sim argumentCount: arguments size; messageSelector: selector. fp := sim localFP. startByteCount := sim byteCount. "sim byteCount = 66849 ifTrue: [self halt]." sim normalSend. sim incrementByteCount. "otherwise, send is not counted" ["sim printFrame: sim localFP WithSP: sim localSP" "sim setBreakSelector: #elementsForwardIdentityTo:" "sim byteCount = 66849 ifTrue: [self halt]." "(sim byteCount > 7508930 and: [sim localFP = -16r27894]) ifTrue: [self halt]." fp = sim localFP] whileFalse: + [sim singleStep. + (savedStackPages includes: sim stackPage) ifFalse: "If the stack gets deep something has probably gone wrong..." + [savedStackPages size > 3 ifTrue: [self halt]. + savedStackPages add: sim stackPage]]. - [sim singleStep]. result := sim internalPopStack. self assert: savedsp = sim localSP. self assert: sim localIP - 1 = savedpc. sim localIP: savedpc. ^result!

1 0

VM Maker: VMMaker.oscog-eem.867.mcz
by commits＠source.squeak.org 27 Aug '14

27 Aug '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.867.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.867 Author: eem Time: 27 August 2014, 2:56:40.049 pm UUID: cc1cfd85-364f-4e96-8244-aadf3c1f8182 Ancestors: VMMaker.oscog-eem.866 Make SpurBootstrap more debuggable by short-cutting storeOn: in VMMethiodProxy which was trying to serialize an entire simulator when asked to answer the storeString of a selector literal in a proxy CompiledMethod. =============== Diff against VMMaker.oscog-eem.866 =============== Item was added: + ----- Method: VMObjectProxy>>storeOn: (in category 'printing') ----- + storeOn: aStream + "We don't care about storing these things properly. Doing so involves printing an entire VM. + So simply print and hence get debuggable CompiledMethods whose literals are VMObjectProxys." + ^self printOn: aStream!

1 0

VM Maker: Cog-eem.198.mcz
by commits＠source.squeak.org 27 Aug '14

27 Aug '14

Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.198.mcz ==================== Summary ==================== Name: Cog-eem.198 Author: eem Time: 27 August 2014, 2:55:09.655 pm UUID: c2460750-90b8-4b00-801e-e2d4e6ef07d2 Ancestors: Cog-eem.197 Spur bootstrap: Merge with changes from Esteban to ignore changes to missing classes (e.g. COntext in Squeak and ContextPart & MethodContext in Pharo 4). Do not create replacement Character methods for Character methods already installed (keep an installedMethodOops set). =============== Diff against Cog-eem.197 =============== Item was changed: SimulatorHarness subclass: #SpurBootstrap + instanceVariableNames: 'oldHeap newHeap oldHeapSize newHeapSize oldHeapNumObjs newHeapNumObjs map reverseMap classToIndex oldInterpreter lastClassTablePage literalMap methodClasses installedPrototypes installedMethodOops classMetaclass imageTypes classMethodContextIndex classBlockClosureIndex toBeInitialized' - instanceVariableNames: 'oldHeap newHeap oldHeapSize newHeapSize oldHeapNumObjs newHeapNumObjs map reverseMap classToIndex oldInterpreter lastClassTablePage literalMap methodClasses installedPrototypes classMetaclass imageTypes classMethodContextIndex classBlockClosureIndex toBeInitialized' classVariableNames: 'ImageHeaderFlags ImageName ImageScreenSize TransformedImage' poolDictionaries: 'VMObjectIndices' category: 'Cog-Bootstrapping'! !SpurBootstrap commentStamp: 'eem 9/11/2013 05:45' prior: 0! SpurBootstrap bootstraps an image in SpurMemoryManager format from a Squeak V3 + closures format. e.g. (SpurBootstrap32 new on: '/Users/eliot/Cog/startreader.image') transform; launch Bootstrap issues: - should it implement a deterministic Symbol identityHash? This means set a Symbol's identityHash at instance creation time based on its string hash so that e.g. MethodDIctionary instances have a deterministic order and don't need to be rehashed on load. - should it collapse ContextPart and MethodContext down onto Context (and perhaps eliminate BlockContext)? Instance Variables classToIndex: <Dictionary> lastClassTablePage: <Integer> map: <Dictionary> methodClasses: <Set> newHeap: <SpurMemoryManager> oldHeap: <NewObjectMemory> oldInterpreter: <StackInterpreterSimulator> reverseMap: <Dictionary> symbolMap: <Dictionary> classToIndex - oldClass to new classIndex map lastClassTablePage - oop in newHeap of last classTable page. U<sed in validation to filter-out class table. methodClasses - cache of methodClassAssociations for classes in which modified methods are installed map - oldObject to newObject map newHeap - the output, bootstrapped image oldHeap - the input, image oldInterpreter - the interpreter associated with oldHeap, needed for a hack to grab WeakArray reverseMap - newObject to oldObject map symbolMap - symbol toi symbol oop in oldHeap, used to map prototype methdos to methods in oldHeap! Item was changed: ----- Method: SpurBootstrap>>addMissingClassVars: (in category 'bootstrap image') ----- addMissingClassVars: classVars "Add any missing class vars given classVars, a Dictionary from nonMetaClass to binding. Initialize any classes that get inst vars added." | addClassVarNameSym bindingOfSym | classVars isEmpty ifTrue: [^self]. addClassVarNameSym := self findSymbol: #addClassVarName:. + addClassVarNameSym ifNil: + [addClassVarNameSym := self findSymbol: #addClassVarNamed:]. bindingOfSym := self findSymbol: #bindingOf:. classVars keysAndValuesDo: [:binding :class| Transcript cr; nextPutAll: 'ADDING CLASS VAR '; store: binding key; nextPutAll: ' TO '; print: class; flush. self interpreter: oldInterpreter object: (self oldClassOopFor: class) perform: addClassVarNameSym withArguments: {oldHeap stringForCString: binding key}. literalMap at: binding put: (self interpreter: oldInterpreter object: (self oldClassOopFor: class) perform: bindingOfSym withArguments: {self findSymbol: binding key})]. toBeInitialized := classVars asSet! Item was changed: ----- Method: SpurBootstrap>>checkReshapeOf: (in category 'bootstrap image') ----- checkReshapeOf: ourMethodClasses "Check the shape of all our method classes match the shape of those in the image to be bootstrapped. Use the simulator to redefine any that need it. Does /not/ reshape metaclasses; these we assume are ok." | toReshape | toReshape := Set new. ourMethodClasses do: + [:mc| + (literalMap at: mc binding ifAbsent: []) ifNotNil: + [:binding| + (mc ~~ Character "Character will reshape anyway" + and: [mc instSize ~= (oldHeap instanceSizeOf: (oldHeap fetchPointer: ValueIndex ofObject: binding))]) ifTrue: + [toReshape add: mc]]]. - [:mc| | binding | - binding := literalMap at: mc binding. - self assert: binding ~= oldHeap nilObject. - (mc ~~ Character "Character will reshape anyway" - and: [mc instSize ~= (oldHeap instanceSizeOf: (oldHeap fetchPointer: ValueIndex ofObject: binding))]) ifTrue: - [toReshape add: mc]]. toReshape isEmpty ifTrue: [^self]. "Assume only one class in any subtree needs reshaping. Fast and loose but gets us there for now." toReshape copy do: [:class| toReshape removeAll: (toReshape select: [:ea| ea inheritsFrom: class])]. toReshape do: [:class| Transcript cr; nextPutAll: 'RESHAPING '; print: class; flush. self interpreter: oldInterpreter object: (self oldClassOopFor: Compiler) perform: (self findSymbol: #evaluate:) withArguments: {oldHeap stringForCString: class definition}]! Item was changed: ----- Method: SpurBootstrap>>findRequiredGlobals (in category 'bootstrap image') ----- findRequiredGlobals "Look for the necessary gobal bindings in the prototype methods in the old image. This has to be done early by sending bindingOf: to Smalltalk. Collect the class hierarchy of all prototypes that access inst vars (non-local prototypes) to check their shapes. Also find out Metaclass, needed for identifying classes." | globals ourMethodClasses classVars bindingOfSym | globals := Set new. ourMethodClasses := Set new. classVars := Dictionary new. self prototypeClassNameMetaSelectorMethodDo: + [:c :m :s :method| | allNonMetaSupers | + (Smalltalk classNamed: c) ifNotNil: + [ :nonMetaClass| + allNonMetaSupers := nonMetaClass withAllSuperclasses. + method methodClass ~= SpurBootstrap class ifTrue: + [ourMethodClasses addAll: allNonMetaSupers]. + globals addAll: (allNonMetaSupers collect: [:sc| sc binding]). + method literals do: + [:l| + (l isVariableBinding and: [l key isSymbol]) ifTrue: + [(Smalltalk bindingOf: l key) == l + ifTrue: [globals add: l] + ifFalse: + [self assert: (nonMetaClass bindingOf: l key) == l. + classVars at: l put: nonMetaClass]]]]]. - [:c :m :s :method| | nonMetaClass allNonMetaSupers | - allNonMetaSupers := (nonMetaClass := Smalltalk classNamed: c) withAllSuperclasses. - method methodClass ~= SpurBootstrap class ifTrue: - [ourMethodClasses addAll: allNonMetaSupers]. - globals addAll: (allNonMetaSupers collect: [:sc| sc binding]). - method literals do: - [:l| - (l isVariableBinding and: [l key isSymbol]) ifTrue: - [(Smalltalk bindingOf: l key) == l - ifTrue: [globals add: l] - ifFalse: - [self assert: (nonMetaClass bindingOf: l key) == l. - classVars at: l put: nonMetaClass]]]]. globals add: Compiler binding. "For potential reshaping in checkReshapeOf:" bindingOfSym := self findSymbol: #bindingOf:. self withExecutableInterpreter: oldInterpreter do: [| toBeAdded | globals do: [:global| | bindingOop | bindingOop := self interpreter: oldInterpreter object: (oldHeap splObj: 8) "Smalltalk" perform: bindingOfSym withArguments: {self findSymbol: global key}. + bindingOop ~= oldHeap nilObject ifTrue: + [literalMap at: global put: bindingOop]]. - self assert: bindingOop ~= oldHeap nilObject. - literalMap at: global put: bindingOop]. toBeAdded := Dictionary new. classVars keysAndValuesDo: [:var :class| | val | (self findSymbol: var key) "New class inst vars may not yet be interned." ifNil: [toBeAdded at: var put: class] ifNotNil: [:varName| val := self interpreter: oldInterpreter object: (self oldClassOopFor: class) perform: bindingOfSym withArguments: {varName}. val ~= oldHeap nilObject ifTrue: [literalMap at: var put: val] ifFalse: [toBeAdded at: var put: class]]]. "May have to redefine to add missing inst vars and/or add any missing class vars." self checkReshapeOf: ourMethodClasses. self addMissingClassVars: toBeAdded]! Item was changed: ----- Method: SpurBootstrap>>initMaps (in category 'initialize-release') ----- initMaps map := Dictionary new: oldHeap memory size // 4. reverseMap := Dictionary new: oldHeap memory size // 4. classToIndex := Dictionary new: 1024. literalMap := IdentityDictionary new. methodClasses := Set new. installedPrototypes := Set new. + installedMethodOops := Set new. classMetaclass := nil! Item was changed: ----- Method: SpurBootstrap>>installableMethodFor:selector:className:isMeta: (in category 'bootstrap methods') ----- installableMethodFor: aCompiledMethod selector: selector className: className isMeta: isMeta "Create a sourceless method to install in the bootstrapped image. It will allow the bootstrap to limp along until the relevant transformed Monticello package is loaded." | compiledMethodClass methodClassBinding methodClass sourcelessMethod bytes newMethod delta initialPC | compiledMethodClass := self findClassNamed: (self findSymbol: #CompiledMethod). methodClassBinding := self methodClassBindingForClassName: className isMeta: isMeta. methodClass := oldHeap fetchPointer: ValueIndex ofObject: methodClassBinding. "the prototypes have source pointers. the Character methods to be replaced don't." sourcelessMethod := aCompiledMethod trailer hasSourcePointer ifTrue: [aCompiledMethod copyWithTempsFromMethodNode: aCompiledMethod methodNode] ifFalse: [aCompiledMethod]. initialPC := sourcelessMethod initialPC. bytes := sourcelessMethod size - initialPC + 1. "Ugh, this is complicated. We could be running on Spur with the new method format or on non-Spur with the old format. Make both work." delta := (sourcelessMethod primitive > 0 and: [(sourcelessMethod at: initialPC) = sourcelessMethod encoderClass callPrimitiveCode]) ifTrue: [3] ifFalse: [0]. newMethod := self interpreter: oldInterpreter object: compiledMethodClass perform: (self findSymbol: #newMethod:header:) withArguments: { oldHeap integerObjectOf: bytes - delta. oldHeap integerObjectOf: (self oldFormatHeaderFor: sourcelessMethod) }. 1 to: sourcelessMethod numLiterals - 2 do: [:i| | literal oop | literal := sourcelessMethod literalAt: i. oop := (literal isLiteral or: [literal isVariableBinding]) ifTrue: [literal isInteger ifTrue: [oldHeap integerObjectOf: literal] ifFalse: [literalMap at: literal ifAbsent: [self findLiteral: literal inClass: methodClass]]] ifFalse: "should be a VMObjectProxy" [literal oop]. oldHeap storePointer: i ofObject: newMethod withValue: oop]. oldHeap storePointer: sourcelessMethod numLiterals - 1 ofObject: newMethod withValue: (selector isSymbol ifTrue: [self findSymbol: selector] ifFalse: [selector oop]); storePointer: sourcelessMethod numLiterals ofObject: newMethod withValue: methodClassBinding. initialPC to: sourcelessMethod size - delta do: [:i| oldHeap storeByte: i - 1 ofObject: newMethod withValue: (sourcelessMethod byteAt: i + delta)]. + installedMethodOops add: newMethod. ^newMethod! Item was changed: ----- Method: SpurBootstrap>>replacementForCharacterMethod: (in category 'bootstrap methods') ----- replacementForCharacterMethod: characterMethodOop "Answer a replacement method for the argument if it refers to Character's old inst var value. Otherwise answer nil." | proxy asIntegerProxy clone assembly newInsts newMethod | "(oldHeap stringOf: (oldHeap longAt: characterMethodOop + (oldHeap lastPointerOf: characterMethodOop) - 4)) = 'isOctetCharacter' ifTrue: [self halt]." + "Don't replace something already installed." + (installedMethodOops includes: characterMethodOop) ifTrue: + [^nil]. proxy := VMCompiledMethodProxy new for: characterMethodOop coInterpreter: oldInterpreter objectMemory: oldHeap. self assert: (oldHeap literalCountOf: characterMethodOop) = proxy numLiterals. clone := self cloneMethodProxy: proxy. self assert: proxy numLiterals = clone numLiterals. + clone isReturnSpecial ifTrue: + [^nil]. "Quick methods accessing value should have been replaced. The halt will fire if there is a missing prototype for such a method on the class side of SpurBootstrap. The relevant Character prototypes there so far are Character>>asInteger, Character>> asciiValue, Character>>hash & Character>>identityHash. Conceivably the bootstrap could be applied to an image that has others; hence the halt." clone isReturnField ifTrue: [self halt]. clone hasInstVarRef ifFalse: [^nil]. clone setSourcePointer: 0. asIntegerProxy := VMObjectProxy new for: (literalMap at: #asInteger) coInterpreter: oldInterpreter objectMemory: oldHeap. assembly := BytecodeDisassembler new disassemble: clone. assembly literals: (assembly literals allButLast: 2), {asIntegerProxy}, (assembly literals last: 2). "Do this by looking for index of pushReceiverVariable: and replacing it by pushSelf, send asInteger" newInsts := (assembly instructions piecesCutWhere: [:msgOrLabelAssoc :nextInst| msgOrLabelAssoc isVariableBinding not and: [msgOrLabelAssoc selector == #pushReceiverVariable:]]) fold: [:a :b| a allButLast, { Message selector: #pushReceiver. Message selector: #send:super:numArgs: arguments: {asIntegerProxy. false. 0}}, b]. assembly instructions: newInsts. newMethod := assembly assemble. self assert: clone numLiterals + 1 = newMethod numLiterals. ^self installableMethodFor: newMethod selector: clone selector className: #Character isMeta: false!

1 0

VM Maker: VMMaker.oscog-eem.866.mcz
by commits＠source.squeak.org 27 Aug '14

27 Aug '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.866.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.866 Author: eem Time: 27 August 2014, 10:58:56.882 am UUID: 5b1723bd-9d29-4685-be23-7816f5af9822 Ancestors: VMMaker.oscog-eem.865 Define the SmallFloat primitive numbers for 64-bit Spur. Have Slang and the simulators elide primitives that are unimplemented or optional and not selected from the primitive table. Sista: Fix slip in genBinaryVarOpVarInlinePrimitive: reg alloc. Implement numSLots in genUnaryInlinePrimitive:. =============== Diff against VMMaker.oscog-eem.865 =============== Item was added: + ----- Method: CogObjectRepresentation>>genGetNumSlotsOf:into: (in category 'compile abstract instructions') ----- + genGetNumSlotsOf: srcReg into: destReg + "Get the size in word-sized slots of the object in srcReg into destReg. + srcReg may equal destReg." + self subclassResponsibility! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genGetNumSlotsOf:into: (in category 'compile abstract instructions') ----- + genGetNumSlotsOf: srcReg into: destReg + "Get the size in word-sized slots of the object in srcReg into destReg. + srcReg may equal destReg." + <var: #jmp type: #'AbstractInstruction'> + | jmp | + self genGetRawSlotSizeOfNonImm: srcReg into: TempReg. + cogit CmpCq: objectMemory numSlotsMask R: TempReg. + jmp := cogit JumpLess: 0. + cogit MoveMw: objectMemory wordSize negated r: srcReg R: TempReg. + jmp jmpTarget: (cogit MoveR: TempReg R: destReg). + ^0! Item was changed: ----- Method: SistaStackToRegisterMappingCogit>>ssFlushNoUpdateTo: (in category 'simulation stack') ----- ssFlushNoUpdateTo: index + "This version of ssFlushTo: does /not/ update the simulation stack; it merely generates the spill code. + It is used to spill all values to the stack on a rare failing branch (the class trap) when we don't want to - "This version of ssFlushTo: does /not/ update the simulation stack; it merely h=generates the spill code. - It is used to spill all valiues to teh stack on a rare failing branch (the class trap) when we don't want to flush the stack on the main path and hence mustn't update the simulation stack if there is no spill." <var: 'copiedEntry' type: #CogSimStackEntry> self assert: needsFrame. methodOrBlockNumTemps to: simSpillBase - 1 do: [:i| self assert: (self simStackAt: i) spilled]. simSpillBase <= index ifTrue: [(simSpillBase max: 0) to: index do: [:i| | copiedEntry | copiedEntry := self cCode: [simStack at: index] inSmalltalk: [(simStack at: index) copy]. copiedEntry ensureSpilledAt: (self frameOffsetOfTemporary: i) from: FPReg]]! Item was changed: ----- Method: StackInterpreter class>>initializePrimitiveTable (in category 'initialization') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StackInterpreter class>>primitiveAccessorDepthTable (in category 'constants') ----- primitiveAccessorDepthTable | cg | cg := CCodeGenerator new. cg vmClass: StackInterpreter. + ^self primitiveTable collect: - ^PrimitiveTable collect: [:thing| |class method | (thing isInteger "quick prims, 0 for fast primitve fail" or: [thing == #primitiveFail or: [(class := self primitivesClass whichClassIncludesSelector: thing) isNil]]) ifTrue: [-1] ifFalse: [method := (class >> thing) methodNode asTranslationMethodOfClass: TMethod. cg accessorDepthForMethod: method]]! Item was changed: ----- Method: StackInterpreter class>>primitiveTable (in category 'constants') ----- primitiveTable + | cg | + cg := CCodeGenerator new. + cg vmClass: StackInterpreter. + ^PrimitiveTable collect: + [:thing| + (thing isInteger "quick prims, 0 for fast primitve fail" + or: [thing == #primitiveFail]) + ifTrue: [thing] + ifFalse: + [(self primitivesClass whichClassIncludesSelector: thing) + ifNil: [#primitiveFail] + ifNotNil: + [:class| + (cg shouldIncludeMethodFor: class selector: thing) + ifTrue: [thing] + ifFalse: [#primitiveFail]]]]! - - ^ PrimitiveTable! Item was changed: ----- Method: StackInterpreter>>tryLoadNewPlugin:pluginEntries: (in category 'primitive support') ----- tryLoadNewPlugin: pluginString pluginEntries: pluginEntries "Load the plugin and if on Spur, populate pluginEntries with the prmitives in the plugin." <doNotGenerate> | plugin realPluginClass plugins simulatorClasses | self transcript cr; show: 'Looking for module ', pluginString. "Defeat loading of the FloatArrayPlugin & Matrix2x3Plugin since complications with 32-bit float support prevent simulation. If you feel up to tackling this start by implementing cCoerce: value to: cType ^cType = 'float' ifTrue: [value asIEEE32BitWord] ifFalse: [value] in FloatArrayPlugin & Matrix2x3Plugin and then address the issues in the BalloonEnginePlugin. See http://forum.world.st/Simulating-the-BalloonEnginePlugin-FloatArrayPlugin-a…" (#('FloatArrayPlugin' 'Matrix2x3Plugin') includes: pluginString) ifTrue: [self transcript show: ' ... defeated'. ^nil]. pluginString isEmpty ifTrue: [plugin := self] ifFalse: [plugins := InterpreterPlugin allSubclasses select: [:psc| psc moduleName asString = pluginString asString]. simulatorClasses := (plugins select: [:psc| psc simulatorClass notNil] thenCollect: [:psc| psc simulatorClass]) asSet. simulatorClasses isEmpty ifTrue: [self transcript show: ' ... not found'. ^nil]. simulatorClasses size > 1 ifTrue: [^self error: 'This won''t work...']. plugins size > 1 ifTrue: [self transcript show: '...multiple plugin classes; choosing ', plugins last name]. realPluginClass := plugins last. "hopefully lowest in the hierarchy..." plugin := simulatorClasses anyOne newFor: realPluginClass. plugin setInterpreter: objectMemory. "Ignore return value from setInterpreter" (plugin respondsTo: #initialiseModule) ifTrue: [plugin initialiseModule ifFalse: [self transcript show: ' ... initialiser failed'. ^nil]]]. "module initialiser failed" self transcript show: ' ... loaded'. objectMemory hasSpurMemoryManagerAPI ifTrue: [| realPlugin cg | self transcript show: '...computing accessor depths'. plugin class isPluginClass ifTrue: [realPlugin := (plugin isSmartSyntaxPluginSimulator ifTrue: [realPluginClass] ifFalse: [plugin class]) withAllSuperclasses detect: [:class| class shouldBeTranslated]. cg := realPlugin buildCodeGeneratorUpTo: realPlugin] ifFalse: [cg := self codeGeneratorToComputeAccessorDepth. primitiveTable withIndexDo: [:prim :index| | depth | prim isSymbol ifTrue: [depth := cg accessorDepthForSelector: prim. + self assert: (depth isInteger or: [depth isNil and: [(plugin class whichClassIncludesSelector: prim) isNil]]). - self assert: depth isInteger. primitiveAccessorDepthTable at: index - 1 put: depth]]]. cg exportedPrimitiveNames do: [:primName| | fnSymbol | fnSymbol := primName asSymbol. pluginEntries addLast: {plugin. fnSymbol. [plugin perform: fnSymbol. self]. cg accessorDepthForSelector: fnSymbol}]. self transcript show: '...done']. ^pluginString asString -> plugin! Item was changed: ----- Method: StackToRegisterMappingCogit>>genBinaryVarOpVarInlinePrimitive: (in category 'inline primitive generators') ----- genBinaryVarOpVarInlinePrimitive: prim "Var op var version of binary inline primitives." "SistaV1: 248 11111000 iiiiiiii mjjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined primitive, no hard return after execution. See EncoderForSistaV1's class comment and StackInterpreter>>#inlinePrimitiveBytecode:" | ra rr | (rr := backEnd availableRegisterOrNilFor: self liveRegisters) ifNil: [self ssAllocateRequiredReg: (rr := optStatus isReceiverResultRegLive ifTrue: [Arg0Reg] ifFalse: [ReceiverResultReg])]. (ra := backEnd availableRegisterOrNilFor: (self liveRegisters bitOr: (self registerMaskFor: rr))) ifNil: + [self ssAllocateRequiredReg: (ra := Arg1Reg)]. - [self ssAllocateRequiredReg: (rr := Arg1Reg)]. (rr = ReceiverResultReg or: [ra = ReceiverResultReg]) ifTrue: [optStatus isReceiverResultRegLive: false]. self ssTop popToReg: ra. self ssPop: 1. self ssTop popToReg: rr. self ssPop: 1. prim caseOf: { "0 through 6, +, -, *, /, //, \\, quo:, SmallInteger op SmallInteger => SmallInteger, no overflow" [0] -> [objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ra. self AddR: ra R: rr]. [1] -> [self SubR: ra R: rr. objectRepresentation genAddSmallIntegerTagsTo: rr]. [2] -> [objectRepresentation genRemoveSmallIntegerTagsInScratchReg: rr. objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ra. self MulR: ra R: rr. objectRepresentation genAddSmallIntegerTagsTo: rr]. "16 through 19, bitAnd:, bitOr:, bitXor, bitShift:, SmallInteger op SmallInteger => SmallInteger, no overflow" "32 through 37, >, <, >=, <=. =, ~=, SmallInteger op SmallInteger => Boolean (flags?? then in jump bytecodes if ssTop is a flags value, just generate the instruction!!!!)" "64 through 68, Pointer Object>>at:, Byte Object>>at:, Short16 Word Object>>at: LongWord32 Object>>at: Quad64Word Object>>at:. obj op 0-rel SmallInteger => oop" "80 through 84, Pointer Object>>at:put:, Byte Object>>at:put:, Short16 Word Object>>at:put: LongWord32 Object>>at:put: Quad64Word Object>>at:put:. obj op 0-rel SmallInteger => oop" } otherwise: [^EncounteredUnknownBytecode]. self ssPushRegister: rr. ^0! Item was changed: ----- Method: StackToRegisterMappingCogit>>genUnaryInlinePrimitive: (in category 'inline primitive generators') ----- genUnaryInlinePrimitive: prim "Unary inline primitives." "SistaV1: 248 11111000 iiiiiiii mjjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined primitive, no hard return after execution. See EncoderForSistaV1's class comment and StackInterpreter>>#inlinePrimitiveBytecode:" + | rcvrReg resultReg | + self ssTop type = SSRegister + ifTrue: [rcvrReg := self ssTop register] + ifFalse: + [(rcvrReg := backEnd availableRegisterOrNilFor: self liveRegisters) ifNil: + [self ssAllocateRequiredReg: + (rcvrReg := optStatus isReceiverResultRegLive + ifTrue: [Arg0Reg] + ifFalse: [ReceiverResultReg])]]. + self ssTop popToReg: rcvrReg. + self ssPop: 1. + (resultReg := backEnd availableRegisterOrNilFor: self liveRegisters) ifNil: + [self ssFlushUpThroughRegister: rcvrReg]. + prim + caseOf: { + [1] -> "01 unchecked pointer numSlots" + [resultReg ifNil: [resultReg := rcvrReg]. + objectRepresentation + genGetNumSlotsOf: rcvrReg into: resultReg; + genConvertIntegerToSmallIntegerInScratchReg: resultReg. + self ssPushRegister: resultReg]. + } + otherwise: + [^EncounteredUnknownBytecode]. + ^0! - "not yet implemented" - ^EncounteredUnknownBytecode! Item was added: + ----- Method: StackToRegisterMappingCogit>>ssFlushUpThroughRegister: (in category 'simulation stack') ----- + ssFlushUpThroughRegister: reg + "Any occurrences on the stack of the register must be + flushed, and hence any values colder than them stack." + <var: #desc type: #'CogSimStackEntry *'> + simStackPtr - 1 to: (simSpillBase max: 0) by: -1 do: + [:index| | desc | + desc := self simStackAt: index. + (desc type = SSRegister + and: [desc register = reg]) ifTrue: + [self ssFlushTo: index. + ^self]]!

1 0

VM Maker: Cog.pharo-EstebanLorenzano.199.mcz
by commits＠source.squeak.org 26 Aug '14

26 Aug '14

Esteban Lorenzano uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog.pharo-EstebanLorenzano.199.mcz ==================== Summary ==================== Name: Cog.pharo-EstebanLorenzano.199 Author: EstebanLorenzano Time: 26 August 2014, 1:58:10.563781 pm UUID: 900e8bda-7c0f-4468-9636-a6c2855c3b69 Ancestors: Cog-EstebanLorenzano.198 - merge - last moment fixes =============== Diff against Cog-eem.197 =============== Item was changed: + SystemOrganization addCategory: #Cog! + SystemOrganization addCategory: 'Cog-Benchmarks-DeltaBlue'! + SystemOrganization addCategory: 'Cog-Benchmarks-Richards'! + SystemOrganization addCategory: 'Cog-Benchmarks-SMark'! + SystemOrganization addCategory: 'Cog-Benchmarks-Shootout'! + SystemOrganization addCategory: 'Cog-Bootstrapping'! + SystemOrganization addCategory: 'Cog-Morphing Bytecode Set'! + SystemOrganization addCategory: 'Cog-ProcessorPlugins'! + SystemOrganization addCategory: 'Cog-Processors'! + SystemOrganization addCategory: 'Cog-Processors-Tests'! + SystemOrganization addCategory: 'Cog-Scripting'! + SystemOrganization addCategory: 'Cog-Scripts'! + SystemOrganization addCategory: 'Cog-Tests'! - SystemOrganization addCategory: #'Cog-Benchmarks-DeltaBlue'! - SystemOrganization addCategory: #'Cog-Benchmarks-Richards'! - SystemOrganization addCategory: #'Cog-Benchmarks-SMark'! - SystemOrganization addCategory: #'Cog-Benchmarks-Shootout'! - SystemOrganization addCategory: #'Cog-Bootstrapping'! - SystemOrganization addCategory: #'Cog-Morphing Bytecode Set'! - SystemOrganization addCategory: #'Cog-ProcessorPlugins'! - SystemOrganization addCategory: #'Cog-Processors'! - SystemOrganization addCategory: #'Cog-Processors-Tests'! - SystemOrganization addCategory: #'Cog-Scripting'! - SystemOrganization addCategory: #'Cog-Scripts'! - SystemOrganization addCategory: #'Cog-Tests'! Item was changed: ----- Method: CompiledMethod class>>CompiledMethodclassPROTOTYPEinitialize (in category '*Cog-method prototypes') ----- CompiledMethodclassPROTOTYPEinitialize "CompiledMethod initialize" "Initialize class variables specifying the size of the temporary frame needed to run instances of me." SmallFrame := 16. "Context range for temps+stack" LargeFrame := 56. PrimaryBytecodeSetEncoderClass ifNil: [PrimaryBytecodeSetEncoderClass := EncoderForV3PlusClosures]. SecondaryBytecodeSetEncoderClass ifNil: [SecondaryBytecodeSetEncoderClass := EncoderForV3PlusClosures]! Item was changed: ----- Method: CompiledMethod class>>CompiledMethodclassPROTOTYPEinstallPrimaryBytecodeSet: (in category '*Cog-method prototypes') ----- CompiledMethodclassPROTOTYPEinstallPrimaryBytecodeSet: aBytecodeEncoderSubclass PrimaryBytecodeSetEncoderClass == aBytecodeEncoderSubclass ifTrue: [^self]. (aBytecodeEncoderSubclass inheritsFrom: BytecodeEncoder) ifFalse: [self error: 'A bytecode set encoder is expected to be a subclass of BytecodeEncoder']. (self allSubInstances detect: [:m| m header >= 0 and: [m encoderClass ~~ aBytecodeEncoderSubclass]] ifNone: []) ifNotNil: [Warning signal: 'There are existing CompiledMethods with a different encoderClass.']. PrimaryBytecodeSetEncoderClass := aBytecodeEncoderSubclass! Item was changed: ----- Method: ContextPart>>ContextPartPROTOTYPEdoPrimitive:method:receiver:args: (in category '*Cog-method prototypes') ----- ContextPartPROTOTYPEdoPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: + [ Smalltalk tools debugger + openContext: self - [ToolSet - debugContext: self label:'Code simulation error' contents: nil]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [((primitiveIndex between: 201 and: 205) "BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]. primitiveIndex = 206 ifTrue: "BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [^self send: arguments first to: receiver with: arguments allButFirst super: false]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (self objectClass: receiver)]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (arguments at: 3)]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| active effective | active := Processor activeProcess. effective := active effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "eem 5/27/2008 11:10 Object>>withArgs:executeMethod:" [^MethodContext sender: self receiver: receiver method: (arguments at: 2) arguments: (arguments at: 1)]. "Closure primitives" (primitiveIndex = 200 and: [self == receiver]) ifTrue: "ContextPart>>closureCopy:copiedValues:; simulated to get startpc right" [^self push: (BlockClosure outerContext: receiver startpc: pc + 2 numArgs: arguments first copiedValues: arguments last)]. primitiveIndex = 118 ifTrue: "tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 2 and: [arguments first isInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^ContextPart primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]! Item was changed: + ----- Method: SpurBootstrap class>>CharacterPROTOTYPEshallowCopy (in category 'method prototypes pharo') ----- - ----- Method: SpurBootstrap class>>CharacterPROTOTYPEshallowCopy (in category 'method prototypes') ----- CharacterPROTOTYPEshallowCopy "Answer the receiver, because Characters are unique." ^self! Item was changed: + ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEactivateReturn:value: (in category 'method prototypes squeak') ----- - ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEactivateReturn:value: (in category 'method prototypes') ----- ContextPartPROTOTYPEactivateReturn: aContext value: value "Activate 'aContext return: value' in place of self, so execution will return to aContext's sender" ^MethodContext sender: self receiver: aContext method: MethodContext theReturnMethod arguments: {value}! Item was changed: + ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEdoPrimitive:method:receiver:args: (in category 'method prototypes squeak') ----- - ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEdoPrimitive:method:receiver:args: (in category 'method prototypes') ----- ContextPartPROTOTYPEdoPrimitive: primitiveIndex method: meth receiver: receiver args: arguments <indirect>! Item was changed: + ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEisPrimFailToken: (in category 'method prototypes squeak') ----- - ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEisPrimFailToken: (in category 'method prototypes') ----- ContextPartPROTOTYPEisPrimFailToken: anObject <indirect>! Item was changed: + ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEsend:to:with:lookupIn: (in category 'method prototypes squeak') ----- - ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEsend:to:with:lookupIn: (in category 'method prototypes') ----- ContextPartPROTOTYPEsend: selector to: rcvr with: arguments lookupIn: lookupClass "Simulate the action of sending a message with selector and arguments to rcvr. The argument, lookupClass, is the class in which to lookup the message. This is the receiver's class for normal messages, but for super messages it will be some specific class related to the source method." | meth primIndex val ctxt | (meth := lookupClass lookupSelector: selector) ifNil: [^self send: #doesNotUnderstand: to: rcvr with: {Message selector: selector arguments: arguments} lookupIn: lookupClass]. (primIndex := meth primitive) > 0 ifTrue: [val := self doPrimitive: primIndex method: meth receiver: rcvr args: arguments. (self isPrimFailToken: val) ifFalse: [^val]]. (selector == #doesNotUnderstand: and: [lookupClass == ProtoObject]) ifTrue: [^self error: 'Simulated message ', arguments first selector, ' not understood']. ctxt := MethodContext sender: self receiver: rcvr method: meth arguments: arguments. primIndex > 0 ifTrue: [ctxt failPrimitiveWith: val]. ^ctxt! Item was changed: + ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEsend:to:with:super: (in category 'method prototypes squeak') ----- - ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEsend:to:with:super: (in category 'method prototypes') ----- ContextPartPROTOTYPEsend: selector to: rcvr with: arguments super: superFlag "Simulate the action of sending a message with selector arguments to rcvr. The argument, superFlag, tells whether the receiver of the message was specified with 'super' in the source method." ^self send: selector to: rcvr with: arguments lookupIn: (superFlag ifTrue: [self method methodClassAssociation value superclass] ifFalse: [self objectClass: rcvr])! Item was changed: + ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEtryNamedPrimitiveIn:for:withArgs: (in category 'method prototypes squeak') ----- - ----- Method: SpurBootstrap class>>ContextPartPROTOTYPEtryNamedPrimitiveIn:for:withArgs: (in category 'method prototypes') ----- ContextPartPROTOTYPEtryNamedPrimitiveIn: aCompiledMethod for: aReceiver withArgs: arguments "Invoke the named primitive for aCompiledMethod, answering its result, or, if the primiitve fails, answering the error code." <primitive: 218 error: ec> ec ifNotNil: ["If ec is an integer other than -1 there was a problem with primitive 218, not with the external primitive itself. -1 indicates a generic failure (where ec should be nil) but ec = nil means primitive 218 is not implemented. So interpret -1 to mean the external primitive failed with a nil error code." ec isInteger ifTrue: [ec = -1 ifTrue: [ec := nil] ifFalse: [self primitiveFailed]]]. ^self class primitiveFailTokenFor: ec! Item was changed: + ----- Method: SpurBootstrap class>>InstructionStreamPROTOTYPEinterpretV3ClosuresExtension:in:for: (in category 'method prototypes old squeak') ----- - ----- Method: SpurBootstrap class>>InstructionStreamPROTOTYPEinterpretV3ClosuresExtension:in:for: (in category 'method prototypes') ----- InstructionStreamPROTOTYPEinterpretV3ClosuresExtension: offset in: method for: client "Since this method has inst var refs the prototype must live in the actual class." <indirect>! Item was changed: ----- Method: SpurBootstrap class>>bootstrapPharoImage: (in category 'utilities') ----- bootstrapPharoImage: imageFileBaseName + | oldCompilerClass | + + oldCompilerClass := SmalltalkImage compilerClass. + [ + SmalltalkImage compilerClass: Compiler. + self bootstrapImage: imageFileBaseName type: 'pharo' ] + ensure: [ SmalltalkImage compilerClass: oldCompilerClass ]. + ! - self bootstrapImage: imageFileBaseName type: 'pharo'! Item was changed: ----- Method: SpurBootstrap>>addMissingClassVars: (in category 'bootstrap image') ----- addMissingClassVars: classVars "Add any missing class vars given classVars, a Dictionary from nonMetaClass to binding. Initialize any classes that get inst vars added." | addClassVarNameSym bindingOfSym | classVars isEmpty ifTrue: [^self]. addClassVarNameSym := self findSymbol: #addClassVarName:. + addClassVarNameSym ifNil: + [addClassVarNameSym := self findSymbol: #addClassVarNamed:]. bindingOfSym := self findSymbol: #bindingOf:. classVars keysAndValuesDo: [:binding :class| Transcript cr; nextPutAll: 'ADDING CLASS VAR '; store: binding key; nextPutAll: ' TO '; print: class; flush. self interpreter: oldInterpreter object: (self oldClassOopFor: class) perform: addClassVarNameSym withArguments: {oldHeap stringForCString: binding key}. literalMap at: binding put: (self interpreter: oldInterpreter object: (self oldClassOopFor: class) perform: bindingOfSym withArguments: {self findSymbol: binding key})]. toBeInitialized := classVars asSet! Item was changed: ----- Method: SpurBootstrap>>bootstrapImageUsingFileReference: (in category 'public access') ----- bootstrapImageUsingFileReference: imageName | dirName baseName dir | dirName := imageName asFileReference parent fullName. baseName := (imageName endsWith: '.image') ifTrue: [ imageName asFileReference base ] ifFalse: [ (imageName, '.image') asFileReference base ]. dir := dirName asFileReference. self on: (dir / (baseName, '.image')) fullName. [self transform] on: Halt do: [:ex| "suppress halts from the usual suspects (development time halts)" (#(fullGC compactImage) includes: ex signalerContext sender selector) ifTrue: [ex resume] ifFalse: [ex pass]]. self writeSnapshot: (dir / (baseName, '-spur.image')) fullName ofTransformedImage: newHeap headerFlags: oldInterpreter getImageHeaderFlags screenSize: oldInterpreter savedWindowSize. (dir / (baseName, '.changes')) copyTo: (dir / (baseName, '-spur.changes'))! Item was changed: ----- Method: SpurBootstrap>>checkReshapeOf: (in category 'bootstrap image') ----- checkReshapeOf: ourMethodClasses "Check the shape of all our method classes match the shape of those in the image to be bootstrapped. Use the simulator to redefine any that need it. Does /not/ reshape metaclasses; these we assume are ok." | toReshape | toReshape := Set new. ourMethodClasses do: + [:mc| + (literalMap at: mc binding ifAbsent: []) ifNotNil: + [:binding| + (mc ~~ Character "Character will reshape anyway" + and: [mc instSize ~= (oldHeap instanceSizeOf: (oldHeap fetchPointer: ValueIndex ofObject: binding))]) ifTrue: + [toReshape add: mc]]]. - [:mc| | binding | - binding := literalMap at: mc binding. - self assert: binding ~= oldHeap nilObject. - (mc ~~ Character "Character will reshape anyway" - and: [mc instSize ~= (oldHeap instanceSizeOf: (oldHeap fetchPointer: ValueIndex ofObject: binding))]) ifTrue: - [toReshape add: mc]]. toReshape isEmpty ifTrue: [^self]. "Assume only one class in any subtree needs reshaping. Fast and loose but gets us there for now." toReshape copy do: [:class| toReshape removeAll: (toReshape select: [:ea| ea inheritsFrom: class])]. toReshape do: [:class| Transcript cr; nextPutAll: 'RESHAPING '; print: class; flush. self interpreter: oldInterpreter object: (self oldClassOopFor: Compiler) perform: (self findSymbol: #evaluate:) withArguments: {oldHeap stringForCString: class definition}]! Item was changed: ----- Method: SpurBootstrap>>findRequiredGlobals (in category 'bootstrap image') ----- findRequiredGlobals "Look for the necessary gobal bindings in the prototype methods in the old image. This has to be done early by sending bindingOf: to Smalltalk. Collect the class hierarchy of all prototypes that access inst vars (non-local prototypes) to check their shapes. Also find out Metaclass, needed for identifying classes." | globals ourMethodClasses classVars bindingOfSym | globals := Set new. ourMethodClasses := Set new. classVars := Dictionary new. self prototypeClassNameMetaSelectorMethodDo: + [:c :m :s :method| | allNonMetaSupers | + (Smalltalk classNamed: c) ifNotNil: + [ :nonMetaClass| + allNonMetaSupers := nonMetaClass withAllSuperclasses. + method methodClass ~= SpurBootstrap class ifTrue: + [ourMethodClasses addAll: allNonMetaSupers]. + globals addAll: (allNonMetaSupers collect: [:sc| sc binding]). + method literals do: + [:l| + (l isVariableBinding and: [l key isSymbol]) ifTrue: + [(Smalltalk bindingOf: l key) == l + ifTrue: [globals add: l] + ifFalse: + [self assert: (nonMetaClass bindingOf: l key) == l. + classVars at: l put: nonMetaClass]]]]]. - [:c :m :s :method| | nonMetaClass allNonMetaSupers | - allNonMetaSupers := (nonMetaClass := Smalltalk classNamed: c) withAllSuperclasses. - method methodClass ~= SpurBootstrap class ifTrue: - [ourMethodClasses addAll: allNonMetaSupers]. - globals addAll: (allNonMetaSupers collect: [:sc| sc binding]). - method literals do: - [:l| - (l isVariableBinding and: [l key isSymbol]) ifTrue: - [(Smalltalk bindingOf: l key) == l - ifTrue: [globals add: l] - ifFalse: - [self assert: (nonMetaClass bindingOf: l key) == l. - classVars at: l put: nonMetaClass]]]]. globals add: Compiler binding. "For potential reshaping in checkReshapeOf:" bindingOfSym := self findSymbol: #bindingOf:. self withExecutableInterpreter: oldInterpreter do: [| toBeAdded | globals do: [:global| | bindingOop | bindingOop := self interpreter: oldInterpreter object: (oldHeap splObj: 8) "Smalltalk" perform: bindingOfSym withArguments: {self findSymbol: global key}. + bindingOop ~= oldHeap nilObject ifTrue: + [literalMap at: global put: bindingOop]]. - self assert: bindingOop ~= oldHeap nilObject. - literalMap at: global put: bindingOop]. toBeAdded := Dictionary new. classVars keysAndValuesDo: [:var :class| | val | (self findSymbol: var key) "New class inst vars may not yet be interned." ifNil: [toBeAdded at: var put: class] ifNotNil: [:varName| val := self interpreter: oldInterpreter object: (self oldClassOopFor: class) perform: bindingOfSym withArguments: {varName}. val ~= oldHeap nilObject ifTrue: [literalMap at: var put: val] ifFalse: [toBeAdded at: var put: class]]]. "May have to redefine to add missing inst vars and/or add any missing class vars." self checkReshapeOf: ourMethodClasses. self addMissingClassVars: toBeAdded]!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev August 2014