Vm-dev March 2014

vm-dev@lists.squeakfoundation.org

23 participants
104 discussions

Re: [Pharo-dev] Buffer overflow in VM?
by btc＠openinworld.com 23 Mar '14

23 Mar '14

Forwarded to VM list. Jan Vrany wrote: > Hi guys, > > when validating fix from Ben, I found another interesting thing: > > 1) Create quite a deeply nested directory, in my case full path was: > > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf > > > (yes, it's that crazy, nevertheless perfectly valid. 248 bytes in > total. > > 2) Download last pharo to the inner-most directory: > wget -O- get.pharo.org/30+vm | bash > > 3) run it: > ./pharo-ui Pharo.image > > VM crashes, producing following on stdout/err: > > *** buffer overflow detected ***: > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo > terminated > ======= Backtrace: ========= > /lib/i386-linux-gnu/libc.so.6(__fortify_fail+0x65)[0xf763ded5] > /lib/i386-linux-gnu/libc.so.6(+0x103c8a)[0xf763cc8a] > /lib/i386-linux-gnu/libc.so.6(+0x1032e8)[0xf763c2e8] > /lib/i386-linux-gnu/libc.so.6(_IO_default_xsputn+0x91)[0xf75ac501] > /lib/i386-linux-gnu/libc.so.6(_IO_vfprintf+0x2352)[0xf757de02] > /lib/i386-linux-gnu/libc.so.6(__vsprintf_chk+0xc9)[0xf763c3b9] > /lib/i386-linux-gnu/libc.so.6(__sprintf_chk+0x2f)[0xf763c2cf] > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo[0x8098763] > > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo(ioLoadModule+0x172)[0x8098a72] > > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo(queryLoadModule+0x123)[0x809a393] > > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo(queryModule+0x1f)[0x809a47f] > > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo(main+0x4e9)[0x805b519] > > /lib/i386-linux-gnu/libc.so.6(__libc_start_main+0xf3)[0xf75524d3] > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo[0x805b5f1] > > ======= Memory map: ======== > 08048000-0812c000 r-xp 00000000 fc:00 5779868 > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo > > 0812c000-0812d000 r--p 000e3000 fc:00 5779868 > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo > > 0812d000-08137000 rw-p 000e4000 fc:00 5779868 > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/pharo > > 08137000-08173000 rw-p 00000000 00:00 0 > 08b12000-08b33000 rw-p 00000000 00:00 0 [heap] > f6f5d000-f6f79000 r-xp 00000000 fc:00 2913365 > /lib/i386-linux-gnu/libgcc_s.so.1 > f6f79000-f6f7a000 r--p 0001b000 fc:00 2913365 > /lib/i386-linux-gnu/libgcc_s.so.1 > f6f7a000-f6f7b000 rw-p 0001c000 fc:00 2913365 > /lib/i386-linux-gnu/libgcc_s.so.1 > f6f7b000-f6f82000 r-xp 00000000 fc:00 2989741 > /lib/i386-linux-gnu/librt-2.15.so > f6f82000-f6f83000 r--p 00006000 fc:00 2989741 > /lib/i386-linux-gnu/librt-2.15.so > f6f83000-f6f84000 rw-p 00007000 fc:00 2989741 > /lib/i386-linux-gnu/librt-2.15.so > f6f84000-f6f89000 r-xp 00000000 fc:00 3841794 > /usr/lib/i386-linux-gnu/libXdmcp.so.6.0.0 > f6f89000-f6f8a000 r--p 00004000 fc:00 3841794 > /usr/lib/i386-linux-gnu/libXdmcp.so.6.0.0 > f6f8a000-f6f8b000 rw-p 00005000 fc:00 3841794 > /usr/lib/i386-linux-gnu/libXdmcp.so.6.0.0 > f6f8b000-f6f8d000 r-xp 00000000 fc:00 3841792 > /usr/lib/i386-linux-gnu/libXau.so.6.0.0 > f6f8d000-f6f8e000 r--p 00001000 fc:00 3841792 > /usr/lib/i386-linux-gnu/libXau.so.6.0.0 > f6f8e000-f6f8f000 rw-p 00002000 fc:00 3841792 > /usr/lib/i386-linux-gnu/libXau.so.6.0.0 > f6f8f000-f6f9a000 r-xp 00000000 fc:00 3801636 > /usr/lib/i386-linux-gnu/libdrm.so.2.4.0 > f6f9a000-f6f9b000 r--p 0000a000 fc:00 3801636 > /usr/lib/i386-linux-gnu/libdrm.so.2.4.0 > f6f9b000-f6f9c000 rw-p 0000b000 fc:00 3801636 > /usr/lib/i386-linux-gnu/libdrm.so.2.4.0 > f6f9c000-f6fbc000 r-xp 00000000 fc:00 3846353 > /usr/lib/i386-linux-gnu/libxcb.so.1.1.0 > f6fbc000-f6fbd000 r--p 0001f000 fc:00 3846353 > /usr/lib/i386-linux-gnu/libxcb.so.1.1.0 > f6fbd000-f6fbe000 rw-p 00020000 fc:00 3846353 > /usr/lib/i386-linux-gnu/libxcb.so.1.1.0 > f6fbe000-f6fd4000 r-xp 00000000 fc:00 3843823 > /usr/lib/i386-linux-gnu/libxcb-glx.so.0.0.0 > f6fd4000-f6fd5000 r--p 00016000 fc:00 3843823 > /usr/lib/i386-linux-gnu/libxcb-glx.so.0.0.0 > f6fd5000-f6fd6000 rw-p 00017000 fc:00 3843823 > /usr/lib/i386-linux-gnu/libxcb-glx.so.0.0.0 > f6fd6000-f6fdb000 r-xp 00000000 fc:00 3846389 > /usr/lib/i386-linux-gnu/libXfixes.so.3.1.0 > f6fdb000-f6fdc000 r--p 00004000 fc:00 3846389 > /usr/lib/i386-linux-gnu/libXfixes.so.3.1.0 > f6fdc000-f6fdd000 rw-p 00005000 fc:00 3846389 > /usr/lib/i386-linux-gnu/libXfixes.so.3.1.0 > f6fdd000-f6fdf000 r-xp 00000000 fc:00 3843329 > /usr/lib/i386-linux-gnu/libXdamage.so.1.1.0 > f6fdf000-f6fe0000 r--p 00001000 fc:00 3843329 > /usr/lib/i386-linux-gnu/libXdamage.so.1.1.0 > f6fe0000-f6fe1000 rw-p 00002000 fc:00 3843329 > /usr/lib/i386-linux-gnu/libXdamage.so.1.1.0 > f6fe1000-f6ff1000 r-xp 00000000 fc:00 3846377 > /usr/lib/i386-linux-gnu/libXext.so.6.4.0 > f6ff1000-f6ff2000 r--p 0000f000 fc:00 3846377 > /usr/lib/i386-linux-gnu/libXext.so.6.4.0 > f6ff2000-f6ff3000 rw-p 00010000 fc:00 3846377 > /usr/lib/i386-linux-gnu/libXext.so.6.4.0 > f6ff3000-f7126000 r-xp 00000000 fc:00 3846357 > /usr/lib/i386-linux-gnu/libX11.so.6.3.0 > f7126000-f7127000 r--p 00132000 fc:00 3846357 > /usr/lib/i386-linux-gnu/libX11.so.6.3.0 > f7127000-f712a000 rw-p 00133000 fc:00 3846357 > /usr/lib/i386-linux-gnu/libX11.so.6.3.0 > f712a000-f7181000 r-xp 00000000 fc:00 3806685 > /usr/lib/i386-linux-gnu/mesa/libGL.so.1.2.0 > f7181000-f7183000 r--p 00056000 fc:00 3806685 > /usr/lib/i386-linux-gnu/mesa/libGL.so.1.2.0 > f7183000-f7188000 rwxp 00058000 fc:00 3806685 > /usr/lib/i386-linux-gnu/mesa/libGL.so.1.2.0 > f71ac000-f71c4000 r-xp 00000000 fc:00 5779870 > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/vm-display-X11 > > f71c4000-f71c5000 r--p 00017000 fc:00 5779870 > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/vm-display-X11 > > f71c5000-f71c6000 rw-p 00018000 fc:00 5779870 > /home/jv/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf/pharo-vm/vm-display-X11 > > f71c6000-f71c7000 rw-p 00000000 00:00 0 > f71c7000-f71c8000 r--p 00461000 fc:00 3688627 > /usr/lib/locale/locale-archive > f71c8000-f7338000 r--p 001bc000 fc:00 3688627 > /usr/lib/locale/locale-archive > f7338000-f7538000 r--p 00000000 fc:00 3688627 > /usr/lib/locale/locale-archive > f7538000-f7539000 rw-p 00000000 00:00 0 > f7539000-f76dd000 r-xp 00000000 fc:00 2989731 > /lib/i386-linux-gnu/libc-2.15.so > f76dd000-f76de000 ---p 001a4000 fc:00 2989731 > /lib/i386-linux-gnu/libc-2.15.so > f76de000-f76e0000 r--p 001a4000 fc:00 2989731 > /lib/i386-linux-gnu/libc-2.15.so > f76e0000-f76e1000 rw-p 001a6000 fc:00 2989731 > /lib/i386-linux-gnu/libc-2.15.so > f76e1000-f76e4000 rw-p 00000000 00:00 0 > f76e4000-f76fb000 r-xp 00000000 fc:00 2989747 > /lib/i386-linux-gnu/libpthread-2.15.so > f76fb000-f76fc000 r--p 00016000 fc:00 2989747 > /lib/i386-linux-gnu/libpthread-2.15.so > f76fc000-f76fd000 rw-p 00017000 fc:00 2989747 > /lib/i386-linux-gnu/libpthread-2.15.so > f76fd000-f7700000 rw-p 00000000 00:00 0 > f7700000-f7703000 r-xp 00000000 fc:00 2989746 > /lib/i386-linux-gnu/libdl-2.15.so > f7703000-f7704000 r--p 00002000 fc:00 2989746 > /lib/i386-linux-gnu/libdl-2.15.so > f7704000-f7705000 rw-p 00003000 fc:00 2989746 > /lib/i386-linux-gnu/libdl-2.15.so > f7705000-f772f000 r-xp 00000000 fc:00 2989763 > /lib/i386-linux-gnu/libm-2.15.so > f772f000-f7730000 r--p 00029000 fc:00 2989763 > /lib/i386-linux-gnu/libm-2.15.so > f7730000-f7731000 rw-p 0002a000 fc:00 2989763 > /lib/i386-linux-gnu/libm-2.15.so > f7735000-f7736000 rw-p 00000000 00:00 0 > f7736000-f773a000 r-xp 00000000 fc:00 3846693 > /usr/lib/i386-linux-gnu/libXxf86vm.so.1.0.0 > f773a000-f773b000 r--p 00003000 fc:00 3846693 > /usr/lib/i386-linux-gnu/libXxf86vm.so.1.0.0 > f773b000-f773c000 rw-p 00004000 fc:00 3846693 > /usr/lib/i386-linux-gnu/libXxf86vm.so.1.0.0 > f773c000-f773d000 r-xp 00000000 fc:00 3843521 > /usr/lib/i386-linux-gnu/libX11-xcb.so.1.0.0 > f773d000-f773e000 r--p 00000000 fc:00 3843521 > /usr/lib/i386-linux-gnu/libX11-xcb.so.1.0.0 > f773e000-f773f000 rw-p 00001000 fc:00 3843521 > /usr/lib/i386-linux-gnu/libX11-xcb.so.1.0.0 > f773f000-f774e000 r-xp 00000000 fc:00 3803606 > /usr/lib/i386-linux-gnu/libglapi.so.0.0.0 > f774e000-f7750000 r--p 0000f000 fc:00 3803606 > /usr/lib/i386-linux-gnu/libglapi.so.0.0.0 > f7750000-f7755000 rwxp 00011000 fc:00 3803606 > /usr/lib/i386-linux-gnu/libglapi.so.0.0.0 > f7755000-f7757000 rw-p 00000000 00:00 0 > f7757000-f7758000 r-xp 00000000 00:00 0 [vdso] > f7758000-f7778000 r-xp 00000000 fc:00 2989754 > /lib/i386-linux-gnu/ld-2.15.so > f7778000-f7779000 r--p 0001f000 fc:00 2989754 > /lib/i386-linux-gnu/ld-2.15.so > f7779000-f777a000 rw-p 00020000 fc:00 2989754 > /lib/i386-linux-gnu/ld-2.15.so > ffe2a000-ffe4c000 rw-p 00000000 00:00 0 [stack] > ./pharo-ui: line 11: 31488 Aborted (core dumped) > "$DIR"/"pharo-vm/pharo" "$@" > jv@sao:~/Projects/Pharo/3.0/dsdsadasdsadasdas/DasDasDasdASdASdASDasDas/das/das/das/dasd/dasdasdastget4efdsfsd/dasdasdasdasda/dadasdasdasdas/dasdasdadasdasdadasdasdasdasdasdasdasdsadas/dadasdasdasdasrewgdfgbfdcghbcfgdf/gdf/gdfgdfgdf/gdfg/df/gdf/gdf$ > > > Running it under GDB shows following backtrace: > > Program received signal SIGABRT, Aborted. > 0xf7fdb430 in __kernel_vsyscall () > (gdb) bt > #0 0xf7fdb430 in __kernel_vsyscall () > #1 0xf7deb1df in raise () from /lib/i386-linux-gnu/libc.so.6 > #2 0xf7dee825 in abort () from /lib/i386-linux-gnu/libc.so.6 > #3 0xf7e2839a in ?? () from /lib/i386-linux-gnu/libc.so.6 > #4 0xf7ec1ed5 in __fortify_fail () from /lib/i386-linux-gnu/libc.so.6 > #5 0xf7ec0c8a in __chk_fail () from /lib/i386-linux-gnu/libc.so.6 > #6 0xf7ec02e8 in ?? () from /lib/i386-linux-gnu/libc.so.6 > #7 0xf7e30501 in _IO_default_xsputn () from > /lib/i386-linux-gnu/libc.so.6 > #8 0xf7e01e02 in vfprintf () from /lib/i386-linux-gnu/libc.so.6 > #9 0xf7ec03b9 in __vsprintf_chk () from /lib/i386-linux-gnu/libc.so.6 > #10 0xf7ec02cf in __sprintf_chk () from /lib/i386-linux-gnu/libc.so.6 > #11 0x08098763 in tryLoading () > #12 0x08098a72 in ioLoadModule () > #13 0x0809a393 in queryLoadModule () > #14 0x0809a47f in queryModule () > #15 0x0805b519 in main () > > Good you compile with -fstack-protector :-) > > Best, Jan > >

2 1

Audio problem, an Exception on sqUnixSoundOSS.c.
by Gustavo Duarte 22 Mar '14

22 Mar '14

Hi folks, Preliminary Information: Image: Scratch SqueakVm: 4.10.2-2614 Sist. Op: Ubuntu 12.04 Steps to reproduce this error. 0) Execute SqueakVm from a console. 1) Go to sounds, and play the default record already on the image. 2) Hear the sound, without problem 3) Click on button to record a new sound. 4) An exception is raised, showed bellow. Executing: padsp /usr/lib/squeak/4.10.2-2614/squeakvm -encoding UTF-8 -vm-display-x11 -xshm -plugins /usr/lib/scratch/plugins/:/usr/lib/squeak/4.10.2-2614/ -vm-sound-oss /usr/share/scratch/Scratch.image squeakvm: /tmp/makepackage/PACKAGES/squeak-vm/source/unix/vm-sound-OSS/sqUnixSoundOSS.c:355: dspOpen: La declaración `dsp->fd < 0' no se cumple. Abortado 1) Is right report this issue here ? is it squeakvm bug ? Or should i report on Scratch tracker list ? 2) What else can I do to try figure out what is happening ? Thanks in advance. Gustavo.

3 3

Re: [squeak-dev] Switch full screen ON to OFF
by David T. Lewis 22 Mar '14

22 Mar '14

Hi Gustavo, The problem with full screen on/off looks like it may be caused by the X11 window manager in Ubuntu, and I do not know how long it may take to resolve this in the Squeak VM or in Ubuntu. I see from your explanation here that the problem may be affecting children in the Plan Ceibal project already, so it would be good to find a solution soon. I think that I have found a workaround for the problem that may help. I am attaching a change set that you can file in to a Squeak image, either the Squeak 3.9 image that you mentioned, or any other recent Squeak 4.5 image. This change uses one of the plugins in the squeak-vm package on Ubuntu, and it will force a reconnection to the X11 display after the Squeak window returns from full screen mode. Can you please try loading this change set into Squeak, and testing it on an MG3 laptop with Ubuntu 12.04? I have not tested this yet with Scratch, but if it works on Squeak with Ubuntu 12.04, then it will probably work with Scratch also. This is not a real solution to the problem, but if it works on the laptops for Plan Ciebal then maybe it will help until we are able to fix the real problem. Thanks, Dave On Mon, Mar 17, 2014 at 06:11:44PM -0300, Gustavo Duarte wrote: > Hi, > > Overview > ======== > > I would like make a brief overview of the situation. > > In my case, this problem is happening on laptos Magalahes model MG3, > these kind of the machines are manufactured by a Portuguese company, > http://www.jp-ik.com/, focuses on provide laptop for children. > > Here in Uruguay there is a country wide Educational Project, called > "Plan Ceibal"[1] [2]. Thousand of these machines were distributed to > children on the schools around all the country. > > Until last year 2013, this machines comes with Ubnutu 10.04 installed > and Squeak was working like a charm. > > Currently a migration to Ubuntu 12.04 is on deployment stage, and some > of the remaining issues is this (Squeak). > > More info about the HW of this Machine [3] > > > Research results so far: > ========================== > > I tried get more information, calling fullScreenON and Off from > Worksapce unsessfully, same behavior happened, but no additional data > were printed out. > > > Now, I will take the another approach, related with a comment did by Tim > Rowledge on the old thread. > > << > "I?d say that strongly suggests a problem in the code setting the screen > mode; you?ll find it (for unix) in platforms/unix/vm-display- > X11/sqUnixX11.c at the function display_ioSetFullScreen(sqInt > fullScreen). Since it works on many unices and has for a long time I > imagine it means some problem with the specific machine?s display driver > code. That could be all sorts of fun to solve. At the very least you?ll > need to find an X expert, which is not me." > >> > > > Taking in account, i have never developed on Squeak, my plan would be like: > > 1) Add debugging cide like "printf" to sqUnix11.c to may debug, and > check if there where the problem > > 2) Compile Squeak - VM from sourece code, modified. > > 3) Run Squeak vm with clean Squeak image. > > 4) See the output of debugging code. > > 5) With these new clues, i'll ask help to a X expert. > > What do you think, that sounds reasonable ? > > Is another easier approach ? > > Thanks in advance. > > > Gustavo. > > > [1] http://www.ceibal.edu.uy > [2] http://en.wikipedia.org/wiki/Ceibal_project > [3] > http://www.ceibal.edu.uy/art%C3%ADculo/noticias/consultas/hardwaremagallane… > > > On 03/17/2014 01:58 PM, gettimothy wrote: > >No Eeks!, flurps, oopsies, fscks or oy's here. > > > >Full screen works just dandy with dual monitors. > >Platform is a workstation, NVidia GEForce, Slackware Linux. > > > >Image > >----- > > > >Squeak4.5 > >latest update: #13680 > >Current Change Set: dude > >Image format 6505 (32 bit) > > > >Virtual Machine > >--------------- > >/home/wm/usr/bin/coglinux/lib/squeak/4.0-2749/squeak > >Croquet Closure Cog VM [CoInterpreter VMMaker.oscog-eem.302] > >Unix built on Jul 15 2013 15:49:06 Compiler: 4.1.2 20080704 (Red Hat > >4.1.2-48) > >platform sources revision VM: r2749 > >http://www.squeakvm.org/svn/squeak/branches/Cog Plugins: r2545 > >http://squeakvm.org/svn/squeak/trunk/platforms/Cross/plugins > >CoInterpreter VMMaker.oscog-eem.302 uuid: > >2ac39432-ac54-4584-964e-b129c90792f4 Jul 15 2013 > >StackToRegisterMappingCogit VMMaker.oscog-eem.302 uuid: > >2ac39432-ac54-4584-964e-b129c90792f4 Jul 15 2013 > > > > > > > > > > > >

2 2

Re: [squeak-dev] re: host platform maintainers (was "Squeak 4.5")
by David T. Lewis 21 Mar '14

21 Mar '14

On Fri, Mar 21, 2014 at 11:40:00AM +0100, Craig Latta wrote: > > Hi-- > > > ...riskOS branches... > > Freudian slip? :) Oops ;-) > > > ...but we have gaps in Mac and Windows platform ownership... > > I can be a steward for these platforms, since I'm filling in the > gaps for them (and the others) anyway for Spoon (using virtual machines > such as Parallels where necessary). I'm happy to discuss the details. > Thanks Craig! let's discuss on vm-dev (CCed). Dave > Speaking of RISC OS, I'd appreciate some fresh and definitive > pointers for best running it in emulation (e.g., [1] still leaves too > much research to the reader). It's a bit of a muddle from what I can > see, given that the project is so heavily forked and so much old -- er, > "classic" -- hardware is involved. I have separate hardware that runs > one of the forks (a Raspberry Pi), but I have all the other host > platforms running on a single laptop. That has been qualitatively more > productive. > > > thanks, > > -C > > [1] https://en.wikipedia.org/wiki/RISC_OS > > -- > Craig Latta > www.netjam.org/resume > +31 6 2757 7177 (SMS ok) > + 1 415 287 3547 (no SMS) >

1 0

VM Maker: VMMaker.oscog-eem.654.mcz
by commits＠source.squeak.org 21 Mar '14

21 Mar '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.654.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.654 Author: eem Time: 21 March 2014, 4:43:36.879 am UUID: 0b86152b-2ab0-40e7-a54b-b2abc4e53e64 Ancestors: VMMaker.oscog-eem.653 Streamline copyAndForward: and forward[Survivor]:to: and clients of setFormatOf:to: & setClassIndexOf:to:. =============== Diff against VMMaker.oscog-eem.653 =============== Item was changed: ----- Method: Spur32BitMemoryManager>>changeClassOf:to: (in category 'interpreter access') ----- changeClassOf: rcvr to: argClass "Attempt to change the class of the receiver to the argument given that the format of the receiver matches the format of the argument. If successful, answer 0, otherwise answer an error code indicating the reason for failure. Fail if the format of the receiver is incompatible with the format of the argument, or if the argument is a fixed class and the receiver's size differs from the size that an instance of the argument should have." <inline: false> | classFormat fixedFields instFormat normalizedInstFormat newFormat classIndex | classFormat := self formatOfClass: argClass. fixedFields := self fixedFieldsOfClassFormat: classFormat. classFormat := self instSpecOfClassFormat: classFormat. instFormat := self formatOf: rcvr. normalizedInstFormat := self classFormatForInstanceFormat: instFormat. (normalizedInstFormat > self lastPointerFormat and: [normalizedInstFormat = classFormat]) ifTrue: [newFormat := instFormat] ifFalse: [normalizedInstFormat <= self lastPointerFormat ifTrue: [classFormat > self lastPointerFormat ifTrue: [^PrimErrInappropriate]. (self numSlotsOf: rcvr) < fixedFields ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat] ifFalse: [| instBytes | instBytes := self byteLengthOf: rcvr. normalizedInstFormat caseOf: { [self sixtyFourBitIndexableFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. newFormat := classFormat]. [self firstLongFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. (classFormat = self sixtyFourBitIndexableFormat and: [instBytes anyMask: 1]) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat]. [self firstShortFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. classFormat caseOf: { [self sixtyFourBitIndexableFormat] -> [(instBytes anyMask: 3) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat]. [self firstLongFormat] -> [(instBytes anyMask: 1) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat]. [self firstByteFormat] -> [newFormat := classFormat + (4 - instBytes bitAnd: 3)] }]. [self firstByteFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. classFormat caseOf: { [self sixtyFourBitIndexableFormat] -> [(instBytes anyMask: 7) ifTrue: [^PrimErrBadReceiver]]. [self firstLongFormat] -> [(instBytes anyMask: 3) ifTrue: [^PrimErrBadReceiver]]. [self firstShortFormat] -> [(instBytes anyMask: 1) ifTrue: [^PrimErrBadReceiver]] }. newFormat := classFormat]. [self firstCompiledMethodFormat] -> [classFormat ~= self firstCompiledMethodFormat ifTrue: [^PrimErrInappropriate]. newFormat := instFormat] }]]. (classIndex := self ensureBehaviorHash: argClass) < 0 ifTrue: [^classIndex negated]. + self set: rcvr classIndexTo: classIndex formatTo: newFormat. - - self setFormatOf: rcvr to: newFormat; - setClassIndexOf: rcvr to: classIndex. "ok" ^0! Item was added: + ----- Method: Spur32BitMemoryManager>>set:classIndexTo:formatTo: (in category 'header access') ----- + set: objOop classIndexTo: classIndex formatTo: format + "0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 unused, reserved for exotic pointer objects? + 7 Forwarded Object, 1st field is pointer, rest of fields are ignored + 8 unused, reserved for exotic non-pointer objects? + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable + 16 - 23 byte indexable + 24 - 31 compiled method" + <inline: true> + self assert: (classIndex between: 0 and: self classIndexMask). + self assert: (format between: 0 and: self formatMask). + self flag: #endianness. + self longAt: objOop + put: ((self longAt: objOop) bitAnd: (self formatMask << self formatShift + self classIndexMask) bitInvert32) + + (classIndex + + (format << self formatShift))! Item was changed: ----- Method: Spur64BitMemoryManager>>changeClassOf:to: (in category 'interpreter access') ----- changeClassOf: rcvr to: argClass "Attempt to change the class of the receiver to the argument given that the format of the receiver matches the format of the argument. If successful, answer 0, otherwise answer an error code indicating the reason for failure. Fail if the format of the receiver is incompatible with the format of the argument, or if the argument is a fixed class and the receiver's size differs from the size that an instance of the argument should have." <inline: false> | classFormat fixedFields instFormat normalizedInstFormat newFormat classIndex | classFormat := self formatOfClass: argClass. fixedFields := self fixedFieldsOfClassFormat: classFormat. classFormat := self instSpecOfClassFormat: classFormat. instFormat := self formatOf: rcvr. normalizedInstFormat := self classFormatForInstanceFormat: instFormat. (normalizedInstFormat > self lastPointerFormat and: [normalizedInstFormat = classFormat]) ifTrue: [newFormat := instFormat] ifFalse: [normalizedInstFormat <= self lastPointerFormat ifTrue: [classFormat > self lastPointerFormat ifTrue: [^PrimErrInappropriate]. (self numSlotsOf: rcvr) < fixedFields ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat] ifFalse: [| instBytes | instBytes := self byteLengthOf: rcvr. normalizedInstFormat caseOf: { [self sixtyFourBitIndexableFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. newFormat := classFormat]. [self firstLongFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. (classFormat = self sixtyFourBitIndexableFormat and: [instBytes anyMask: 1]) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat]. [self firstShortFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. classFormat caseOf: { [self sixtyFourBitIndexableFormat] -> [(instBytes anyMask: 7) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat]. [self firstLongFormat] -> [(instBytes anyMask: 3) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat + (2 - instBytes bitAnd: 1)]. [self firstByteFormat] -> [newFormat := classFormat + (8 - instBytes bitAnd: 7)] }]. [self firstByteFormat] -> [(classFormat < self sixtyFourBitIndexableFormat or: [classFormat >= self firstCompiledMethodFormat]) ifTrue: [^PrimErrInappropriate]. classFormat caseOf: { [self sixtyFourBitIndexableFormat] -> [(instBytes anyMask: 7) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat]. [self firstLongFormat] -> [(instBytes anyMask: 3) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat + (2 - instBytes bitAnd: 1)]. [self firstShortFormat] -> [(instBytes anyMask: 1) ifTrue: [^PrimErrBadReceiver]. newFormat := classFormat + (4 - instBytes bitAnd: 3)] }. newFormat := classFormat]. [self firstCompiledMethodFormat] -> [classFormat ~= self firstCompiledMethodFormat ifTrue: [^PrimErrInappropriate]. newFormat := instFormat] }]]. (classIndex := self ensureBehaviorHash: argClass) < 0 ifTrue: [^classIndex negated]. + self set: rcvr classIndexTo: classIndex formatTo: newFormat. - - self setFormatOf: rcvr to: newFormat; - setClassIndexOf: rcvr to: classIndex. "ok" ^0! Item was added: + ----- Method: Spur64BitMemoryManager>>set:classIndexTo:formatTo: (in category 'header access') ----- + set: objOop classIndexTo: classIndex formatTo: format + "0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 unused, reserved for exotic pointer objects? + 7 Forwarded Object, 1st field is pointer, rest of fields are ignored + 8 unused, reserved for exotic non-pointer objects? + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable + 16 - 23 byte indexable + 24 - 31 compiled method" + <inline: true> + self assert: (classIndex between: 0 and: self classIndexMask). + self assert: (format between: 0 and: self formatMask). + self longAt: objOop + put: ((self longAt: objOop) bitAnd: (self formatMask << self formatShift + self classIndexMask) bitInvert64) + + (classIndex + + (format << self formatShift))! Item was changed: ----- Method: SpurGenerationScavenger>>copyAndForward: (in category 'scavenger') ----- copyAndForward: survivor "copyAndForward: survivor copies a survivor object either to futureSurvivorSpace or, if it is to be promoted, to oldSpace. It leaves a forwarding pointer behind. If the object is weak then corpse is threaded onto the weakList for later treatment." <inline: false> + | bytesInObj format newLocation | - | bytesInObj newLocation hash | self assert: ((manager isInEden: survivor) "cog methods should be excluded." or: [manager isInPastSpace: survivor]). bytesInObj := manager bytesInObject: survivor. + format := manager formatOf: survivor. - "Must remember hash before copying because threading - on to the weak & ephemeron lists smashes the hash field." - hash := manager rawHashBitsOf: survivor. ((self shouldBeTenured: survivor) or: [futureSurvivorStart + bytesInObj > futureSpace limit]) + ifTrue: [newLocation := self copyToOldSpace: survivor bytes: bytesInObj format: format] - ifTrue: [newLocation := self copyToOldSpace: survivor] ifFalse: [newLocation := self copyToFutureSpace: survivor bytes: bytesInObj]. - hash ~= 0 ifTrue: - [manager setHashBitsOf: newLocation to: hash]. manager forwardSurvivor: survivor to: newLocation. "if weak or ephemeron add to the relevant list for subsequent scanning." + (manager isWeakFormat: format) ifTrue: - (manager isWeakNonImm: newLocation) ifTrue: [self addToWeakList: survivor]. + ((manager isEphemeronFormat: format) - ((manager isEphemeron: newLocation) and: [(self isScavengeSurvivor: (manager keyOfEphemeron: newLocation)) not]) ifTrue: [self addToEphemeronList: survivor]. ^newLocation! Item was changed: ----- Method: SpurGenerationScavenger>>copyToOldSpace: (in category 'scavenger') ----- copyToOldSpace: survivor "Copy survivor to oldSpace. Answer the new oop of the object." <inline: true> + | nTenures numSlots hash newOop | - | nTenures numSlots newOop | nTenures := statTenures. self flag: 'why not just pass header??'. numSlots := manager numSlotsOf: survivor. + hash := manager rawHashBitsOf: survivor. newOop := manager allocateSlotsInOldSpace: numSlots format: (manager formatOf: survivor) classIndex: (manager classIndexOf: survivor). newOop ifNil: [manager growOldSpaceByAtLeast: 0. "grow by growHeadroom" newOop := manager allocateSlotsInOldSpace: numSlots format: (manager formatOf: survivor) classIndex: (manager classIndexOf: survivor). newOop ifNil: [self error: 'out of memory']]. manager mem: (newOop + manager baseHeaderSize) asVoidPointer cp: (survivor + manager baseHeaderSize) asVoidPointer y: numSlots * manager wordSize. + (manager hasPointerFields: survivor) ifTrue: + [self remember: newOop. + manager setIsRememberedOf: newOop to: true]. + hash ~= 0 ifTrue: + [manager setHashBitsOf: newOop to: hash]. - self remember: newOop. - manager setIsRememberedOf: newOop to: true. statTenures := nTenures + 1. ^newOop! Item was added: + ----- Method: SpurGenerationScavenger>>copyToOldSpace:bytes: (in category 'scavenger') ----- + copyToOldSpace: survivor bytes: bytesInObject + "Copy survivor to oldSpace. Answer the new oop of the object." + <inline: true> + | nTenures startOfSurvivor newStart newOop | + nTenures := statTenures. + startOfSurvivor := manager startOfObject: survivor. + newStart := manager allocateOldSpaceChunkOfBytes: bytesInObject. + newStart ifNil: + [manager growOldSpaceByAtLeast: 0. "grow by growHeadroom" + newStart := manager allocateOldSpaceChunkOfBytes: bytesInObject. + newStart ifNil: + [self error: 'out of memory']]. + manager checkFreeSpace. + manager mem: newStart asVoidPointer cp: startOfSurvivor asVoidPointer y: bytesInObject. + newOop := newStart + (survivor - startOfSurvivor). + (manager hasPointerFields: survivor) ifTrue: + [self remember: newOop. + manager setIsRememberedOf: newOop to: true]. + statTenures := nTenures + 1. + ^newOop! Item was added: + ----- Method: SpurGenerationScavenger>>copyToOldSpace:bytes:format: (in category 'scavenger') ----- + copyToOldSpace: survivor bytes: bytesInObject format: formatOfSurvivor + "Copy survivor to oldSpace. Answer the new oop of the object." + <inline: true> + | nTenures startOfSurvivor newStart newOop | + self assert: (formatOfSurvivor = (manager formatOf: survivor) + and: [(manager isMarked: survivor) not + and: [(manager isPinned: survivor) not + and: [(manager isRemembered: survivor) not]]]). + nTenures := statTenures. + startOfSurvivor := manager startOfObject: survivor. + newStart := manager allocateOldSpaceChunkOfBytes: bytesInObject. + newStart ifNil: + [manager growOldSpaceByAtLeast: 0. "grow by growHeadroom" + newStart := manager allocateOldSpaceChunkOfBytes: bytesInObject. + newStart ifNil: + [self error: 'out of memory']]. + manager checkFreeSpace. + manager mem: newStart asVoidPointer cp: startOfSurvivor asVoidPointer y: bytesInObject. + newOop := newStart + (survivor - startOfSurvivor). + (manager isAnyPointerFormat: formatOfSurvivor) ifTrue: + [self remember: newOop. + manager setIsRememberedOf: newOop to: true]. + statTenures := nTenures + 1. + ^newOop! Item was changed: ----- Method: SpurMemoryManager>>allInstancesOf: (in category 'primitive support') ----- allInstancesOf: aClass "Attempt to answer an array of all objects, excluding those that may be garbage collected as a side effect of allocating the result array. If no memory is available answer the number of instances as a SmallInteger. Since objects are at least 16 bytes big, and the largest SmallInteger covers 1/4 of the address space, the count can never overflow." | classIndex freeChunk ptr start limit count bytes | classIndex := self rawHashBitsOf: aClass. (classIndex = 0 or: [aClass ~~ (self classOrNilAtIndex: classIndex)]) ifTrue: [freeChunk := self allocateSlots: 0 format: self arrayFormat classIndex: ClassArrayCompactIndex. ^freeChunk]. self markObjects. "don't want to revive objects unnecessarily." freeChunk := self allocateLargestFreeChunk. ptr := start := freeChunk + self baseHeaderSize. limit := self addressAfter: freeChunk. count := 0. self allHeapEntitiesDo: [:obj| "continue enumerating even if no room so as to unmark all objects." (self isMarked: obj) ifTrue: [(self isNormalObject: obj) ifTrue: [self setIsMarkedOf: obj to: false. (self classIndexOf: obj) = classIndex ifTrue: [count := count + 1. ptr < limit ifTrue: [self longAt: ptr put: obj. ptr := ptr + self bytesPerSlot]]] ifFalse: [(self isSegmentBridge: obj) ifFalse: [self setIsMarkedOf: obj to: false]]]]. self assert: self allObjectsUnmarked. self assert: (self isEmptyObjStack: markStack). self emptyObjStack: weaklingStack. (count > (ptr - start / self bytesPerSlot) "not enough room" or: [limit ~= ptr and: [limit - ptr <= self allocationUnit]]) ifTrue: "can't split a single word" [self freeObject: freeChunk. ^self integerObjectOf: count]. count < self numSlotsMask ifTrue: [| smallObj | smallObj := self allocateSlots: count format: self arrayFormat classIndex: ClassArrayCompactIndex. 0 to: count - 1 do: [:i| self storePointerUnchecked: i ofObject: smallObj withValue: (self fetchPointer: i ofObject: freeChunk)]. self freeChunkWithBytes: (self bytesInObject: freeChunk) at: (self startOfObject: freeChunk). self beRootIfOld: smallObj. self checkFreeSpace. ^smallObj]. bytes := self largeObjectBytesForSlots: count. start := self startOfObject: freeChunk. self freeChunkWithBytes: limit - start - bytes at: start + bytes. totalFreeOldSpace := totalFreeOldSpace - bytes. self setOverflowNumSlotsOf: freeChunk to: count. + self set: freeChunk classIndexTo: ClassArrayCompactIndex formatTo: self arrayFormat. - self setClassIndexOf: freeChunk to: ClassArrayCompactIndex. - self setFormatOf: freeChunk to: self arrayFormat. self possibleRootStoreInto: freeChunk. self checkFreeSpace. ^freeChunk ! Item was changed: ----- Method: SpurMemoryManager>>allObjects (in category 'primitive support') ----- allObjects "Attempt to answer an array of all objects, excluding those that may be garbage collected as a side effect of allocating the result array. If no memory is available answer the number of objects as a SmallInteger. Since objects are at least 16 bytes big, and the largest SmallInteger covers 1/4 of the address space, the count can never overflow." | freeChunk ptr start limit count bytes | self markObjects. "don't want to revive objects unnecessarily." freeChunk := self allocateLargestFreeChunk. ptr := start := freeChunk + self baseHeaderSize. limit := self addressAfter: freeChunk. count := 0. self allHeapEntitiesDo: [:obj| "continue enumerating even if no room so as to unmark all objects." (self isMarked: obj) ifTrue: [(self isNormalObject: obj) ifTrue: [self setIsMarkedOf: obj to: false. count := count + 1. ptr < limit ifTrue: [self longAt: ptr put: obj. ptr := ptr + self bytesPerSlot]] ifFalse: [(self isSegmentBridge: obj) ifFalse: [self setIsMarkedOf: obj to: false]]]]. self assert: self allObjectsUnmarked. self assert: (self isEmptyObjStack: markStack). self emptyObjStack: weaklingStack. self assert: count >= self numSlotsMask. (count > (ptr - start / self bytesPerSlot) "not enough room" or: [limit ~= ptr and: [limit - ptr <= self allocationUnit]]) ifTrue: "can't split a single word" [self freeChunkWithBytes: (self bytesInObject: freeChunk) at: (self startOfObject: freeChunk). self checkFreeSpace. ^self integerObjectOf: count]. bytes := self largeObjectBytesForSlots: count. start := self startOfObject: freeChunk. self freeChunkWithBytes: limit - start - bytes at: start + bytes. totalFreeOldSpace := totalFreeOldSpace - bytes. self setOverflowNumSlotsOf: freeChunk to: count. + self set: freeChunk classIndexTo: ClassArrayCompactIndex formatTo: self arrayFormat. - self setClassIndexOf: freeChunk to: ClassArrayCompactIndex. - self setFormatOf: freeChunk to: self arrayFormat. self possibleRootStoreInto: freeChunk. self checkFreeSpace. ^freeChunk ! Item was changed: ----- Method: SpurMemoryManager>>forward:to: (in category 'become implementation') ----- forward: obj1 to: obj2 + self set: obj1 classIndexTo: self isForwardedObjectClassIndexPun formatTo: self forwardedFormat. - self setFormatOf: obj1 to: self forwardedFormat. - self setClassIndexOf: obj1 to: self isForwardedObjectClassIndexPun. self storePointer: 0 ofForwarder: obj1 withValue: obj2! Item was changed: ----- Method: SpurMemoryManager>>forwardSurvivor:to: (in category 'become implementation') ----- forwardSurvivor: obj1 to: obj2 + "This version of forward:to: can use an uncecked store because it is known that obj1 is young." self assert: (self isInNewSpace: obj1). self assert: ((self isInFutureSpace: obj2) or: [self isInOldSpace: obj2]). self storePointerUnchecked: 0 ofObject: obj1 withValue: obj2. + self set: obj1 classIndexTo: self isForwardedObjectClassIndexPun formatTo: self forwardedFormat! - self setFormatOf: obj1 to: self forwardedFormat. - self setClassIndexOf: obj1 to: self isForwardedObjectClassIndexPun! Item was changed: ----- Method: SpurMemoryManager>>hasPointerFields: (in category 'object testing') ----- hasPointerFields: oop <inline: true> - | format | ^(self isNonImmediate: oop) + and: [self hasPointerFieldsNonImm: oop]! - and: [(format := self formatOf: oop) <= self lastPointerFormat - or: [format >= self firstCompiledMethodFormat]]! Item was added: + ----- Method: SpurMemoryManager>>hasPointerFieldsNonImm: (in category 'object testing') ----- + hasPointerFieldsNonImm: oop + <inline: true> + ^self isAnyPointerFormat: (self formatOf: oop)! Item was added: + ----- Method: SpurMemoryManager>>isAnyPointerFormat: (in category 'header formats') ----- + isAnyPointerFormat: format + "the inverse of isPureBitsFormat:" + <inline: true> + ^format <= self lastPointerFormat or: [format >= self firstCompiledMethodFormat]! Item was changed: ----- Method: SpurMemoryManager>>isEphemeron: (in category 'object testing') ----- isEphemeron: objOop self assert: (self isNonImmediate: objOop). + ^self isEphemeronFormat: (self formatOf: objOop)! - ^(self formatOf: objOop) = self ephemeronFormat! Item was added: + ----- Method: SpurMemoryManager>>isEphemeronFormat: (in category 'header formats') ----- + isEphemeronFormat: format + <inline: true> + ^format = self ephemeronFormat! Item was changed: + ----- Method: SpurMemoryManager>>isIndexableFormat: (in category 'header formats') ----- - ----- Method: SpurMemoryManager>>isIndexableFormat: (in category 'object testing') ----- isIndexableFormat: format ^format >= self arrayFormat and: [format <= self weakArrayFormat or: [format >= self sixtyFourBitIndexableFormat]]! Item was changed: + ----- Method: SpurMemoryManager>>isPointersFormat: (in category 'header formats') ----- - ----- Method: SpurMemoryManager>>isPointersFormat: (in category 'object testing') ----- isPointersFormat: format ^format <= self lastPointerFormat! Item was changed: ----- Method: SpurMemoryManager>>isPureBitsFormat: (in category 'header formats') ----- isPureBitsFormat: format + "the inverse of isAnyPointerFormat:" ^format >= self sixtyFourBitIndexableFormat and: [format < self firstCompiledMethodFormat]! Item was added: + ----- Method: SpurMemoryManager>>isWeakFormat: (in category 'header formats') ----- + isWeakFormat: format + <inline: true> + ^format = self weakArrayFormat! Item was changed: ----- Method: SpurMemoryManager>>isWeakNonImm: (in category 'object testing') ----- isWeakNonImm: objOop + <inline: true> + ^self isWeakFormat: (self formatOf: objOop)! - ^(self formatOf: objOop) = self weakArrayFormat! Item was added: + ----- Method: SpurMemoryManager>>set:classIndexTo:formatTo: (in category 'header access') ----- + set: objOop classIndexTo: classIndex formatTo: format + "0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 unused, reserved for exotic pointer objects? + 7 Forwarded Object, 1st field is pointer, rest of fields are ignored + 8 unused, reserved for exotic non-pointer objects? + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable + 16 - 23 byte indexable + 24 - 31 compiled method" + self subclassResponsibility!

1 0

VM Maker: VMMaker.oscog-eem.653.mcz
by commits＠source.squeak.org 21 Mar '14

21 Mar '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.653.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.653 Author: eem Time: 20 March 2014, 10:12:07.947 pm UUID: 8ed77d78-2be2-4023-b767-7486dd43736f Ancestors: VMMaker.oscog-eem.652 Fix store check call from machine code which in Spur was showing that ClassReg (%ecx, a caller-saved reg) was not being saved when calling ceStoreCheck:. This /could/ be the cause of crashes in the clang build (or at least one major cause). It didn't show in the classic VM because the store check is simpler. Fix copyAndForward: to add tenured objects to weak and ephemeron lists if required. Because the weak and ephemeron lists are threaded through forwarding corpses they can indeed refer to old objects, adn just cuz a weak/ewphemeron object is tenured doesn't mean it doesn't need to be scanned post-scavenge. Relax the leak-check in Spur fullGC to allow invalid class indices at any point except after fullGC, at which point the classTable should have been purged. =============== Diff against VMMaker.oscog-eem.652 =============== Item was changed: CogClass subclass: #CogObjectRepresentation + instanceVariableNames: 'cogit methodZone objectMemory backEnd ceStoreCheckTrampoline' - instanceVariableNames: 'cogit methodZone objectMemory ceStoreCheckTrampoline' classVariableNames: '' poolDictionaries: 'CogMethodConstants CogRTLOpcodes VMBasicConstants VMObjectIndices' category: 'VMMaker-JIT'! !CogObjectRepresentation commentStamp: '<historical>' prior: 0! I am an abstract superclass for object representations whose job it is to generate abstract instructions for accessing objects. It is hoped that this level of indirection between the Cogit code generator and object access makes it easier to adapt the code generator to different garbage collectors, object representations and languages.! Item was added: + ----- Method: CogObjectRepresentation class>>forCogit:backEnd:methodZone: (in category 'instance creation') ----- + forCogit: aCogit backEnd: backEnd methodZone: methodZone + ^self new setCogit: aCogit backEnd: backEnd methodZone: methodZone! Item was removed: - ----- Method: CogObjectRepresentation class>>forCogit:methodZone: (in category 'instance creation') ----- - forCogit: aCogit methodZone: methodZone - ^self new setCogit: aCogit methodZone: methodZone! Item was added: + ----- Method: CogObjectRepresentation class>>prepareToBeAddedToCodeGenerator: (in category 'translation') ----- + prepareToBeAddedToCodeGenerator: aCCodeGenerator + aCCodeGenerator removeVariable: 'backEnd'! Item was added: + ----- Method: CogObjectRepresentation>>setCogit:backEnd:methodZone: (in category 'initialization') ----- + setCogit: aCogit backEnd: aBackEnd methodZone: aMethodZone + <doNotGenerate> + cogit := aCogit. + backEnd := backEnd. + methodZone := aMethodZone. + objectMemory := (aCogit coInterpreter isKindOf: StackInterpreter) + ifTrue: [aCogit coInterpreter objectMemory] + ifFalse: [aCogit coInterpreter]! Item was removed: - ----- Method: CogObjectRepresentation>>setCogit:methodZone: (in category 'initialization') ----- - setCogit: aCogit methodZone: aMethodZone - <doNotGenerate> - cogit := aCogit. - methodZone := aMethodZone. - objectMemory := (aCogit coInterpreter isKindOf: StackInterpreter) - ifTrue: [aCogit coInterpreter objectMemory] - ifFalse: [aCogit coInterpreter]! Item was changed: ----- Method: CogObjectRepresentationForSpur>>genStoreCheckReceiverReg:valueReg:scratchReg: (in category 'compile abstract instructions') ----- genStoreCheckReceiverReg: destReg valueReg: valueReg scratchReg: scratchReg "Generate the code for a store check of valueReg into destReg." | jmpImmediate jmpDestYoung jmpSourceOld jmpAlreadyRemembered mask rememberedBitByteOffset | <var: #jmpImmediate type: #'AbstractInstruction *'> <var: #jmpDestYoung type: #'AbstractInstruction *'> <var: #jmpSourceOld type: #'AbstractInstruction *'> <var: #jmpAlreadyRemembered type: #'AbstractInstruction *'> "Is value stored an integer? If so we're done" cogit MoveR: valueReg R: scratchReg. cogit AndCq: objectMemory tagMask R: scratchReg. jmpImmediate := cogit JumpNonZero: 0. "Get the old/new boundary in scratchReg" cogit MoveCw: objectMemory storeCheckBoundary R: scratchReg. "Is target young? If so we're done" cogit CmpR: scratchReg R: destReg. "N.B. FLAGS := destReg - scratchReg" jmpDestYoung := cogit JumpBelow: 0. "Is value stored old? If so we're done." cogit CmpR: scratchReg R: valueReg. "N.B. FLAGS := valueReg - scratchReg" jmpSourceOld := cogit JumpAboveOrEqual: 0. "value is young and target is old. Need to remember this only if the remembered bit is not already set. Test the remembered bit. Only need to fetch the byte containing it, which reduces the size of the mask constant." rememberedBitByteOffset := jmpSourceOld isBigEndian ifTrue: [objectMemory baseHeaderSize - 1 - (objectMemory rememberedBitShift // 8)] ifFalse:[objectMemory rememberedBitShift // 8]. mask := 1 << (objectMemory rememberedBitShift \\ 8). "N.B. MoveMb:r:R: does not zero other bits" cogit MoveMb: rememberedBitByteOffset r: destReg R: scratchReg. cogit AndCq: mask R: scratchReg. jmpAlreadyRemembered := cogit JumpNonZero: 0. "Remembered bit is not set. Call store check to insert dest into remembered table." self assert: destReg == ReceiverResultReg. + cogit + CallRT: ceStoreCheckTrampoline + registersToBeSavedMask: ((cogit registerMaskFor: valueReg) + bitAnd: backEnd callerSavedRegisterMask). - cogit CallRT: ceStoreCheckTrampoline. jmpImmediate jmpTarget: (jmpDestYoung jmpTarget: (jmpSourceOld jmpTarget: (jmpAlreadyRemembered jmpTarget: cogit Label))). ^0! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>getStoreCheckReceiverReg:valueReg:scratchReg: (in category 'compile abstract instructions') ----- - getStoreCheckReceiverReg: destReg valueReg: valueReg scratchReg: scratchReg - "Generate the code for a store check of valueReg into destReg." - | jmpImmediate jmpDestYoung jmpSourceOld jmpAlreadyRemembered mask rememberedBitByteOffset | - <var: #jmpImmediate type: #'AbstractInstruction *'> - <var: #jmpDestYoung type: #'AbstractInstruction *'> - <var: #jmpSourceOld type: #'AbstractInstruction *'> - <var: #jmpAlreadyRemembered type: #'AbstractInstruction *'> - "Is value stored an integer? If so we're done" - cogit MoveR: valueReg R: scratchReg. - cogit AndCq: objectMemory tagMask R: scratchReg. - jmpImmediate := cogit JumpNonZero: 0. - "Get the old/new boundary in scratchReg" - cogit MoveCw: objectMemory storeCheckBoundary R: scratchReg. - "Is target young? If so we're done" - cogit CmpR: scratchReg R: destReg. "N.B. FLAGS := destReg - scratchReg" - jmpDestYoung := cogit JumpBelow: 0. - "Is value stored old? If so we're done." - cogit CmpR: scratchReg R: valueReg. "N.B. FLAGS := valueReg - scratchReg" - jmpSourceOld := cogit JumpAboveOrEqual: 0. - "value is young and target is old. - Need to remember this only if the remembered bit is not already set. - Test the remembered bit. Only need to fetch the byte containing it, - which reduces the size of the mask constant." - rememberedBitByteOffset := jmpSourceOld isBigEndian - ifTrue: [objectMemory baseHeaderSize - 1 - (objectMemory rememberedBitShift // 8)] - ifFalse:[objectMemory rememberedBitShift // 8]. - mask := 1 << (objectMemory rememberedBitShift \\ 8). - "N.B. MoveMb:r:R: does not zero other bits" - cogit MoveMb: rememberedBitByteOffset r: destReg R: scratchReg. - cogit AndCq: mask R: scratchReg. - jmpAlreadyRemembered := cogit JumpNonZero: 0. - "Remembered bit is not set. Call store check to insert dest into remembered table." - self assert: destReg == ReceiverResultReg. - cogit CallRT: ceStoreCheckTrampoline. - jmpImmediate jmpTarget: - (jmpDestYoung jmpTarget: - (jmpSourceOld jmpTarget: - (jmpAlreadyRemembered jmpTarget: - cogit Label))). - ^0! Item was changed: ----- Method: CogObjectRepresentationForSqueakV3>>genStoreSourceReg:slotIndex:destReg:scratchReg: (in category 'compile abstract instructions') ----- genStoreSourceReg: sourceReg slotIndex: index destReg: destReg scratchReg: scratchReg | jmpImmediate jmpDestYoung jmpSourceOld jmpAlreadyRoot mask rootBitByteOffset | <var: #jmpImmediate type: #'AbstractInstruction *'> <var: #jmpDestYoung type: #'AbstractInstruction *'> <var: #jmpSourceOld type: #'AbstractInstruction *'> <var: #jmpAlreadyRoot type: #'AbstractInstruction *'> "do the store" cogit MoveR: sourceReg Mw: index * BytesPerWord + BaseHeaderSize r: destReg. "now the check. Is value stored an integer? If so we're done" cogit MoveR: sourceReg R: scratchReg. cogit AndCq: 1 R: scratchReg. jmpImmediate := cogit JumpNonZero: 0. "Get the old/new boundary in scratchReg" cogit MoveAw: objectMemory youngStartAddress R: scratchReg. "Is target young? If so we're done" cogit CmpR: scratchReg R: destReg. "N.B. FLAGS := destReg - scratchReg" jmpDestYoung := cogit JumpAboveOrEqual: 0. "Is value stored old? If so we're done." cogit CmpR: scratchReg R: sourceReg. "N.B. FLAGS := sourceReg - scratchReg" jmpSourceOld := cogit JumpBelow: 0. "value is young and target is old. Need to make this a root if the root bit is not already set. Test the root bit. Only need to fetch the byte containing it, which reduces the size of the mask constant." rootBitByteOffset := jmpSourceOld isBigEndian ifTrue: [BytesPerWord - RootBitDigitLength] ifFalse:[RootBitDigitLength - 1]. mask := RootBitDigitLength > 1 ifTrue: [RootBit >> (RootBitDigitLength - 1 * 8)] ifFalse: [RootBit]. "N.B. MoveMb:r:R: does not zero other bits" cogit MoveMb: rootBitByteOffset r: destReg R: scratchReg. cogit AndCq: mask R: scratchReg. jmpAlreadyRoot := cogit JumpNonZero: 0. "Root bit is not set. Call store check to insert dest into root table." self assert: destReg == ReceiverResultReg. + cogit + CallRT: ceStoreCheckTrampoline + registersToBeSavedMask: ((cogit registerMaskFor: sourceReg) + bitAnd: backEnd callerSavedRegisterMask). - cogit CallRT: ceStoreCheckTrampoline. jmpImmediate jmpTarget: (jmpDestYoung jmpTarget: (jmpSourceOld jmpTarget: (jmpAlreadyRoot jmpTarget: cogit Label))). ^0! Item was changed: ----- Method: Cogit>>checkIfValidObjectRefAndTarget:pc:cogMethod: (in category 'garbage collection') ----- checkIfValidObjectRefAndTarget: annotation pc: mcpc cogMethod: cogMethod <var: #mcpc type: #'char *'> | literal entryPoint | annotation = IsObjectReference ifTrue: [literal := backEnd literalBeforeFollowingAddress: mcpc asInteger. (self asserta: (objectRepresentation checkValidObjectReference: literal)) ifFalse: [^1]. ((objectRepresentation couldBeObject: literal) and: [objectMemory isReallyYoungObject: literal]) ifTrue: [(self asserta: (self cCoerceSimple: cogMethod to: #'CogMethod *') cmRefersToYoung) ifFalse: [^2]]]. (self isSendAnnotation: annotation) ifTrue: [(self asserta: (self cCoerceSimple: cogMethod to: #'CogMethod *') cmType = CMMethod) ifFalse: [^3]. self offsetCacheTagAndCouldBeObjectAt: mcpc annotation: annotation into: [:offset :cacheTag :tagCouldBeObject| tagCouldBeObject ifTrue: [(objectRepresentation couldBeObject: cacheTag) ifTrue: [(self asserta: (objectRepresentation checkValidObjectReference: cacheTag)) ifFalse: [^4]] ifFalse: [(self asserta: (objectRepresentation checkValidInlineCacheTag: cacheTag)) ifFalse: [^5]]. ((objectRepresentation couldBeObject: cacheTag) + and: [objectMemory isReallyYoungObject: cacheTag]) ifTrue: - and: [coInterpreter isReallyYoungObject: cacheTag]) ifTrue: [(self asserta: (self cCoerceSimple: cogMethod to: #'CogMethod *') cmRefersToYoung) ifFalse: [^6]]] ifFalse: [(self asserta: (objectRepresentation checkValidInlineCacheTag: cacheTag)) ifFalse: [^7]]]. entryPoint := backEnd callTargetFromReturnAddress: mcpc asInteger. entryPoint > methodZoneBase ifTrue: ["It's a linked send; find which kind." self targetMethodAndSendTableFor: entryPoint annotation: annotation into: [:targetMethod :sendTable| (self asserta: (targetMethod cmType = CMMethod or: [targetMethod cmType = CMClosedPIC or: [targetMethod cmType = CMOpenPIC]])) ifFalse: [^8]]]]. ^0 "keep scanning"! Item was changed: ----- Method: Cogit>>freeUnmarkedMachineCode (in category 'jit - api') ----- freeUnmarkedMachineCode "Free machine-code methods whose compiled methods are unmarked and open PICs whose selectors are not marked." <api> <option: #SpurMemoryManager> | cogMethod freedMethod | <var: #cogMethod type: #'CogMethod *'> freedMethod := false. cogMethod := self cCoerceSimple: methodZoneBase to: #'CogMethod *'. [cogMethod < methodZone limitZony] whileTrue: [(cogMethod cmType = CMMethod and: [(objectMemory isMarked: cogMethod methodObject) not]) ifTrue: [freedMethod := true. + methodZone freeMethod: cogMethod]. - self freeMethod: cogMethod]. (cogMethod cmType = CMOpenPIC and: [(objectMemory isImmediate: cogMethod selector) not and: [(objectMemory isMarked: cogMethod selector) not]]) ifTrue: [freedMethod := true. + methodZone freeMethod: cogMethod]. - self freeMethod: cogMethod]. cogMethod := methodZone methodAfter: cogMethod]. freedMethod ifTrue: [self unlinkSendsToFree. methodZone pruneYoungReferrers. processor flushICacheFrom: codeBase to: methodZone limitZony asInteger]! Item was changed: ----- Method: Cogit>>offsetCacheTagAndCouldBeObjectAt:annotation:into: (in category 'in-line cacheing') ----- offsetCacheTagAndCouldBeObjectAt: mcpc annotation: annotation into: trinaryBlock "Evaluate trinaryBlock with the entry, inline cache tag and whether the cache tag could be an object, for the send at mcpc with annotation annotation." <inline: true> | cacheTag entryPoint tagCouldBeObj | cacheTag := backEnd inlineCacheTagAt: mcpc asInteger. entryPoint := backEnd callTargetFromReturnAddress: mcpc asInteger. "in-line cache tags are the selectors of sends if sends are unlinked, + the selectors of super sends (entry offset = cmNoCheckEntryOffset), + the selectors of open PIC sends (entry offset = cmEntryOffset, target is an Open PIC) - the selectors of super sends (entry offset = cmNoCheckEntryOffset) or in-line cache tags (classes, class indices, immediate bit patterns, etc). Note that selectors can be immediate so there is no guarantee that they are markable/remappable objects." tagCouldBeObj := objectRepresentation inlineCacheTagsMayBeObjects or: [entryPoint < methodZoneBase + or: [(entryPoint bitAnd: entryPointMask) = uncheckedEntryAlignment + or: [(entryPoint bitAnd: entryPointMask) = checkedEntryAlignment + and: [(self cCoerceSimple: entryPoint - cmEntryOffset to: #'CogMethod *') cmType = CMOpenPIC]]]]. - or: [(entryPoint bitAnd: entryPointMask) = cmNoCheckEntryOffset]]. trinaryBlock value: entryPoint value: cacheTag value: tagCouldBeObj! Item was changed: ----- Method: Cogit>>setInterpreter: (in category 'initialization') ----- setInterpreter: aCoInterpreter "Initialization of the code generator in the simulator. These objects already exist in the generated C VM or are used only in the simulation." <doNotGenerate> coInterpreter := aCoInterpreter. objectMemory := aCoInterpreter objectMemory. threadManager := aCoInterpreter threadManager. "N.B. may be nil" methodZone := CogMethodZone new. objectRepresentation := objectMemory objectRepresentationClass + forCogit: self + backEnd: backEnd + methodZone: methodZone. - forCogit: self methodZone: methodZone. methodZone setInterpreter: aCoInterpreter objectRepresentation: objectRepresentation cogit: self. generatorTable := self class generatorTable. primitiveGeneratorTable := self class primitiveTable. processor := ProcessorClass new. simulatedAddresses := Dictionary new. simulatedTrampolines := Dictionary new. simulatedVariableGetters := Dictionary new. simulatedVariableSetters := Dictionary new. traceStores := 0. traceFlags := 8. "record prim trace on by default (see Cogit class>>decareCVarsIn:)" debugPrimCallStackOffset := 0. singleStep := printRegisters := printInstructions := clickConfirm := false. breakBlock ifNil: [self breakPC: breakPC]. (backEnd := processor abstractInstructionCompilerClass new) cogit: self. (methodLabel := processor abstractInstructionCompilerClass new) cogit: self. sendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines). superSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines). NewspeakVM ifTrue: [dynamicSuperSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines)]. "debug metadata" objectReferencesInRuntime := CArrayAccessor on: (Array new: NumObjRefsInRuntime). runtimeObjectRefIndex := 0. "debug metadata" trampolineAddresses := CArrayAccessor on: (Array new: NumTrampolines * 2). trampolineTableIndex := 0. compilationTrace ifNil: [compilationTrace := 0]. extA := extB := 0! Item was changed: ----- Method: Spur32BitMMLECoSimulator>>runLeakCheckerForFullGC:excludeUnmarkedNewSpaceObjs:classIndicesShouldBeValid: (in category 'debug support') ----- runLeakCheckerForFullGC: fullGCFlag excludeUnmarkedNewSpaceObjs: excludeUnmarkedNewSpaceObjs classIndicesShouldBeValid: classIndicesShouldBeValid + (coInterpreter displayView isNil + and: [fullGCFlag - (fullGCFlag ifTrue: [self leakCheckFullGC] + ifFalse: [self leakCheckNewSpaceGC]]) ifTrue: - ifFalse: [self leakCheckNewSpaceGC]) ifTrue: [coInterpreter transcript nextPutAll: 'leak-checking...'; flush]. ^super runLeakCheckerForFullGC: fullGCFlag excludeUnmarkedNewSpaceObjs: excludeUnmarkedNewSpaceObjs classIndicesShouldBeValid: classIndicesShouldBeValid! Item was changed: ----- Method: Spur32BitMMLESimulator>>runLeakCheckerForFullGC:excludeUnmarkedNewSpaceObjs:classIndicesShouldBeValid: (in category 'debug support') ----- runLeakCheckerForFullGC: fullGCFlag excludeUnmarkedNewSpaceObjs: excludeUnmarkedNewSpaceObjs classIndicesShouldBeValid: classIndicesShouldBeValid + (coInterpreter displayView isNil + and: [fullGCFlag - (fullGCFlag ifTrue: [self leakCheckFullGC] + ifFalse: [self leakCheckNewSpaceGC]]) ifTrue: - ifFalse: [self leakCheckNewSpaceGC]) ifTrue: [coInterpreter transcript nextPutAll: 'leak-checking...'; flush]. ^super runLeakCheckerForFullGC: fullGCFlag excludeUnmarkedNewSpaceObjs: excludeUnmarkedNewSpaceObjs classIndicesShouldBeValid: classIndicesShouldBeValid! Item was changed: ----- Method: SpurGenerationScavenger>>copyAndForward: (in category 'scavenger') ----- copyAndForward: survivor "copyAndForward: survivor copies a survivor object either to futureSurvivorSpace or, if it is to be promoted, to oldSpace. It leaves a forwarding pointer behind. If the object is weak then corpse is threaded onto the weakList for later treatment." <inline: false> | bytesInObj newLocation hash | self assert: ((manager isInEden: survivor) "cog methods should be excluded." or: [manager isInPastSpace: survivor]). bytesInObj := manager bytesInObject: survivor. "Must remember hash before copying because threading on to the weak & ephemeron lists smashes the hash field." hash := manager rawHashBitsOf: survivor. ((self shouldBeTenured: survivor) or: [futureSurvivorStart + bytesInObj > futureSpace limit]) + ifTrue: [newLocation := self copyToOldSpace: survivor] + ifFalse: [newLocation := self copyToFutureSpace: survivor bytes: bytesInObj]. - ifTrue: - [newLocation := self copyToOldSpace: survivor. - manager forwardSurvivor: survivor to: newLocation] - ifFalse: - [newLocation := self copyToFutureSpace: survivor bytes: bytesInObj. - manager forwardSurvivor: survivor to: newLocation. - "if weak or ephemeron add to the relevant lists if newLocation is young. If - old, newLocation will be remembered and dealt with in the rememberedSet." - (manager isWeakNonImm: newLocation) ifTrue: - [self addToWeakList: survivor]. - ((manager isEphemeron: newLocation) - and: [(self isScavengeSurvivor: (manager keyOfEphemeron: newLocation)) not]) ifTrue: - [self addToEphemeronList: survivor]]. hash ~= 0 ifTrue: [manager setHashBitsOf: newLocation to: hash]. + manager forwardSurvivor: survivor to: newLocation. + "if weak or ephemeron add to the relevant list for subsequent scanning." + (manager isWeakNonImm: newLocation) ifTrue: + [self addToWeakList: survivor]. + ((manager isEphemeron: newLocation) + and: [(self isScavengeSurvivor: (manager keyOfEphemeron: newLocation)) not]) ifTrue: + [self addToEphemeronList: survivor]. ^newLocation! Item was changed: ----- Method: SpurGenerationScavengerSimulator>>scavenge: (in category 'scavenger') ----- scavenge: tenuringCriterion + coInterpreter transcript nextPutAll: 'scavenging('; print: manager statScavenges; nextPutAll: ')...'; flush. - coInterpreter transcript nextPutAll: 'scavenging ('; print: manager statScavenges; nextPutAll: ') ...'; flush. ^super scavenge: tenuringCriterion! Item was changed: ----- Method: SpurMemoryManager>>globalGarbageCollect (in category 'gc - global') ----- globalGarbageCollect + self runLeakCheckerForFullGC: true + excludeUnmarkedNewSpaceObjs: false + classIndicesShouldBeValid: false. - self runLeakCheckerForFullGC: true. self assert: self validObjStacks. self assert: (self isEmptyObjStack: markStack). self assert: (self isEmptyObjStack: weaklingStack). self markObjects. self nilUnmarkedWeaklingSlots. self freeUnmarkedObjectsAndSortAndCoalesceFreeSpace. + self runLeakCheckerForFullGC: true + excludeUnmarkedNewSpaceObjs: true + classIndicesShouldBeValid: false. - self runLeakCheckerForFullGC: true excludeUnmarkedNewSpaceObjs: true classIndicesShouldBeValid: false. self compact. self eliminateAndFreeForwarders. self assert: self validObjStacks. self assert: (self isEmptyObjStack: markStack). self assert: (self isEmptyObjStack: weaklingStack). self assert: self allObjectsUnmarked. + self runLeakCheckerForFullGC: true + excludeUnmarkedNewSpaceObjs: false + classIndicesShouldBeValid: true! - self runLeakCheckerForFullGC: true!

1 0

[commit][2882] CogVM Spur sources as per VMMaker.oscog-eem.652.
by commits＠squeakvm.org 20 Mar '14

20 Mar '14

Revision: 2882 Author: eliot Date: 2014-03-20 10:01:24 -0700 (Thu, 20 Mar 2014) Log Message: ----------- CogVM Spur sources as per VMMaker.oscog-eem.652. Add AioPlugin to Mac VMs. Delete and ignore all the xcodeproject mode and pbxuser files. Implement whereIs: to provide better debugging of weak containers. Allow inlining when parameters include structure accessors for e.g. isInFutureSpace: in whereIsMaybeHeapThing:. Print (nil) next to the selector for cog methods with a nil selector. Fix inferring types assigned from the kernel selectors, and hence correctly evaluate testBecome in Spur. Fix primitiveArrayBecome (the two-way become); it should /not/ specify copyHash. ObjectMemory ignores the copyHash flag when doing a two-way become, hence the wrong sense of the flag had no effect. Hence in Spur correctly evaluate testBecomeIdentityHash. Make CoInterpreter>>printFrame: not mislead as to the number of temps in a block activation. Rationalize signed[32|64]BitIntegerFor:. Fix odd bytes calculation in Spur>>allocateBytes:classIndex:. Rewrite checkIfValidObjectRefAndTarget:pc:cogMethod: to use the new accessors, but the assert for a cacheTag is still wrong for Spur. Spur: Prune youngReferrers amd flush icache after freeUnmarkedMachineCode. Protect byteSizeOfInstanceOf:withIndexableSlots: against integer overflow. Fix nilling of weak fields in old space. The old space GC must follow forwarders just as the scavenger does. Fix class table management for two-way become of classes when one has a hash and the other doesn't. Prune young referrers in followForwardedMethods. Avoid remembering bit objects in inPlaceBecome:and:copyHashFlag:. Fix method access for assert in followForwardedFrameContents:stackPointer: Refactor the Spur leak checker so that references to garbage-collected classes are tolerated mid-way through GC but not before or after. Modified Paths: -------------- branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj branches/Cog/macbuild/CoreVM.xcodeproj/project.pbxproj branches/Cog/macbuild/plugins.int branches/Cog/nsspurcogbuild/macbuild/plugins.int branches/Cog/nsspursrc/vm/cogit.c branches/Cog/nsspursrc/vm/cogit.h branches/Cog/nsspursrc/vm/cogmethod.h branches/Cog/nsspursrc/vm/cointerp.c branches/Cog/nsspursrc/vm/cointerp.h branches/Cog/nsspursrc/vm/gcc3x-cointerp.c branches/Cog/nsspursrc/vm/interp.h branches/Cog/nsspursrc/vm/vmCallback.h branches/Cog/nsspurstacksrc/vm/gcc3x-interp.c branches/Cog/nsspurstacksrc/vm/interp.c branches/Cog/nsspurstacksrc/vm/interp.h branches/Cog/nsspurstacksrc/vm/vmCallback.h branches/Cog/platforms/Mac OS/vm/sqMacMemory.c branches/Cog/platforms/unix/vm/sqUnixMemory.c branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj branches/Cog/spurcogbuild/macbuild/plugins.int branches/Cog/spursrc/vm/cogit.c branches/Cog/spursrc/vm/cogit.h branches/Cog/spursrc/vm/cogmethod.h branches/Cog/spursrc/vm/cointerp.c branches/Cog/spursrc/vm/cointerp.h branches/Cog/spursrc/vm/gcc3x-cointerp.c branches/Cog/spursrc/vm/interp.h branches/Cog/spursrc/vm/vmCallback.h branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj branches/Cog/spurstackbuild/macbuild/plugins.int branches/Cog/spurstacksrc/vm/gcc3x-interp.c branches/Cog/spurstacksrc/vm/interp.c branches/Cog/spurstacksrc/vm/interp.h branches/Cog/spurstacksrc/vm/vmCallback.h Removed Paths: ------------- branches/Cog/macbuild/CoreVM.xcodeproj/johnmci.mode1 branches/Cog/macbuild/CoreVM.xcodeproj/johnmci.pbxuser branches/Cog/macbuild/CoreVM.xcodeproj/sophie.mode1 branches/Cog/macbuild/CoreVM.xcodeproj/sophie.pbxuser branches/Cog/macbuild/CoreVM.xcodeproj/werdna.pbxuser branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/johnmci.mode1 branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/johnmci.pbxuser branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/sophie.mode1 branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/sophie.pbxuser branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/werdna.pbxuser branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/eliot.mode1v3 branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/eliot.pbxuser branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/johnmci.mode1 branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/johnmci.pbxuser branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/sophie.mode1 branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/sophie.pbxuser branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/werdna.pbxuser branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/eliot.mode1v3 branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/eliot.pbxuser branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/johnmci.mode1 branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/johnmci.pbxuser branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/sophie.mode1 branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/sophie.pbxuser branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/werdna.pbxuser Property Changed: ---------------- branches/Cog/nsbuild/macbuild/CoreVM.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/CoreVM.xcodeproj/ branches/Cog/platforms/Cross/vm/sqSCCSVersion.h branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/ branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/ Modified: branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj =================================================================== --- branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj 2014-03-14 00:45:37 UTC (rev 2881) +++ branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj 2014-03-20 17:01:24 UTC (rev 2882) @@ -7,6 +7,7 @@ objects = { /* Begin PBXBuildFile section */ + 731903AA18D380F400444F37 /* AioPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = 731903A918D380F400444F37 /* AioPlugin.c */; }; 733AC8DB0FEAAC4F007C6206 /* version.c in Sources */ = {isa = PBXBuildFile; fileRef = 733AC8DA0FEAAC4F007C6206 /* version.c */; }; 733B2C37106AB74B004652BE /* sqExternalSemaphores.c in Sources */ = {isa = PBXBuildFile; fileRef = 733B2C36106AB74B004652BE /* sqExternalSemaphores.c */; }; 7351A09B100963670035A878 /* sqUnixThreads.c in Sources */ = {isa = PBXBuildFile; fileRef = 7351A09A100963670035A878 /* sqUnixThreads.c */; }; @@ -271,6 +272,7 @@ 664A73DF0300584000A80109 /* SqueakPlugin.icns */ = {isa = PBXFileReference; lastKnownFileType = image.icns; name = SqueakPlugin.icns; path = resources/ProjectBuilder/SqueakPlugin.icns; sourceTree = "<group>"; }; 664A73E00300584000A80109 /* SqueakScript.icns */ = {isa = PBXFileReference; lastKnownFileType = image.icns; name = SqueakScript.icns; path = resources/ProjectBuilder/SqueakScript.icns; sourceTree = "<group>"; }; 66A8FED80300824600A80109 /* sqGnu.h */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.h; name = sqGnu.h; path = Developer/sqGnu.h; sourceTree = "<group>"; }; + 731903A918D380F400444F37 /* AioPlugin.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = AioPlugin.c; path = plugins/AioPlugin/AioPlugin.c; sourceTree = "<group>"; }; 733AC8DA0FEAAC4F007C6206 /* version.c */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.c; path = version.c; sourceTree = "<group>"; }; 733B2C36106AB74B004652BE /* sqExternalSemaphores.c */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.c; path = sqExternalSemaphores.c; sourceTree = "<group>"; }; 7351A09A100963670035A878 /* sqUnixThreads.c */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.c; name = sqUnixThreads.c; path = vm/sqUnixThreads.c; sourceTree = "<group>"; }; @@ -584,6 +586,14 @@ name = Products; sourceTree = "<group>"; }; + 731903A618D380D800444F37 /* AioPlugin */ = { + isa = PBXGroup; + children = ( + 731903A918D380F400444F37 /* AioPlugin.c */, + ); + name = AioPlugin; + sourceTree = "<group>"; + }; 733CCBFE1101106800EA8510 /* vm */ = { isa = PBXGroup; children = ( @@ -606,6 +616,7 @@ 7384271E11010B920070B80D /* plugins */ = { isa = PBXGroup; children = ( + 731903A618D380D800444F37 /* AioPlugin */, A2DB7E220EA0214A005419A3 /* GIFLibPlugin */, A27728EB0CE7A8D300ABAFCA /* ADPCMCodecPlugin */, A27728ED0CE7A8D300ABAFCA /* AsynchFilePlugin */, @@ -1725,6 +1736,8 @@ 941A3BFA09AA144000C9D25A /* Frameworks */, 941A3C0409AA144000C9D25A /* Rez */, ); + buildRules = ( + ); comments = " @@ -1959,6 +1972,7 @@ 733B2C37106AB74B004652BE /* sqExternalSemaphores.c in Sources */, A2F27E6A1087169800F905FB /* nsPoolManagement.m in Sources */, 739C6ED6112DCBB00049B7D3 /* sqTicker.c in Sources */, + 731903AA18D380F400444F37 /* AioPlugin.c in Sources */, ); runOnlyForDeploymentPostprocessing = 0; }; Deleted: branches/Cog/macbuild/CoreVM.xcodeproj/johnmci.mode1 =================================================================== --- branches/Cog/macbuild/CoreVM.xcodeproj/johnmci.mode1 2014-03-14 00:45:37 UTC (rev 2881) +++ branches/Cog/macbuild/CoreVM.xcodeproj/johnmci.mode1 2014-03-20 17:01:24 UTC (rev 2882) @@ -1,1603 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> -<plist version="1.0"> -<dict> - <key>ActivePerspectiveName</key> - <string>Project</string> - <key>AllowedModules</key> - <array> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXSmartGroupTreeModule</string> - <key>Name</key> - <string>Groups and Files Outline View</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXNavigatorGroup</string> - <key>Name</key> - <string>Editor</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>XCTaskListModule</string> - <key>Name</key> - <string>Task List</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>XCDetailModule</string> - <key>Name</key> - <string>File and Smart Group Detail Viewer</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>1</string> - <key>Module</key> - <string>PBXBuildResultsModule</string> - <key>Name</key> - <string>Detailed Build Results Viewer</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>1</string> - <key>Module</key> - <string>PBXProjectFindModule</string> - <key>Name</key> - <string>Project Batch Find Tool</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXRunSessionModule</string> - <key>Name</key> - <string>Run Log</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXBookmarksModule</string> - <key>Name</key> - <string>Bookmarks Tool</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXClassBrowserModule</string> - <key>Name</key> - <string>Class Browser</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXCVSModule</string> - <key>Name</key> - <string>Source Code Control Tool</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXDebugBreakpointsModule</string> - <key>Name</key> - <string>Debug Breakpoints Tool</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>XCDockableInspector</string> - <key>Name</key> - <string>Inspector</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>n</string> - <key>Module</key> - <string>PBXOpenQuicklyModule</string> - <key>Name</key> - <string>Open Quickly Tool</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>1</string> - <key>Module</key> - <string>PBXDebugSessionModule</string> - <key>Name</key> - <string>Debugger</string> - </dict> - <dict> - <key>BundleLoadPath</key> - <string></string> - <key>MaxInstances</key> - <string>1</string> - <key>Module</key> - <string>PBXDebugCLIModule</string> - <key>Name</key> - <string>Debug Console</string> - </dict> - </array> - <key>Description</key> - <string>DefaultDescriptionKey</string> - <key>DockingSystemVisible</key> - <false/> - <key>Extension</key> - <string>mode1</string> - <key>FavBarConfig</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>9471E2940844FE3C0001FCC2</string> - <key>XCBarModuleItemNames</key> - <dict/> - <key>XCBarModuleItems</key> - <array/> - </dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>com.apple.perspectives.project.mode1</string> - <key>MajorVersion</key> - <integer>31</integer> - <key>MinorVersion</key> - <integer>1</integer> - <key>Name</key> - <string>Default</string> - <key>Notifications</key> - <array> - <dict> - <key>XCObserverAutoDisconnectKey</key> - <true/> - <key>XCObserverDefintionKey</key> - <dict> - <key>PBXStatusErrorsKey</key> - <integer>0</integer> - </dict> - <key>XCObserverFactoryKey</key> - <string>XCPerspectivesSpecificationIdentifier</string> - <key>XCObserverGUIDKey</key> - <string>XCObserverProjectIdentifier</string> - <key>XCObserverNotificationKey</key> - <string>PBXStatusBuildStateMessageNotification</string> - <key>XCObserverTargetKey</key> - <string>XCMainBuildResultsModuleGUID</string> - <key>XCObserverTriggerKey</key> - <string>awakenModuleWithObserver:</string> - <key>XCObserverValidationKey</key> - <dict> - <key>PBXStatusErrorsKey</key> - <integer>2</integer> - </dict> - </dict> - <dict> - <key>XCObserverAutoDisconnectKey</key> - <true/> - <key>XCObserverDefintionKey</key> - <dict> - <key>PBXStatusWarningsKey</key> - <integer>0</integer> - </dict> - <key>XCObserverFactoryKey</key> - <string>XCPerspectivesSpecificationIdentifier</string> - <key>XCObserverGUIDKey</key> - <string>XCObserverProjectIdentifier</string> - <key>XCObserverNotificationKey</key> - <string>PBXStatusBuildStateMessageNotification</string> - <key>XCObserverTargetKey</key> - <string>XCMainBuildResultsModuleGUID</string> - <key>XCObserverTriggerKey</key> - <string>awakenModuleWithObserver:</string> - <key>XCObserverValidationKey</key> - <dict> - <key>PBXStatusWarningsKey</key> - <integer>2</integer> - </dict> - </dict> - </array> - <key>OpenEditors</key> - <array/> - <key>PerspectiveWidths</key> - <array> - <integer>-1</integer> - <integer>-1</integer> - </array> - <key>Perspectives</key> - <array> - <dict> - <key>ChosenToolbarItems</key> - <array> - <string>active-target-popup</string> - <string>active-buildstyle-popup</string> - <string>action</string> - <string>NSToolbarFlexibleSpaceItem</string> - <string>buildOrClean</string> - <string>build-and-runOrDebug</string> - <string>com.apple.ide.PBXToolbarStopButton</string> - <string>get-info</string> - <string>toggle-editor</string> - <string>NSToolbarFlexibleSpaceItem</string> - <string>com.apple.pbx.toolbar.searchfield</string> - </array> - <key>ControllerClassBaseName</key> - <string></string> - <key>IconName</key> - <string>WindowOfProjectWithEditor</string> - <key>Identifier</key> - <string>perspective.project</string> - <key>IsVertical</key> - <false/> - <key>Layout</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXBottomSmartGroupGIDs</key> - <array> - <string>1C37FBAC04509CD000000102</string> - <string>1C37FAAC04509CD000000102</string> - <string>1C08E77C0454961000C914BD</string> - <string>1C37FABC05509CD000000102</string> - <string>1C37FABC05539CD112110102</string> - <string>E2644B35053B69B200211256</string> - <string>1C37FABC04509CD000100104</string> - <string>1CC0EA4004350EF90044410B</string> - <string>1CC0EA4004350EF90041110B</string> - </array> - <key>PBXProjectModuleGUID</key> - <string>1CE0B1FE06471DED0097A5F4</string> - <key>PBXProjectModuleLabel</key> - <string>Files</string> - <key>PBXProjectStructureProvided</key> - <string>yes</string> - <key>PBXSmartGroupTreeModuleColumnData</key> - <dict> - <key>PBXSmartGroupTreeModuleColumnWidthsKey</key> - <array> - <real>374</real> - </array> - <key>PBXSmartGroupTreeModuleColumnsKey_v4</key> - <array> - <string>MainColumn</string> - </array> - </dict> - <key>PBXSmartGroupTreeModuleOutlineStateKey_v7</key> - <dict> - <key>PBXSmartGroupTreeModuleOutlineStateExpansionKey</key> - <array> - <string>08773EB500C6A1C4C0A80109</string> - <string>F5F8ADC002EB4E090100013C</string> - <string>F5F8ADC102EB4E090100013C</string> - <string>F5F8ADC202EB4E090100013C</string> - <string>F5F8ADC502EB4E090100013C</string> - <string>F5F8AE0802EB4E090100013C</string> - <string>F5F8AE6C02EB4E0A0100013C</string> - <string>F5F8AF0F02EB4E0A0100013C</string> - <string>F5F8AFDB02EB4E0A0100013C</string> - <string>08773F3000C6A1C4C0A80109</string> - <string>1C37FBAC04509CD000000102</string> - <string>1C37FAAC04509CD000000102</string> - <string>1C37FABC05509CD000000102</string> - <string>E2644B35053B69B200211256</string> - </array> - <key>PBXSmartGroupTreeModuleOutlineStateSelectionKey</key> - <array> - <array> - <integer>70</integer> - <integer>0</integer> - </array> - </array> - <key>PBXSmartGroupTreeModuleOutlineStateVisibleRectKey</key> - <string>{{0, 704}, {374, 714}}</string> - </dict> - <key>PBXTopSmartGroupGIDs</key> - <array/> - <key>XCIncludePerspectivesSwitch</key> - <true/> - <key>XCSharingToken</key> - <string>com.apple.Xcode.GFSharingToken</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {391, 732}}</string> - <key>GroupTreeTableConfiguration</key> - <array> - <string>MainColumn</string> - <real>374</real> - </array> - <key>RubberWindowFrame</key> - <string>215 75 1180 773 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXSmartGroupTreeModule</string> - <key>Proportion</key> - <string>391pt</string> - </dict> - <dict> - <key>Dock</key> - <array> - <dict> - <key>BecomeActive</key> - <true/> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CE0B20306471E060097A5F4</string> - <key>PBXProjectModuleLabel</key> - <string>Squeak VM Universal-Info.plist</string> - <key>PBXSplitModuleInNavigatorKey</key> - <dict> - <key>Split0</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CE0B20406471E060097A5F4</string> - <key>PBXProjectModuleLabel</key> - <string>Squeak VM Universal-Info.plist</string> - <key>_historyCapacity</key> - <integer>0</integer> - <key>bookmark</key> - <string>947C586509FD408800104AC9</string> - <key>history</key> - <array> - <string>9481D614085A59DC005E3224</string> - <string>9481D618085A59DC005E3224</string> - <string>9481D61C085A59DC005E3224</string> - <string>9481D61E085A59DC005E3224</string> - <string>949CD653085CD36F00EB8605</string> - <string>9418BA77088DD83400448FDD</string> - <string>94898C4E089FEED80005CAB6</string> - <string>94898C4F089FEED80005CAB6</string> - <string>94898C50089FEED80005CAB6</string> - <string>94898C51089FEED80005CAB6</string> - <string>94898CCD08A167A90005CAB6</string> - <string>94353E6908B90473009E717F</string> - <string>94353E6B08B90473009E717F</string> - <string>94353E6D08B90473009E717F</string> - <string>94353E6F08B90473009E717F</string> - <string>94353E7108B90473009E717F</string> - <string>94F298BD08C2786800364F10</string> - <string>94E0BA3108D0DDBE0031D5D3</string> - <string>9455D9D808D3C84E00EAFFE8</string> - <string>940F4E9D08D602E2005EFC88</string> - <string>942039E408E34FA200CED680</string> - <string>944DDE0908EDBF88003178BC</string> - <string>944DDE0B08EDBF88003178BC</string> - <string>944DDE0D08EDBF88003178BC</string> - <string>944DDE0F08EDBF88003178BC</string> - <string>94F1A83408F3142500A5246A</string> - <string>9455159F08F5C0BA00981D27</string> - <string>944B5C1E08F5CB1C00611DF8</string> - <string>944B5C1F08F5CB1C00611DF8</string> - <string>944B5C2108F5CB1C00611DF8</string> - <string>946B550A09213038000FF011</string> - <string>948496920934CCF200B06D91</string> - <string>9419063B093521E900672C6D</string> - <string>9419063C093521E900672C6D</string> - <string>946DDB1C099032E6006BBA1E</string> - <string>946DDB1E099032E6006BBA1E</string> - <string>940E419409A44A51004715E5</string> - <string>940C98C209ABD1CC00CB28DD</string> - <string>940C98C609ABD1CC00CB28DD</string> - <string>9413C96D09AD957600982B37</string> - <string>9413CC0909ADAB1300982B37</string> - <string>94E8D6D009AF82BD00D45FB8</string> - <string>94B17E9109B8FE1C00F57CA1</string> - <string>9453B81609BBA0A800762732</string> - <string>9453B81809BBA0A800762732</string> - <string>945B7AB209BD052500FC99E2</string> - <string>943BD42C09BEB75F0013220E</string> - <string>943BD46709BF61670013220E</string> - <string>9457F2B909C1449100D1610A</string> - <string>94A58A5609C4B63F00813A32</string> - <string>94A58A5809C4B63F00813A32</string> - <string>94F6A09B09C512E10063D27B</string> - <string>9412A6CE09CDF944006778B3</string> - <string>94021D3809CF6D37009D8723</string> - <string>946600CC09D0BBE3007CD381</string> - <string>948DB06809D22A1700FAC795</string> - <string>942AB8AD09D33DCF001D687F</string> - <string>940E72AE09DB3B8D001285B6</string> - <string>94BAE3A409DB585B00D41665</string> - <string>946C606109DB9E34000AA8F9</string> - <string>940213FF09DBAC3E00587794</string> - <string>9402169709DBB74C00587794</string> - <string>94CB5DA909E2E1C300AD2895</string> - <string>944E283909E332C000B78CBF</string> - <string>944E283A09E332C000B78CBF</string> - <string>9410BFFF09E3364D0043067C</string> - <string>9410C00009E3364D0043067C</string> - <string>94CF95B909E492110034D2F1</string> - <string>94CF984309E5F95B0034D2F1</string> - <string>9483915509E76B83006909DC</string> - <string>94BC385809E8D39F003E06E0</string> - <string>94BC385909E8D39F003E06E0</string> - <string>94F8D4E109E9F18700C8A21D</string> - <string>94F8D4F909E9F1F100C8A21D</string> - <string>947B2E6609E9FCF70035251A</string> - <string>9457E31009EA002000F07ABA</string> - <string>94DC4BD209EAB5D7006141E1</string> - <string>94DC4C6609EAE938006141E1</string> - <string>94DC4C7509EAEADD006141E1</string> - <string>94DC4C7809EAEADD006141E1</string> - <string>94DC4C8309EAED1D006141E1</string> - <string>94DC4EF009EAFC09006141E1</string> - <string>94002C4509EB197B003C4BF2</string> - <string>94002C4609EB197B003C4BF2</string> - <string>94002C4709EB197B003C4BF2</string> - <string>94002C4809EB197B003C4BF2</string> - <string>94002C7009EC2078003C4BF2</string> - <string>94D7EC7909EC2106005B7F6E</string> - <string>9497478809F44498005CC1E0</string> - <string>9426FF5309F48AFC00ECEDDC</string> - <string>9426FF5409F48AFC00ECEDDC</string> - <string>94DC25FC09F4937D008FD778</string> - <string>94DC25FD09F4937D008FD778</string> - <string>94DC25FE09F4937D008FD778</string> - <string>940D73B009F4B0D100E08D3D</string> - <string>940D74CB09F5D9C900E08D3D</string> - <string>948828DF09F80B3100BB0EA5</string> - <string>94E5C5E009FD3945009252B0</string> - <string>94E5C5E109FD3945009252B0</string> - <string>94E5C5F109FD3A3F009252B0</string> - <string>94E5C5F209FD3A3F009252B0</string> - <string>947C585709FD3AA400104AC9</string> - </array> - <key>prevStack</key> - <array> - <string>9481D623085A59DC005E3224</string> - <string>9481D627085A59DC005E3224</string> - <string>9481D629085A59DC005E3224</string> - <string>9481D62F085A59DC005E3224</string> - <string>949CD65A085CD36F00EB8605</string> - <string>942B3624088B723300168EFF</string> - <string>94898C57089FEED80005CAB6</string> - <string>94898C58089FEED80005CAB6</string> - <string>94898C59089FEED80005CAB6</string> - <string>94898C5A089FEED80005CAB6</string> - <string>94898C5B089FEED80005CAB6</string> - <string>94898C5C089FEED80005CAB6</string> - <string>94898C5D089FEED80005CAB6</string> - <string>94898C5E089FEED80005CAB6</string> - <string>940F4EA008D602E2005EFC88</string> - <string>944DDE4208EDBF88003178BC</string> - <string>944DDE4408EDBF88003178BC</string> - <string>944DDE4608EDBF88003178BC</string> - <string>944DDE4808EDBF88003178BC</string> - <string>94F1A83608F3142500A5246A</string> - <string>944B5C2308F5CB1C00611DF8</string> - <string>944B5C2408F5CB1C00611DF8</string> - <string>944B5C2608F5CB1C00611DF8</string> - <string>946B551509213038000FF011</string> - <string>946DDB26099032E6006BBA1E</string> - <string>940E419609A44A51004715E5</string> - <string>941C365C09A6939C0066751E</string> - <string>948EFB1509AA99C70068BB6D</string> - <string>9413C96F09AD957600982B37</string> - <string>9413CC0F09ADAB1300982B37</string> - <string>94E8D6DD09AF82BD00D45FB8</string> - <string>94465CCC09BB664E00BD3A71</string> - <string>943BD42D09BEB75F0013220E</string> - <string>943BD47109BF61670013220E</string> - <string>94A58A5B09C4B63F00813A32</string> - <string>94A58A5D09C4B63F00813A32</string> - <string>94F6A09F09C512E10063D27B</string> - <string>9412A6DA09CDF944006778B3</string> - <string>946600D109D0BBE3007CD381</string> - <string>948DB06F09D22A1700FAC795</string> - <string>942AB8B109D33DCF001D687F</string> - <string>946C606509DB9E34000AA8F9</string> - <string>9402169809DBB74C00587794</string> - <string>944E278909E3242C00B78CBF</string> - <string>944E283E09E332C000B78CBF</string> - <string>9410C00209E3364D0043067C</string> - <string>9410C00309E3364D0043067C</string> - <string>9410C00A09E337C10043067C</string> - <string>946C65CF09E726FA00D7ACB9</string> - <string>9494C49409E834E10002F5C6</string> - <string>9494C75F09E83C5C0002F5C6</string> - <string>94BC385C09E8D39F003E06E0</string> - <string>94BC385D09E8D39F003E06E0</string> - <string>947B2E2809E9FA310035251A</string> - <string>947B2E2909E9FA310035251A</string> - <string>947B2E6809E9FCF70035251A</string> - <string>9457E31409EA002000F07ABA</string> - <string>944FEED609EA0C0A002B59B2</string> - <string>94DC4BF409EABEC6006141E1</string> - <string>94DC4C7B09EAEADD006141E1</string> - <string>94DC4C8409EAED1D006141E1</string> - <string>94002C4B09EB197B003C4BF2</string> - <string>94002C4C09EB197B003C4BF2</string> - <string>94A9FF2F09F1D032003A55E0</string> - <string>9426FF5809F48AFC00ECEDDC</string> - <string>9426FF5909F48AFC00ECEDDC</string> - <string>9426FF5A09F48AFC00ECEDDC</string> - <string>94DC260109F4937D008FD778</string> - <string>940D73B209F4B0D100E08D3D</string> - <string>948828E109F80B3100BB0EA5</string> - <string>94E5C5E309FD3945009252B0</string> - <string>94E5C5F309FD3A3F009252B0</string> - </array> - </dict> - <key>SplitCount</key> - <string>1</string> - </dict> - <key>StatusBarVisibility</key> - <true/> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {784, 546}}</string> - <key>RubberWindowFrame</key> - <string>215 75 1180 773 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXNavigatorGroup</string> - <key>Proportion</key> - <string>546pt</string> - </dict> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CE0B20506471E060097A5F4</string> - <key>PBXProjectModuleLabel</key> - <string>Detail</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 551}, {784, 181}}</string> - <key>RubberWindowFrame</key> - <string>215 75 1180 773 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>XCDetailModule</string> - <key>Proportion</key> - <string>181pt</string> - </dict> - </array> - <key>Proportion</key> - <string>784pt</string> - </dict> - </array> - <key>Name</key> - <string>Project</string> - <key>ServiceClasses</key> - <array> - <string>XCModuleDock</string> - <string>PBXSmartGroupTreeModule</string> - <string>XCModuleDock</string> - <string>PBXNavigatorGroup</string> - <string>XCDetailModule</string> - </array> - <key>TableOfContents</key> - <array> - <string>947C585909FD3AA400104AC9</string> - <string>1CE0B1FE06471DED0097A5F4</string> - <string>947C585A09FD3AA400104AC9</string> - <string>1CE0B20306471E060097A5F4</string> - <string>1CE0B20506471E060097A5F4</string> - </array> - <key>ToolbarConfiguration</key> - <string>xcode.toolbar.config.default</string> - </dict> - <dict> - <key>ControllerClassBaseName</key> - <string></string> - <key>IconName</key> - <string>WindowOfProject</string> - <key>Identifier</key> - <string>perspective.morph</string> - <key>IsVertical</key> - <integer>0</integer> - <key>Layout</key> - <array> - <dict> - <key>BecomeActive</key> - <integer>1</integer> - <key>ContentConfiguration</key> - <dict> - <key>PBXBottomSmartGroupGIDs</key> - <array> - <string>1C37FBAC04509CD000000102</string> - <string>1C37FAAC04509CD000000102</string> - <string>1C08E77C0454961000C914BD</string> - <string>1C37FABC05509CD000000102</string> - <string>1C37FABC05539CD112110102</string> - <string>E2644B35053B69B200211256</string> - <string>1C37FABC04509CD000100104</string> - <string>1CC0EA4004350EF90044410B</string> - <string>1CC0EA4004350EF90041110B</string> - </array> - <key>PBXProjectModuleGUID</key> - <string>11E0B1FE06471DED0097A5F4</string> - <key>PBXProjectModuleLabel</key> - <string>Files</string> - <key>PBXProjectStructureProvided</key> - <string>yes</string> - <key>PBXSmartGroupTreeModuleColumnData</key> - <dict> - <key>PBXSmartGroupTreeModuleColumnWidthsKey</key> - <array> - <real>186</real> - </array> - <key>PBXSmartGroupTreeModuleColumnsKey_v4</key> - <array> - <string>MainColumn</string> - </array> - </dict> - <key>PBXSmartGroupTreeModuleOutlineStateKey_v7</key> - <dict> - <key>PBXSmartGroupTreeModuleOutlineStateExpansionKey</key> - <array> - <string>29B97314FDCFA39411CA2CEA</string> - <string>1C37FABC05509CD000000102</string> - </array> - <key>PBXSmartGroupTreeModuleOutlineStateSelectionKey</key> - <array> - <array> - <integer>0</integer> - </array> - </array> - <key>PBXSmartGroupTreeModuleOutlineStateVisibleRectKey</key> - <string>{{0, 0}, {186, 337}}</string> - </dict> - <key>PBXTopSmartGroupGIDs</key> - <array/> - <key>XCIncludePerspectivesSwitch</key> - <integer>1</integer> - <key>XCSharingToken</key> - <string>com.apple.Xcode.GFSharingToken</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {203, 355}}</string> - <key>GroupTreeTableConfiguration</key> - <array> - <string>MainColumn</string> - <real>186</real> - </array> - <key>RubberWindowFrame</key> - <string>373 269 690 397 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXSmartGroupTreeModule</string> - <key>Proportion</key> - <string>100%</string> - </dict> - </array> - <key>Name</key> - <string>Morph</string> - <key>PreferredWidth</key> - <integer>300</integer> - <key>ServiceClasses</key> - <array> - <string>XCModuleDock</string> - <string>PBXSmartGroupTreeModule</string> - </array> - <key>TableOfContents</key> - <array> - <string>11E0B1FE06471DED0097A5F4</string> - </array> - <key>ToolbarConfiguration</key> - <string>xcode.toolbar.config.default.short</string> - </dict> - </array> - <key>PerspectivesBarVisible</key> - <false/> - <key>ShelfIsVisible</key> - <false/> - <key>SourceDescription</key> - <string>file at '/System/Library/PrivateFrameworks/DevToolsInterface.framework/Versions/A/Resources/XCPerspectivesSpecificationMode1.xcperspec'</string> - <key>StatusbarIsVisible</key> - <true/> - <key>TimeStamp</key> - <real>167592072.482155</real> - <key>ToolbarDisplayMode</key> - <integer>1</integer> - <key>ToolbarIsVisible</key> - <true/> - <key>ToolbarSizeMode</key> - <integer>2</integer> - <key>Type</key> - <string>Perspectives</string> - <key>UpdateMessage</key> - <string>The Default Workspace in this version of Xcode now includes support to hide and show the detail view (what has been referred to as the "Metro-Morph" feature). You must discard your current Default Workspace settings and update to the latest Default Workspace in order to gain this feature. Do you wish to update to the latest Workspace defaults for project '%@'?</string> - <key>WindowJustification</key> - <integer>5</integer> - <key>WindowOrderList</key> - <array> - <string>947C586209FD3AA400104AC9</string> - <string>945995B609D3D81C00DC6224</string> - <string>94F8D52509E9F48100C8A21D</string> - <string>/Users/johnmci/Documents/Squeak3.8.0/SqueakVMUNIXPATHS.xcodeproj</string> - <string>94BC386609E8F10D003E06E0</string> - </array> - <key>WindowString</key> - <string>215 75 1180 773 0 0 1440 878 </string> - <key>WindowTools</key> - <array> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.build</string> - <key>IsVertical</key> - <true/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CD0528F0623707200166675</string> - <key>PBXProjectModuleLabel</key> - <string></string> - <key>StatusBarVisibility</key> - <true/> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {726, 519}}</string> - <key>RubberWindowFrame</key> - <string>443 30 726 826 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXNavigatorGroup</string> - <key>Proportion</key> - <string>519pt</string> - </dict> - <dict> - <key>BecomeActive</key> - <true/> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>XCMainBuildResultsModuleGUID</string> - <key>PBXProjectModuleLabel</key> - <string>Build</string> - <key>XCBuildResultsTrigger_Collapse</key> - <integer>1021</integer> - <key>XCBuildResultsTrigger_Open</key> - <integer>1013</integer> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 524}, {726, 261}}</string> - <key>RubberWindowFrame</key> - <string>443 30 726 826 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXBuildResultsModule</string> - <key>Proportion</key> - <string>261pt</string> - </dict> - </array> - <key>Proportion</key> - <string>785pt</string> - </dict> - </array> - <key>Name</key> - <string>Build Results</string> - <key>ServiceClasses</key> - <array> - <string>PBXBuildResultsModule</string> - </array> - <key>StatusbarIsVisible</key> - <true/> - <key>TableOfContents</key> - <array> - <string>94BC386609E8F10D003E06E0</string> - <string>947C585B09FD3AA400104AC9</string> - <string>1CD0528F0623707200166675</string> - <string>XCMainBuildResultsModuleGUID</string> - </array> - <key>ToolbarConfiguration</key> - <string>xcode.toolbar.config.build</string> - <key>WindowString</key> - <string>443 30 726 826 0 0 1440 878 </string> - <key>WindowToolGUID</key> - <string>94BC386609E8F10D003E06E0</string> - <key>WindowToolIsVisible</key> - <true/> - </dict> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.debugger</string> - <key>IsVertical</key> - <true/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>Debugger</key> - <dict> - <key>HorizontalSplitView</key> - <dict> - <key>_collapsingFrameDimension</key> - <real>0.0</real> - <key>_indexOfCollapsedView</key> - <integer>0</integer> - <key>_percentageOfCollapsedView</key> - <real>0.0</real> - <key>isCollapsed</key> - <string>yes</string> - <key>sizes</key> - <array> - <string>{{0, 0}, {231, 333}}</string> - <string>{{0, 333}, {231, 334}}</string> - </array> - </dict> - <key>VerticalSplitView</key> - <dict> - <key>_collapsingFrameDimension</key> - <real>0.0</real> - <key>_indexOfCollapsedView</key> - <integer>0</integer> - <key>_percentageOfCollapsedView</key> - <real>0.0</real> - <key>isCollapsed</key> - <string>yes</string> - <key>sizes</key> - <array> - <string>{{0, 0}, {231, 667}}</string> - <string>{{231, 0}, {1055, 667}}</string> - </array> - </dict> - </dict> - <key>LauncherConfigVersion</key> - <string>8</string> - <key>PBXProjectModuleGUID</key> - <string>1C162984064C10D400B95A72</string> - <key>PBXProjectModuleLabel</key> - <string>Debug - GLUTExamples (Underwater)</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>DebugConsoleDrawerSize</key> - <string>{100, 120}</string> - <key>DebugConsoleVisible</key> - <string>None</string> - <key>DebugConsoleWindowFrame</key> - <string>{{200, 200}, {500, 300}}</string> - <key>DebugSTDIOWindowFrame</key> - <string>{{321, 59}, {1115, 693}}</string> - <key>Frame</key> - <string>{{0, 0}, {1286, 667}}</string> - <key>RubberWindowFrame</key> - <string>138 119 1286 708 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXDebugSessionModule</string> - <key>Proportion</key> - <string>667pt</string> - </dict> - </array> - <key>Proportion</key> - <string>667pt</string> - </dict> - </array> - <key>Name</key> - <string>Debugger</string> - <key>ServiceClasses</key> - <array> - <string>PBXDebugSessionModule</string> - </array> - <key>StatusbarIsVisible</key> - <true/> - <key>TableOfContents</key> - <array> - <string>94F8D52509E9F48100C8A21D</string> - <string>947C585C09FD3AA400104AC9</string> - <string>1C162984064C10D400B95A72</string> - <string>947C585D09FD3AA400104AC9</string> - <string>947C585E09FD3AA400104AC9</string> - <string>947C585F09FD3AA400104AC9</string> - <string>947C586009FD3AA400104AC9</string> - <string>947C586109FD3AA400104AC9</string> - <string>947C586209FD3AA400104AC9</string> - </array> - <key>ToolbarConfiguration</key> - <string>xcode.toolbar.config.debug</string> - <key>WindowString</key> - <string>138 119 1286 708 0 0 1440 878 </string> - <key>WindowToolGUID</key> - <string>94F8D52509E9F48100C8A21D</string> - <key>WindowToolIsVisible</key> - <true/> - </dict> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.find</string> - <key>IsVertical</key> - <true/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CDD528C0622207200134675</string> - <key>PBXProjectModuleLabel</key> - <string></string> - <key>StatusBarVisibility</key> - <true/> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {913, 248}}</string> - <key>RubberWindowFrame</key> - <string>510 50 913 807 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXNavigatorGroup</string> - <key>Proportion</key> - <string>913pt</string> - </dict> - </array> - <key>Proportion</key> - <string>248pt</string> - </dict> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CD0528E0623707200166675</string> - <key>PBXProjectModuleLabel</key> - <string>Project Find</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 253}, {913, 513}}</string> - <key>RubberWindowFrame</key> - <string>510 50 913 807 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXProjectFindModule</string> - <key>Proportion</key> - <string>513pt</string> - </dict> - </array> - <key>Proportion</key> - <string>766pt</string> - </dict> - </array> - <key>Name</key> - <string>Project Find</string> - <key>ServiceClasses</key> - <array> - <string>PBXProjectFindModule</string> - </array> - <key>StatusbarIsVisible</key> - <true/> - <key>TableOfContents</key> - <array> - <string>1C530D57069F1CE1000CFCEE</string> - <string>94E5C5D709FD389F009252B0</string> - <string>94E5C5D809FD389F009252B0</string> - <string>1CDD528C0622207200134675</string> - <string>1CD0528E0623707200166675</string> - </array> - <key>WindowString</key> - <string>510 50 913 807 0 0 1440 878 </string> - <key>WindowToolGUID</key> - <string>1C530D57069F1CE1000CFCEE</string> - <key>WindowToolIsVisible</key> - <false/> - </dict> - <dict> - <key>Identifier</key> - <string>MENUSEPARATOR</string> - </dict> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.debuggerConsole</string> - <key>IsVertical</key> - <true/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1C78EAAC065D492600B07095</string> - <key>PBXProjectModuleLabel</key> - <string>Debugger Console</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {1163, 578}}</string> - <key>RubberWindowFrame</key> - <string>127 63 1163 619 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXDebugCLIModule</string> - <key>Proportion</key> - <string>578pt</string> - </dict> - </array> - <key>Proportion</key> - <string>578pt</string> - </dict> - </array> - <key>Name</key> - <string>Debugger Console</string> - <key>ServiceClasses</key> - <array> - <string>PBXDebugCLIModule</string> - </array> - <key>StatusbarIsVisible</key> - <true/> - <key>TableOfContents</key> - <array> - <string>9450EA8309E9CB4300C12841</string> - <string>940D73D009F4B1CB00E08D3D</string> - <string>1C78EAAC065D492600B07095</string> - </array> - <key>WindowString</key> - <string>127 63 1163 619 0 0 1440 878 </string> - <key>WindowToolGUID</key> - <string>9450EA8309E9CB4300C12841</string> - <key>WindowToolIsVisible</key> - <false/> - </dict> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.run</string> - <key>IsVertical</key> - <true/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>LauncherConfigVersion</key> - <string>3</string> - <key>PBXProjectModuleGUID</key> - <string>1CD0528B0623707200166675</string> - <key>PBXProjectModuleLabel</key> - <string>Run</string> - <key>Runner</key> - <dict> - <key>HorizontalSplitView</key> - <dict> - <key>_collapsingFrameDimension</key> - <real>0.0</real> - <key>_indexOfCollapsedView</key> - <integer>0</integer> - <key>_percentageOfCollapsedView</key> - <real>0.0</real> - <key>isCollapsed</key> - <string>yes</string> - <key>sizes</key> - <array> - <string>{{0, 0}, {367, 168}}</string> - <string>{{0, 173}, {367, 270}}</string> - </array> - </dict> - <key>VerticalSplitView</key> - <dict> - <key>_collapsingFrameDimension</key> - <real>0.0</real> - <key>_indexOfCollapsedView</key> - <integer>0</integer> - <key>_percentageOfCollapsedView</key> - <real>0.0</real> - <key>isCollapsed</key> - <string>yes</string> - <key>sizes</key> - <array> - <string>{{0, 0}, {406, 443}}</string> - <string>{{411, 0}, {517, 443}}</string> - </array> - </dict> - </dict> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {721, 160}}</string> - <key>RubberWindowFrame</key> - <string>396 585 721 201 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXRunSessionModule</string> - <key>Proportion</key> - <string>160pt</string> - </dict> - </array> - <key>Proportion</key> - <string>160pt</string> - </dict> - </array> - <key>Name</key> - <string>Run Log</string> - <key>ServiceClasses</key> - <array> - <string>PBXRunSessionModule</string> - </array> - <key>StatusbarIsVisible</key> - <true/> - <key>TableOfContents</key> - <array> - <string>945995B609D3D81C00DC6224</string> - <string>947C586309FD3AA400104AC9</string> - <string>1CD0528B0623707200166675</string> - <string>947C586409FD3AA400104AC9</string> - </array> - <key>ToolbarConfiguration</key> - <string>xcode.toolbar.config.run</string> - <key>WindowString</key> - <string>396 585 721 201 0 0 1440 878 </string> - <key>WindowToolGUID</key> - <string>945995B609D3D81C00DC6224</string> - <key>WindowToolIsVisible</key> - <true/> - </dict> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.scm</string> - <key>IsVertical</key> - <true/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1C78EAB2065D492600B07095</string> - <key>PBXProjectModuleLabel</key> - <string></string> - <key>StatusBarVisibility</key> - <true/> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {452, 0}}</string> - <key>RubberWindowFrame</key> - <string>527 482 452 308 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXNavigatorGroup</string> - <key>Proportion</key> - <string>0pt</string> - </dict> - <dict> - <key>BecomeActive</key> - <true/> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CD052920623707200166675</string> - <key>PBXProjectModuleLabel</key> - <string>SCM Results</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 5}, {452, 262}}</string> - <key>RubberWindowFrame</key> - <string>527 482 452 308 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXCVSModule</string> - <key>Proportion</key> - <string>262pt</string> - </dict> - </array> - <key>Proportion</key> - <string>267pt</string> - </dict> - </array> - <key>Name</key> - <string>SCM</string> - <key>ServiceClasses</key> - <array> - <string>PBXCVSModule</string> - </array> - <key>StatusbarIsVisible</key> - <true/> - <key>TableOfContents</key> - <array> - <string>9418BA02088CD3EE00448FDD</string> - <string>94BBB50E09D10EFE004A32DC</string> - <string>1C78EAB2065D492600B07095</string> - <string>1CD052920623707200166675</string> - </array> - <key>ToolbarConfiguration</key> - <string>xcode.toolbar.config.scm</string> - <key>WindowString</key> - <string>527 482 452 308 0 0 1440 878 </string> - <key>WindowToolGUID</key> - <string>9418BA02088CD3EE00448FDD</string> - <key>WindowToolIsVisible</key> - <false/> - </dict> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.breakpoints</string> - <key>IsVertical</key> - <false/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXBottomSmartGroupGIDs</key> - <array> - <string>1C77FABC04509CD000000102</string> - </array> - <key>PBXProjectModuleGUID</key> - <string>1CE0B1FE06471DED0097A5F4</string> - <key>PBXProjectModuleLabel</key> - <string>Files</string> - <key>PBXProjectStructureProvided</key> - <string>no</string> - <key>PBXSmartGroupTreeModuleColumnData</key> - <dict> - <key>PBXSmartGroupTreeModuleColumnWidthsKey</key> - <array> - <real>361</real> - </array> - <key>PBXSmartGroupTreeModuleColumnsKey_v4</key> - <array> - <string>MainColumn</string> - </array> - </dict> - <key>PBXSmartGroupTreeModuleOutlineStateKey_v7</key> - <dict> - <key>PBXSmartGroupTreeModuleOutlineStateExpansionKey</key> - <array> - <string>1C77FABC04509CD000000102</string> - <string>1C3E0DCA080725EA00A55177</string> - </array> - <key>PBXSmartGroupTreeModuleOutlineStateSelectionKey</key> - <array> - <array> - <integer>0</integer> - </array> - </array> - <key>PBXSmartGroupTreeModuleOutlineStateVisibleRectKey</key> - <string>{{0, 0}, {361, 530}}</string> - </dict> - <key>PBXTopSmartGroupGIDs</key> - <array/> - <key>XCIncludePerspectivesSwitch</key> - <false/> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{0, 0}, {378, 548}}</string> - <key>GroupTreeTableConfiguration</key> - <array> - <string>MainColumn</string> - <real>361</real> - </array> - <key>RubberWindowFrame</key> - <string>463 140 968 589 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>PBXSmartGroupTreeModule</string> - <key>Proportion</key> - <string>378pt</string> - </dict> - <dict> - <key>BecomeActive</key> - <true/> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>1CA1AED706398EBD00589147</string> - <key>PBXProjectModuleLabel</key> - <string>Detail</string> - </dict> - <key>GeometryConfiguration</key> - <dict> - <key>Frame</key> - <string>{{383, 0}, {585, 548}}</string> - <key>RubberWindowFrame</key> - <string>463 140 968 589 0 0 1440 878 </string> - </dict> - <key>Module</key> - <string>XCDetailModule</string> - <key>Proportion</key> - <string>585pt</string> - </dict> - </array> - <key>Proportion</key> - <string>548pt</string> - </dict> - </array> - <key>MajorVersion</key> - <integer>2</integer> - <key>MinorVersion</key> - <integer>0</integer> - <key>Name</key> - <string>Breakpoints</string> - <key>ServiceClasses</key> - <array> - <string>PBXSmartGroupTreeModule</string> - <string>XCDetailModule</string> - </array> - <key>StatusbarIsVisible</key> - <true/> - <key>TableOfContents</key> - <array> - <string>94DC4BF809EABEC6006141E1</string> - <string>94DC4BF909EABEC6006141E1</string> - <string>1CE0B1FE06471DED0097A5F4</string> - <string>1CA1AED706398EBD00589147</string> - </array> - <key>ToolbarConfiguration</key> - <string>xcode.toolbar.config.breakpoints</string> - <key>WindowString</key> - <string>463 140 968 589 0 0 1440 878 </string> - <key>WindowToolGUID</key> - <string>94DC4BF809EABEC6006141E1</string> - <key>WindowToolIsVisible</key> - <false/> - </dict> - <dict> - <key>FirstTimeWindowDisplayed</key> - <false/> - <key>Identifier</key> - <string>windowTool.debugAnimator</string> - <key>IsVertical</key> - <true/> - <key>Layout</key> - <array> - <dict> - <key>Dock</key> - <array> - <dict> - <key>ContentConfiguration</key> - <dict> - <key>PBXProjectModuleGUID</key> - <string>94D6B72209AFF12000C4D1B3</string> - <key>PBXProjectModuleLabel</key> - <string></string> @@ Diff output truncated at 50000 characters. @@

1 0

VM Maker: VMMaker.oscog-eem.652.mcz
by commits＠source.squeak.org 20 Mar '14

20 Mar '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.652.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.652 Author: eem Time: 20 March 2014, 9:39:01.361 am UUID: d044d1df-74db-4230-8670-4fcbc815e762 Ancestors: VMMaker.oscog-eem.651 Implement whereIs: to provide better debugging of weak containers. Allow inlining when parameters include structure accessors for e.g. isInFutureSpace: in whereIsMaybeHeapThing:. =============== Diff against VMMaker.oscog-eem.651 =============== Item was changed: ----- Method: CCodeGenerator>>shouldIncludeMethodFor:selector: (in category 'utilities') ----- shouldIncludeMethodFor: aClass selector: selector "process optional methods by interpreting the argument to the option: pragma as either a Cogit class name or a class variable name or a variable name in VMBasicConstants." (aClass >> selector pragmaAt: #option:) ifNotNil: [:pragma| | key | key := pragma argumentAt: 1. vmMaker ifNotNil: + [vmMaker cogitClassName ifNotNil: + [(Cogit withAllSubclasses anySatisfy: [:c| c name = key]) ifTrue: + [| cogitClass optionClass | + cogitClass := Smalltalk classNamed: vmMaker cogitClassName. + optionClass := Smalltalk classNamed: key. + ^cogitClass includesBehavior: optionClass]]. - [(Cogit withAllSubclasses anySatisfy: [:c| c name = key]) ifTrue: - [| cogitClass optionClass | - cogitClass := Smalltalk classNamed: vmMaker cogitClassName. - optionClass := Smalltalk classNamed: key. - ^cogitClass includesBehavior: optionClass]. ((vmClass ifNotNil: [vmClass initializationOptions] ifNil: [vmMaker options]) at: key ifAbsent: [false]) ifNotNil: [:option| option ~~ false ifTrue: [^true]]. (aClass bindingOf: key) ifNotNil: [:binding| binding value ~~ false ifTrue: [^true]]. (VMBasicConstants bindingOf: key) ifNotNil: [:binding| binding value ~~ false ifTrue: [^true]]]. ^false]. ^true! Item was added: + ----- Method: CoInterpreter>>whereIs: (in category 'debug printing') ----- + whereIs: anOop + <var: 'somewhere' type: #'char *'> + (cogit whereIsMaybeCodeThing: anOop) ifNotNil: [:somewhere| ^somewhere]. + ^super whereIs: anOop! Item was added: + ----- Method: CoInterpreterStackPages>>whereIsMaybeStackThing: (in category 'debug printing') ----- + whereIsMaybeStackThing: anOop + <returnTypeC: 'char *'> + (self oop: anOop + isGreaterThanOrEqualTo: (stackBasePlus1 - 1) + andLessThan: (self cCode: [pages] + inSmalltalk: [(self stackPageAt: 0)])) ifTrue: + [^' is in the stack zone']. + ^nil! Item was added: + ----- Method: CogMethodZone>>whereIsMaybeCodeThing: (in category 'debug printing') ----- + whereIsMaybeCodeThing: anOop + <api> + <returnTypeC: 'char *'> + (self oop: anOop isGreaterThanOrEqualTo: baseAddress andLessThan: limitAddress) ifTrue: + [(self oop: anOop isLessThan: cogit minCogMethodAddress) ifTrue: + [^' is in generated runtime']. + (self oop: anOop isLessThan: mzFreeStart) ifTrue: + [^' is in generated methods']. + (self oop: anOop isLessThan: youngReferrers) ifTrue: + [^' is in code zone']. + ^' is in young referrers']. + ^nil! Item was changed: ----- Method: CogVMSimulator>>shortPrint: (in category 'debug support') ----- shortPrint: oop | name classOop | (objectMemory isImmediate: oop) ifTrue: [(objectMemory isImmediateCharacter: oop) ifTrue: [^(objectMemory characterValueOf: oop) < 256 ifTrue: ['=$' , (objectMemory characterValueOf: oop) printString , ' (' , (String with: (Character value: (objectMemory characterValueOf: oop))) , ')'] ifFalse: ['=$' , (objectMemory characterValueOf: oop) printString, '(???)']]. (objectMemory isIntegerObject: oop) ifTrue: [^ '=' , (objectMemory integerValueOf: oop) printString , ' (' , (objectMemory integerValueOf: oop) hex , ')']. ^'= UNKNOWN IMMEDIATE', ' (' , (objectMemory integerValueOf: oop) hex , ')']. (objectMemory addressCouldBeObj: oop) ifFalse: [^(oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [' is misaligned'] + ifFalse: [self whereIs: oop]]. - ifFalse: [' is not on the heap']]. (objectMemory isFreeObject: oop) ifTrue: [^' is a free chunk of size ', (objectMemory sizeOfFree: oop) printString]. (objectMemory isForwarded: oop) ifTrue: [^' is a forwarded object to ', (objectMemory followForwarded: oop) hex, ' of slot size ', (objectMemory numSlotsOfAny: oop) printString]. classOop := objectMemory fetchClassOfNonImm: oop. (objectMemory numSlotsOf: classOop) = metaclassNumSlots ifTrue: [^'class ' , (self nameOfClass: oop)]. name := self nameOfClass: classOop. name size = 0 ifTrue: [name := '??']. name = 'String' ifTrue: [^ (self stringOf: oop) printString]. name = 'ByteString' ifTrue: [^ (self stringOf: oop) printString]. name = 'Symbol' ifTrue: [^ '#' , (self stringOf: oop)]. name = 'ByteSymbol' ifTrue: [^ '#' , (self stringOf: oop)]. name = 'Character' ifTrue: "SpurMemoryManager has immediate Characters; ObjectMemory does not" [^ '=' , (Character value: (objectMemory integerValueOf: (objectMemory fetchPointer: 0 ofObject: oop))) printString]. name = 'UndefinedObject' ifTrue: [^ 'nil']. name = 'False' ifTrue: [^ 'false']. name = 'True' ifTrue: [^ 'true']. name = 'Float' ifTrue: [^ '=' , (self dbgFloatValueOf: oop) printString]. (#('Association' 'ReadOnlyVariableBinding' 'VariableBinding') includes: name) ifTrue: [^ '(' , (self shortPrint: (self longAt: oop + BaseHeaderSize)) , ' -> ' , (self longAt: oop + BaseHeaderSize + BytesPerWord) hex8 , ')']. ^(('AEIOU' includes: name first) ifTrue: ['an '] ifFalse: ['a ']), name! Item was added: + ----- Method: Cogit>>whereIsMaybeCodeThing: (in category 'debug printing') ----- + whereIsMaybeCodeThing: anOop + <doNotGenerate> + ^methodZone whereIsMaybeCodeThing: anOop! Item was added: + ----- Method: InterpreterStackPages>>whereIsMaybeStackThing: (in category 'debug printing') ----- + whereIsMaybeStackThing: anOop + <returnTypeC: 'char *'> + (self cCode: + [self oop: anOop isGreaterThanOrEqualTo: stackMemory andLessThan: pages] + inSmalltalk: + [(self memIndexFor: anOop) between: 1 and: stackMemory size]) ifTrue: + [^' is in the stack zone']. + ^nil! Item was changed: ----- Method: Spur32BitMMLECoSimulator>>isIntegerObject: (in category 'object testing') ----- isIntegerObject: oop "This list records the valid senders of isIntegerObject: as we replace uses of isIntegerObject: by isImmediate: where appropriate." | sel | sel := thisContext sender method selector. (#( DoIt DoItIn: baseFrameReturn bereaveAllMarriedContextsForSnapshotFlushingExternalPrimitivesIf: bytecodePrimAt bytecodePrimAtPut bytesOrInt:growTo: ceBaseFrameReturn: checkIsStillMarriedContext:currentFP: checkedIntegerValueOf: cogMethodDoesntLookKosher: commonAt: commonAtPut: commonVariable:at:put:cacheIndex: compare31or32Bits:equal: digitBitLogic:with:opIndex: digitLength: displayBitsOf:Left:Top:Right:Bottom: ensureContextHasBytecodePC: externalInstVar:ofContext: fetchIntOrFloat:ofObject: fetchIntOrFloat:ofObject:ifNil: fetchStackPointerOf: fileValueOf: frameOfMarriedContext: functionForPrimitiveExternalCall: genSpecialSelectorArithmetic genSpecialSelectorComparison inlineCacheTagForInstance: instVar:ofContext: isCogMethodReference: isLiveContext: isMarriedOrWidowedContext: isNegativeIntegerValueOf: isNormalized: loadBitBltDestForm loadBitBltSourceForm loadFloatOrIntFrom: loadPoint:from: magnitude64BitValueOf: makeBaseFrameFor: numPointerSlotsOf: objCouldBeClassObj: on:do: "from the debugger" positive32BitValueOf: positive64BitValueOf: primDigitAdd: primDigitBitShiftMagnitude: primDigitCompare: primDigitDiv:negative: primDigitMultiply:negative: primDigitSubtract: primitiveAllInstances primitiveAsCharacter primitiveContextAt primitiveContextAtPut primitiveExternalCall primitiveFileSetPosition primitiveFileTruncate DoIt primitiveForwardSignalToSemaphore primitiveGrowMemoryByAtLeast primitiveInputSemaphore primitiveMakePoint primitiveNewMethod primitiveObjectAtPut primitiveSizeInBytesOfInstance primitiveVMParameter printContext: quickFetchInteger:ofObject: shortPrint: shortPrintOop: signed32BitValueOf: signed64BitValueOf: subscript:with:storing:format: + unlockSurfaces + establishFrameForContextToReturnTo:) includes: sel) ifFalse: - unlockSurfaces) includes: sel) ifFalse: [self halt]. ^super isIntegerObject: oop! Item was changed: ----- Method: Spur32BitMMLESimulator>>isIntegerObject: (in category 'object testing') ----- isIntegerObject: oop "This list records the valid senders of isIntegerObject: as we replace uses of isIntegerObject: by isImmediate: where appropriate." | sel | sel := thisContext sender method selector. (#( DoIt DoItIn: baseFrameReturn bereaveAllMarriedContextsForSnapshotFlushingExternalPrimitivesIf: bytecodePrimAt bytecodePrimAtPut bytesOrInt:growTo: ceBaseFrameReturn: checkIsStillMarriedContext:currentFP: checkedIntegerValueOf: cogMethodDoesntLookKosher: commonAt: commonAtPut: commonVariable:at:put:cacheIndex: compare31or32Bits:equal: digitBitLogic:with:opIndex: digitLength: displayBitsOf:Left:Top:Right:Bottom: ensureContextHasBytecodePC: externalInstVar:ofContext: fetchIntOrFloat:ofObject: fetchIntOrFloat:ofObject:ifNil: fetchStackPointerOf: fileValueOf: frameOfMarriedContext: functionForPrimitiveExternalCall: genSpecialSelectorArithmetic genSpecialSelectorComparison inlineCacheTagForInstance: instVar:ofContext: isCogMethodReference: isLiveContext: isMarriedOrWidowedContext: isNegativeIntegerValueOf: isNormalized: loadBitBltDestForm loadBitBltSourceForm loadFloatOrIntFrom: loadPoint:from: magnitude64BitValueOf: makeBaseFrameFor: numPointerSlotsOf: objCouldBeClassObj: on:do: "from the debugger" positive32BitValueOf: positive64BitValueOf: primDigitAdd: primDigitBitShiftMagnitude: primDigitCompare: primDigitDiv:negative: primDigitMultiply:negative: primDigitSubtract: primitiveAllInstances primitiveAsCharacter primitiveContextAt primitiveContextAtPut primitiveExternalCall primitiveFileSetPosition primitiveFileTruncate DoIt primitiveForwardSignalToSemaphore primitiveGrowMemoryByAtLeast primitiveInputSemaphore primitiveMakePoint primitiveNewMethod primitiveObjectAtPut primitiveSizeInBytesOfInstance primitiveVMParameter printContext: quickFetchInteger:ofObject: shortPrint: shortPrintOop: signed32BitValueOf: signed64BitValueOf: subscript:with:storing:format: + unlockSurfaces + establishFrameForContextToReturnTo:) includes: sel) ifFalse: - unlockSurfaces) includes: sel) ifFalse: [self halt]. ^super isIntegerObject: oop! Item was changed: ----- Method: SpurGenerationScavengerSimulator>>scavenge: (in category 'scavenger') ----- scavenge: tenuringCriterion + coInterpreter transcript nextPutAll: 'scavenging ('; print: manager statScavenges; nextPutAll: ') ...'; flush. - coInterpreter transcript nextPutAll: 'scavenging...'; flush. ^super scavenge: tenuringCriterion! Item was added: + ----- Method: SpurMemoryManager>>whereIsMaybeHeapThing: (in category 'debug printing') ----- + whereIsMaybeHeapThing: anOop + <returnTypeC: 'char *'> + (self isInNewSpace: anOop) ifTrue: + [(self isInEden: anOop) ifTrue: [^' is in eden']. + (self isInFutureSpace: anOop) ifTrue: [^' is in future space']. + (self isInPastSpace: anOop) ifTrue: [^' is in past space']. + ^' is in new space']. + (self isInOldSpace: anOop) ifTrue: + [(segmentManager segmentContainingObj: anOop) ifNotNil: + [^' is in old space']. + ^' is between old space segments']. + ^nil! Item was changed: ----- Method: StackInterpreter>>printOop: (in category 'debug printing') ----- printOop: oop | cls fmt lastIndex startIP bytecodesPerLine column | <inline: false> (objectMemory isImmediate: oop) ifTrue: [^self shortPrintOop: oop]. self printHex: oop. (objectMemory addressCouldBeObj: oop) ifFalse: [^self print: ((oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [' is misaligned'] + ifFalse: [self whereIs: oop]); cr]. - ifFalse: [' is not on the heap']); cr]. (objectMemory isFreeObject: oop) ifTrue: [^self print: ' is a free chunk of size '; printNum: (objectMemory sizeOfFree: oop); cr]. (objectMemory isForwarded: oop) ifTrue: [^self print: ' is a forwarded object to '; printHex: (objectMemory followForwarded: oop); print: ' of slot size '; printNum: (objectMemory numSlotsOfAny: oop); cr]. self print: ': a(n) '. self printNameOfClass: (cls := objectMemory fetchClassOfNonImm: oop) count: 5. cls = (objectMemory splObj: ClassFloat) ifTrue: [^self cr; printFloat: (self dbgFloatValueOf: oop); cr]. fmt := objectMemory formatOf: oop. fmt > objectMemory lastPointerFormat ifTrue: [self print: ' nbytes '; printNum: (objectMemory byteLengthOf: oop)]. self cr. (fmt between: objectMemory firstLongFormat and: objectMemory firstCompiledMethodFormat - 1) ifTrue: ["This will answer false if splObj: ClassAlien is nilObject" (self is: oop KindOfClass: (objectMemory splObj: ClassAlien)) ifTrue: [self print: ' datasize '; printNum: (self sizeOfAlienData: oop). self print: ((self isIndirectAlien: oop) ifTrue: [' indirect @ '] ifFalse: [(self isPointerAlien: oop) ifTrue: [' pointer @ '] ifFalse: [' direct @ ']]). ^self printHex: (self startOfAlienData: oop) asUnsignedInteger; cr]. (objectMemory isWords: oop) ifTrue: [lastIndex := 64 min: ((objectMemory byteLengthOf: oop) / BytesPerWord). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self space; printHex: (objectMemory fetchLong32: index - 1 ofObject: oop). (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. ^self]. ^self printStringOf: oop; cr]. "this is nonsense. apologies." startIP := (objectMemory lastPointerOf: oop) + BytesPerOop - objectMemory baseHeaderSize / BytesPerOop. lastIndex := 256 min: startIP. lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self cCode: [self printHex: (objectMemory fetchPointer: index - 1 ofObject: oop); space] inSmalltalk: [self space; printHex: (objectMemory fetchPointer: index - 1 ofObject: oop); space. self print: (self shortPrint: (objectMemory fetchPointer: index - 1 ofObject: oop))]. (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. (objectMemory isCompiledMethod: oop) ifFalse: [startIP > 64 ifTrue: [self print: '...'; cr]] ifTrue: [startIP := startIP * BytesPerWord + 1. lastIndex := objectMemory lengthOf: oop. lastIndex - startIP > 100 ifTrue: [lastIndex := startIP + 100]. bytecodesPerLine := 8. column := 1. startIP to: lastIndex do: [:index| | byte | column = 1 ifTrue: [self cCode: 'printf("0x%08x: ", oop+BaseHeaderSize+index-1)' inSmalltalk: [self print: (oop+BaseHeaderSize+index-1) hex; print: ': ']]. byte := objectMemory fetchByte: index - 1 ofObject: oop. self cCode: 'printf(" %02x/%-3d", byte,byte)' inSmalltalk: [self space; print: (byte radix: 16); printChar: $/; printNum: byte]. column := column + 1. column > bytecodesPerLine ifTrue: [column := 1. self cr]]. column = 1 ifFalse: [self cr]]! Item was changed: ----- Method: StackInterpreter>>printOopShortInner: (in category 'debug printing') ----- printOopShortInner: oop | classOop name nameLen | <var: #name type: #'char *'> <inline: true> (objectMemory isImmediate: oop) ifTrue: [(objectMemory isImmediateCharacter: oop) ifTrue: [^self printChar: $$; printChar: (objectMemory characterValueOf: oop); printChar: $(; printHex: (objectMemory integerValueOf: oop); printChar: $)]. ^self printNum: (objectMemory integerValueOf: oop); printChar: $(; printHex: (objectMemory integerValueOf: oop); printChar: $)]. (objectMemory addressCouldBeObj: oop) ifFalse: [^self print: ((oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [' is misaligned'] + ifFalse: [self whereIs: oop])]. - ifFalse: [' is not on the heap'])]. (objectMemory isOopForwarded: oop) ifTrue: [^self printHex: oop; print: ' is a forwarder to '; printHex: (objectMemory followForwarded: oop)]. (self isFloatObject: oop) ifTrue: [^self printFloat: (self dbgFloatValueOf: oop)]. classOop := objectMemory fetchClassOfNonImm: oop. (objectMemory addressCouldBeObj: classOop) ifFalse: [^self print: 'a ??']. (objectMemory numSlotsOf: classOop) = metaclassNumSlots ifTrue: [^self printNameOfClass: oop count: 5]. oop = objectMemory nilObject ifTrue: [^self print: 'nil']. oop = objectMemory trueObject ifTrue: [^self print: 'true']. oop = objectMemory falseObject ifTrue: [^self print: 'false']. nameLen := self lengthOfNameOfClass: classOop. nameLen = 0 ifTrue: [^self print: 'a ??']. name := self nameOfClass: classOop. nameLen = 10 ifTrue: [(self str: name n: 'ByteString' cmp: 10) not "strncmp is weird" ifTrue: [^self printChar: $'; printStringOf: oop; printChar: $']. (self str: name n: 'ByteSymbol' cmp: 10) not "strncmp is weird" ifTrue: [self printChar: $#; printStringOf: oop. ^self]]. (nameLen = 9 and: [(self str: name n: 'Character' cmp: 9) not]) ifTrue: [^self printChar: $$; printChar: (objectMemory integerValueOf: (objectMemory fetchPointer: 0 ofObject: oop))]. self print: 'a(n) '. self cCode: [0 to: nameLen - 1 do: [:i| self printChar: (name at: i)]] inSmalltalk: [name isString ifTrue: [self print: name] ifFalse: [0 to: nameLen - 1 do: [:i| self printChar: (name at: i)]]]. "Try to spot association-like things; they're all subclasses of LookupKey" ((objectMemory instanceSizeOf: classOop) = (ValueIndex + 1) and: [(self superclassOf: classOop) = (self superclassOf: (objectMemory fetchClassOfNonImm: (objectMemory splObj: SchedulerAssociation))) and: [objectMemory isBytes: (objectMemory fetchPointer: KeyIndex ofObject: oop)]]) ifTrue: [self space; printOopShort: (objectMemory fetchPointer: KeyIndex ofObject: oop); print: ' -> '; printHex: (objectMemory fetchPointer: ValueIndex ofObject: oop)]! Item was changed: ----- Method: StackInterpreter>>shortPrintOop: (in category 'debug printing') ----- shortPrintOop: oop <inline: false> self printHexnp: oop. (objectMemory isImmediate: oop) ifTrue: [(objectMemory isImmediateCharacter: oop) ifTrue: [self cCode: 'printf("=$%ld ($%lc)\n", (long)characterValueOf(oop), (wint_t)characterValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. (objectMemory isIntegerObject: oop) ifTrue: [self cCode: 'printf("=%ld\n", (long)integerValueOf(oop))' inSmalltalk: [self print: (self shortPrint: oop); cr]]. ^self]. (objectMemory addressCouldBeObj: oop) ifFalse: [^self print: ((oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [' is misaligned'] + ifFalse: [self whereIs: oop]); cr]. - ifFalse: [' is not on the heap']); cr]. ((objectMemory isFreeObject: oop) or: [objectMemory isForwarded: oop]) ifTrue: [^self printOop: oop]. self print: ': a(n) '. self printNameOfClass: (objectMemory fetchClassOfNonImm: oop) count: 5. self cr! Item was added: + ----- Method: StackInterpreter>>whereIs: (in category 'debug printing') ----- + whereIs: anOop + <api> + <returnTypeC: 'char *'> + <inline: false> + <var: 'where' type: #'char *'> + (objectMemory whereIsMaybeHeapThing: anOop) ifNotNil: [:where| ^where]. + (stackPages whereIsMaybeStackThing: anOop) ifNotNil: [:where| ^where]. + ^' is no where obvious'! Item was changed: ----- Method: StackInterpreterSimulator>>shortPrint: (in category 'debug support') ----- shortPrint: oop | name classOop | (objectMemory isImmediate: oop) ifTrue: [(objectMemory isImmediateCharacter: oop) ifTrue: [^(objectMemory characterValueOf: oop) < 256 ifTrue: ['=$' , (objectMemory characterValueOf: oop) printString , ' (' , (String with: (Character value: (objectMemory characterValueOf: oop))) , ')'] ifFalse: ['=$' , (objectMemory characterValueOf: oop) printString, '(???)']]. (objectMemory isIntegerObject: oop) ifTrue: [^ '=' , (objectMemory integerValueOf: oop) printString , ' (' , (objectMemory integerValueOf: oop) hex , ')']. ^'= UNKNOWN IMMEDIATE', ' (' , (objectMemory integerValueOf: oop) hex , ')']. (objectMemory addressCouldBeObj: oop) ifFalse: [^(oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [' is misaligned'] + ifFalse: [self whereIs: oop]]. - ifFalse: [' is not on the heap']]. (objectMemory isFreeObject: oop) ifTrue: [^' is a free chunk of size ', (objectMemory sizeOfFree: oop) printString]. (objectMemory isForwarded: oop) ifTrue: [^' is a forwarded object to ', (objectMemory followForwarded: oop) hex, ' of slot size ', (objectMemory numSlotsOfAny: oop) printString]. classOop := objectMemory fetchClassOfNonImm: oop. classOop ifNil: [^' has a nil class!!!!']. (objectMemory numSlotsOf: classOop) = metaclassNumSlots ifTrue: [^'class ' , (self nameOfClass: oop)]. name := self nameOfClass: classOop. name size = 0 ifTrue: [name := '??']. name = 'String' ifTrue: [^ (self stringOf: oop) printString]. name = 'ByteString' ifTrue: [^ (self stringOf: oop) printString]. name = 'Symbol' ifTrue: [^ '#' , (self stringOf: oop)]. name = 'ByteSymbol' ifTrue: [^ '#' , (self stringOf: oop)]. name = 'Character' ifTrue: "SpurMemoryManager has immediate Characters; ObjectMemory does not" [^ '=' , (Character value: (objectMemory integerValueOf: (objectMemory fetchPointer: 0 ofObject: oop))) printString]. name = 'UndefinedObject' ifTrue: [^ 'nil']. name = 'False' ifTrue: [^ 'false']. name = 'True' ifTrue: [^ 'true']. name = 'Float' ifTrue: [^ '=' , (self dbgFloatValueOf: oop) printString]. (#('Association' 'ReadOnlyVariableBinding' 'VariableBinding') includes: name) ifTrue: [^ '(' , (self shortPrint: (self longAt: oop + BaseHeaderSize)) , ' -> ' , (self longAt: oop + BaseHeaderSize + BytesPerWord) hex8 , ')']. ^(('AEIOU' includes: name first) ifTrue: ['an '] ifFalse: ['a ']), name! Item was changed: ----- Method: TMethod>>isSubstitutableNode:intoMethod:in: (in category 'inlining') ----- isSubstitutableNode: aNode intoMethod: targetMeth in: aCodeGen "Answer true if the given parameter node is either a constant, a local variable, or a formal parameter of the receiver. Such parameter nodes may be substituted directly into the body of the method during inlining. Note that global variables cannot be subsituted into methods with possible side effects (i.e., methods that may assign to global variables) because the inlined method might depend on having the value of the global variable captured when it is passed in as an argument." | var | aNode isConstant ifTrue: [ ^ true ]. aNode isVariable ifTrue: [ var := aNode name. ((locals includes: var) or: [args includes: var]) ifTrue: [ ^ true ]. (#(self true false nil) includes: var) ifTrue: [ ^ true ]. (targetMeth maySubstituteGlobal: var in: aCodeGen) ifTrue: [ ^ true ]. ]. "For now allow literal blocks to be substituted. They better be accessed only with value[:value:*] messages though!!" aNode isStmtList ifTrue: [^true]. + (aNode isSend + and: [aNode numArgs = 0 + and: [aNode isStructSendIn: aCodeGen]]) ifTrue: + [^true]. + "scan expression tree; must contain only constants, builtin ops, and inlineable vars" aNode nodesDo: [ :node | node isSend ifTrue: [ node isBuiltinOperator ifFalse: [ ^false ]. ]. node isVariable ifTrue: [ var := node name. ((locals includes: var) or: [(args includes: var) or: [(#(self true false nil) includes: var) or: [targetMeth maySubstituteGlobal: var in: aCodeGen]]]) ifFalse: [ ^ false ]. ]. (node isConstant or: [node isVariable or: [node isSend]]) ifFalse: [ ^false ]. ]. ^ true! Item was added: + ----- Method: TSendNode>>numArgs (in category 'accessing') ----- + numArgs + ^arguments size! Item was changed: ----- Method: TSendNode>>shouldExcludeReceiverAsFirstArgument: (in category 'C code generation') ----- shouldExcludeReceiverAsFirstArgument: aCodeGen "Only include the receiver as the first argument in certain cases. The receiver is always included if it is an expression. If it is a variable: If the vmClass says it is an implicit variable, don't include it. If the method's definingClass says it is an implicit variable, don't include it. If the variable is 'self' and the method being called is not in the method set (i.e. it is some external code), don't include it. If it is a struct send of something the vm says is an implicit variable, don't include it." | m | (aCodeGen isAssertSelector: selector) ifTrue: [^true]. (receiver isSend and: [receiver receiver isVariable and: [(self isSelfReference: receiver receiver in: aCodeGen) or: [self isStructReference: receiver receiver in: aCodeGen]]]) ifTrue: [^aCodeGen isNonArgumentImplicitReceiverVariableName: receiver selector]. ^receiver isVariable and: [(aCodeGen isNonArgumentImplicitReceiverVariableName: receiver name) or: [(self isSelfReference: receiver in: aCodeGen) and: [(m := aCodeGen methodNamed: selector) isNil + or: [#(implicit nil) includes: m typeForSelf]]]]! - or: [m typeForSelf == #implicit]]]]!

1 0

VM Maker: VMMaker.oscog-eem.651.mcz
by commits＠source.squeak.org 19 Mar '14

19 Mar '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.651.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.651 Author: eem Time: 19 March 2014, 2:29:27.436 pm UUID: 4fc53472-12b1-487f-8620-d0fc2eff1662 Ancestors: VMMaker.oscog-eem.650 Prune youngReferrers amd flush icache after freeUnmarkedMachineCode. Protect byteSizeOfInstanceOf:withIndexableSlots: against integer overflow. =============== Diff against VMMaker.oscog-eem.650 =============== Item was changed: ----- Method: Cogit>>freeUnmarkedMachineCode (in category 'jit - api') ----- freeUnmarkedMachineCode "Free machine-code methods whose compiled methods are unmarked and open PICs whose selectors are not marked." <api> <option: #SpurMemoryManager> + | cogMethod freedMethod | - | cogMethod | <var: #cogMethod type: #'CogMethod *'> + freedMethod := false. cogMethod := self cCoerceSimple: methodZoneBase to: #'CogMethod *'. [cogMethod < methodZone limitZony] whileTrue: [(cogMethod cmType = CMMethod and: [(objectMemory isMarked: cogMethod methodObject) not]) ifTrue: + [freedMethod := true. + self freeMethod: cogMethod]. - [self freeMethod: cogMethod]. (cogMethod cmType = CMOpenPIC and: [(objectMemory isImmediate: cogMethod selector) not and: [(objectMemory isMarked: cogMethod selector) not]]) ifTrue: + [freedMethod := true. + self freeMethod: cogMethod]. - [self freeMethod: cogMethod]. cogMethod := methodZone methodAfter: cogMethod]. + freedMethod ifTrue: + [self unlinkSendsToFree. + methodZone pruneYoungReferrers. + processor flushICacheFrom: codeBase to: methodZone limitZony asInteger]! - self unlinkSendsToFree! Item was added: + ----- Method: Spur32BitMemoryManager>>logBytesPerSlot (in category 'header format') ----- + logBytesPerSlot + ^2! Item was changed: + ----- Method: Spur64BitMemoryManager>>bytesPerSlot (in category 'accessing') ----- - ----- Method: Spur64BitMemoryManager>>bytesPerSlot (in category 'header format') ----- bytesPerSlot ^8! Item was added: + ----- Method: Spur64BitMemoryManager>>logBytesPerSlot (in category 'accessing') ----- + logBytesPerSlot + ^3! Item was changed: ----- Method: SpurMemoryManager>>byteSizeOfInstanceOf:withIndexableSlots: (in category 'indexing primitive support') ----- byteSizeOfInstanceOf: classObj withIndexableSlots: nElements | instSpec classFormat numSlots | + <var: 'numSlots' type: #usqInt> classFormat := self formatOfClass: classObj. instSpec := self instSpecOfClassFormat: classFormat. instSpec caseOf: { [self arrayFormat] -> [numSlots := nElements]. [self indexablePointersFormat] -> [numSlots := (self fixedFieldsOfClassFormat: classFormat) + nElements]. [self weakArrayFormat] -> [numSlots := (self fixedFieldsOfClassFormat: classFormat) + nElements]. [self sixtyFourBitIndexableFormat] -> [numSlots := self bytesPerSlot = 4 ifTrue: [nElements * 2] ifFalse: [nElements]]. [self firstLongFormat] -> [numSlots := self bytesPerSlot = 4 ifTrue: [nElements] ifFalse: [nElements + 1 // 2]]. [self firstShortFormat] -> [numSlots := self bytesPerSlot = 4 ifTrue: [nElements + 1 // 2] ifFalse: [nElements + 3 // 4]]. [self firstByteFormat] -> [numSlots := nElements + (self bytesPerSlot - 1) // self bytesPerSlot]. [self firstCompiledMethodFormat] -> "Assume nElements is derived from CompiledMethod>>basicSize." [numSlots := nElements + (self bytesPerSlot - 1) // self bytesPerSlot] } otherwise: [^PrimErrBadReceiver negated]. "non-indexable" + numSlots >= (1 << (self bytesPerSlot * 8 - self logBytesPerSlot)) ifTrue: + [^PrimErrLimitExceeded negated]. ^self objectBytesForSlots: numSlots!

1 0

VM Maker: VMMaker.oscog-eem.650.mcz
by commits＠source.squeak.org 19 Mar '14

19 Mar '14

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.650.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.650 Author: eem Time: 19 March 2014, 12:41:51.339 pm UUID: 600ed9be-7bc7-4ad0-9675-2ac9d3774b36 Ancestors: VMMaker.oscog-eem.649 Fix nilling of weak fields in old space. The old space GC must follow forwarders just as the scavenger does. =============== Diff against VMMaker.oscog-eem.649 =============== Item was changed: ----- Method: SpurMemoryManager>>nilUnmarkedWeaklingSlotsIn: (in category 'weakness and ephemerality') ----- nilUnmarkedWeaklingSlotsIn: aWeakling "Nil the unmarked slots in aWeakling and answer if any unmarked slots were found." | anyUnmarked | anyUnmarked := false. (self numStrongSlotsOf: aWeakling ephemeronInactiveIf: nil) to: (self numSlotsOf: aWeakling) - 1 do: + [:i| | referent | + referent := self fetchPointer: i ofObject: aWeakling. + ((self isNonImmediate: referent) + and: [self isForwarded: referent]) ifTrue: + [referent := self fixFollowedField: i ofObject: aWeakling withInitialValue: referent]. + ((self isImmediate: referent) or: [self isMarked: referent]) ifFalse: - [:i| | oop | - oop := self fetchPointer: i ofObject: aWeakling. - ((self isImmediate: oop) or: [self isMarked: oop]) ifFalse: [self storePointerUnchecked: i ofObject: aWeakling withValue: nilObj. anyUnmarked := true]]. ^anyUnmarked!

1 0

← Newer
1
2
3
4
5
6
7
...
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev March 2014