Vm-dev September 2015

vm-dev@lists.squeakfoundation.org

33 participants
123 discussions

ffi-test-main.c fails on FreeBSD
by Gary Dunn 12 Aug '16

12 Aug '16

In conjunction with getting Open Cobalt running on FreeBSD I have been looking into the problems with SqueakFFIPrims on FreeBSD and have reached a point that is beyond my understanding. I am not sure if the fix should come from the VM side or the FreeBSD port maintainer. I needed to get source code back into the ports tree so I did a make in /usr/ports/lang/squeak. I already had the 3.9 tarball, so that just repopulated the source and did the initial build. In the "files" folder I found patch files typical for a FreeBSD port. These patch source files from a generic tarball to work with FreeBSD. The one of interest was patch-platforms__unix__plugins__SqueakFFIPrims__ffi-config which contains ----x-----x----- --- platforms/unix/plugins/SqueakFFIPrims/ffi-config.org Wed Apr 26 20:27:53 2006 +++ platforms/unix/plugins/SqueakFFIPrims/ffi-config Wed Apr 26 20:29:00 2006 @@ -39,6 +39,7 @@ case ${abi} in linux) abi=sysv;; + freebsd*) abi=sysv;; darwin*) abi=darwin;; *) abi=libffi; lib="-lffi";; esac -----x-----x----- I then had the folder work/Squeak-3.9-7/platforms/unix/plugins/SqueakFFIPrims In it is a file 00README which explains how to test FFI. It says to run ffi-test-config but I have no such file. It says to type "make" to build a test suite but the build failed. It says to try with make CPU=any ABI=libffi LIB=-lffi which also failed. I traced the problem to the gcc search paths for includes and libraries -- turns out FreeBSD only searches /usr/include and /usr/lib when the required files are in /usr/local/include and /usr/local/lib. After some fiddling I finally had a "main" to test. It failed: ffi-test-main.c failed at line 361. Here is a bit from that file, ending with line 361: ffiInitialize(); for (ul= 0; ul < 15; ++ul) ffiPushSingleFloat(fa[ul]); GO(FFITypeSingleFloat, many); f= ffiReturnFloatValue(); ffiCleanup(); CHECK(f - ff < FLT_EPSILON); I worked out the CHECK macro but could not find what FLT_EPSILON is. At that point I decided to stop and come to you for help. Where do I go from here? -- Gary Dunn, Honolulu osp(a)aloha.com http://openslate.net/ http://e9erust.blogspot.com/ Sent from Slate001

5 8

Tasks of the heartbeat code
by Holger Freyther 27 Jul '16

27 Jul '16

Dear Eliot, I tried to understand the basic load of the VM and I have two questions for the heartbeat code. Is it right that there are two concerns for the code? 1.) Call forceInterruptCheckFromHeartbeat periodically 2.) Update the clock as seen by the image 1st is useful to interrupt Processes like […] repeat with a pre-emptive scheduler? On a different note do backwards jumps generate interrupt checks too? 2nd is this an optimization to not have to generate the clock when the primitive is being used? thanks holger

4 12

VM Recipe: How to build an interpreter VM on Linux
by David T. Lewis 07 Feb '16

07 Feb '16

How to build an interpreter VM from source on a typical Linux or Unix system: Install development tools for your Linux system (32-bit libraries are not required). Install CMake, either from your Linux distribution or from www.cmake.org Install Subversion, either from your Linux distributiion or from https://subversion.apache.org/ Make a new, empty, directory for your work. In that directory, download the full platforms sources from the Subversion repository. Download everything, whether you need it or not. The Subversion directory information will be used in the build process, so do not cut corners to save space. $ svn co http://squeakvm.org/svn/squeak/trunk/platforms Also in the new directory, download the generated sources. This is an up to date copy of source files generated from the Smalltalk source code in VMMaker. You can generate them yourself by loading VMMaker, but using the files from the Subversion repository is a faster way to get started. $ svn co http://squeakvm.org/svn/squeak/trunk/src You will now have ./platforms and ./src directories with the latest source code for the VM. Make another subdirectory called ./build that you will use to build the VM. $ mkdir build Change to the build directory. $ cd build Copy the example Makefile into your build directory. $ cp ../platforms/unix/cmake/Makefile.example Makefile Build the VM $ make Install the VM $ sudo make install You now have a VM that runs that classic Squeak image formats, including the 64-bit version (see http://build.squeak.org/job/Squeak%2064-bit%20image/). This is a traditional context interpreter VM. It will not run the latest high performance Spur image formats. Please refer to the Cog and Spur VM development at http://www.mirandabanda.org/cogblog/ and http://www.mirandabanda.org/files/Cog/VM/ for the latest Cog and Spur VM development, and for VMs that support the new Spur image formats. Dave

5 7

Re: [squeak-dev] vm crash from BalloonEngine (maybe B2DPlugin or BitBltPlugin)
by Nicolai Hess 06 Jan '16

06 Jan '16

2015-04-08 20:02 GMT+02:00 karl ramberg <karlramberg(a)gmail.com>: > Confirmed. > > Karl > > On Wed, Apr 8, 2015 at 5:33 PM, Nicolai Hess <nicolaihess(a)web.de> wrote: > >> In order to reproduce it, draw a rectangle with radial gradient fill, >> with direction >> and normal, both of length 1. >> > This is not the reason why it crashes. It happens for other values as well: |form canvas fill direction normal| direction := 4@0. normal := 0@2. form := Form extent:300@300 depth:32. canvas := form getCanvas. fill := GradientFillStyle new colorRamp:{0 -> Color white . 0.5 -> Color green . 1 -> Color blue};origin:400@400 ;direction:direction;normal:normal;radial:true;yourself. canvas fillRectangle: (0@0 extent:800@800) fillStyle: fill. Display getCanvas drawImage: form at: 300@300 This uses a different value for direction and normal and the fill is defined for a larger area (800x800) -> CRASH Maybe, this is a rare bug, because, normally you don't create a small gradient t o fill a large area. But a vm crash is not nice, I would like to get this fixed. I am not sure what is the exact cause, but it may come from a signed integer overflwo, It looks like Balloon uses fixed point arithmetik (binary scaling). This fixed point representation (16.16 bit fixed point represented in a 32 integer) tend to overflow, especially for operations like computing the squared length of a vector x*x+y*y -> overflow -> result is a negative number. Possible solutions: downscale prior to the multiplication -> lost of precision use a larger datatype for intermediate results. It looks like B2D uses the first option (look at senders of accurateLengthOfwith and squaredLenghtOfwith Maybe there is something wrong with the other code that multiplies the values, or the 16.16 bit fixed point is just not large enough for some fills? Any ideas? Nicolai > >> This one works (no vm crash): >> |form canvas fill direction normal| >> direction := 1@0. >> normal := 0@0. >> form := Form extent:300@300 depth:32. >> canvas := form getCanvas. >> fill := GradientFillStyle new colorRamp:{0 -> Color white . 0.5 -> Color >> green . 1 -> Color blue};origin:150@150 >> ;direction:direction;normal:normal;radial:true;yourself. >> canvas fillRectangle: (50@50 extent:200@200) fillStyle: fill. >> Display getCanvas drawImage: form at: 300@300. >> >> >> direction := 1@0. >> normal := 0@0. >> -> OK >> >> direction := 0@0. >> normal := 0@1. >> -> OK >> >> direction := 1@0. >> normal := 0@1. >> -> VM-Crash (Pharo and Squeak) >> >> Pharo: >> VM Version: Cog VM 4.0.0 (release) from Feb 16 2015 >> Compiler: gcc 4.6.2 >> Interpreter Build: NBCoInterpreter >> NativeBoost-CogPlugin-EstebanLorenzano.21 uuid: >> 4d9b9bdf-2dfa-4c0b-99eb-5b110dadc697 Feb 16 2015 >> Cogit Build: NBCogit NativeBoost-CogPlugin-EstebanLorenzano.21 uuid: >> 4d9b9bdf-2dfa-4c0b-99eb-5b110dadc697 Feb 16 2015 >> Source Version: https://github.com/pharo-project/pharo-vm.git Commit: >> 55fbd0b0279998a4a33852f5afb3d213986cc3ae Date: 2015-02-16 17:54:00 +0100 >> By: Esteban Lorenzano <estebanlm(a)gmail.com> Jenkins build #14895 >> >> Current byte code: -1 >> Primitive index: 117 >> Smalltalk stack dump: >> 0x24c830 M BalloonEngine>copyLoopFaster 0x6b09b80: a(n) BalloonEngine >> 0x24c848 M BalloonEngine>copyBits 0x6b09b80: a(n) BalloonEngine >> 0x24c860 M BalloonEngine>postFlushIfNeeded 0x6b09b80: a(n) BalloonEngine >> 0x24c884 I >> BalloonEngine>drawRectangle:fill:borderWidth:borderColor:transform: >> 0x6b09b80: a(n) BalloonEngine >> 0x24c8b8 I BalloonCanvas>drawRectangle:color:borderWidth:borderColor: >> 0x6b099c0: a(n) BalloonCanvas >> 0x24c8e8 I BalloonCanvas>fillRectangle:basicFillStyle: 0x6b099c0: a(n) >> BalloonCanvas >> >> >> Squeak: >> VM Version: Cog VM 4.0.0 (release) from Aug 22 2013 >> Compiler: gcc 3.4.4 (cygming special, gdc 0.12, using dmd 0.125) >> Interpreter Build: CoInterpreter VMMaker.oscog-eem.331 uuid: >> 37d2e4b0-2f37-4e2d-8313-c63637785e59 Aug 22 2013 >> Cogit Build: StackToRegisterMappingCogit VMMaker.oscog-eem.333 uuid: >> 84da9cb8-7f30-4cb7-b4fb-239a11f63b54 Aug 22 2013 >> Source Version: VM: r2776 http://www.squeakvm.org/svn/squeak/branches/Cog >> Plugins: r2545 >> http://squeakvm.org/svn/squeak/trunk/platforms/Cross/plugins >> >> Current byte code: -1 >> Primitive index: 117 >> >> >> nicolai >> >> >> >> >

4 11

Do we have the new primitive?? [WAS] Re: [Pharo-project] IdentitySet but using #hash rather than #identityHash ?
by Mariano Martinez Peck 16 Dec '15

16 Dec '15

> All I can say is that I am impressed by the numbers it is really much >> faster. >> I still don't understand why I send this email with a subject say >> IdentitySet because what I really need is a fast/large IdentityDictionary >> :( Anyway, there's a place where we can use this LargeIdentitySet in Fuel >> I think). >> >> So Levente, you say this is not possible to adapt this for dictionary? >> can >> we contact Eliot to provide such a primitive? >> > > As promised, I uploaded my LargeIdentityDictionary implementation to > http://leves.web.elte.hu/**squeak/**LargeIdentityDictionary.st<http://leves.web.elte.hu/squeak/LargeIdentityDictionary.st>. > The numbers will be a bit worse compared to LargeIdentitySet, because of > the lack of the primitive, but it's still 2-3x faster than other solutions > (IdentityDictionary, PluggableIdentityDictionary, subclassing, etc). I'm > about to propose this primitive with other improvements on the vm-dev list. > > Hi Eliot/Levente. What is the status of this? Do we have already the new primitive? If true, how can we adapt LargeIdentitySet to use such new primitive? Thanks! > > Levente > > >> thanks >> >> On Fri, Dec 16, 2011 at 3:28 PM, Levente Uzonyi <leves(a)elte.hu> wrote: >> >> On Fri, 16 Dec 2011, Henrik Sperre Johansen wrote: >>> >>> On 16.12.2011 03:26, Levente Uzonyi wrote: >>> >>>> >>>> >>>>> How about my numbers? :) >>>>> >>>>> "Preallocate objects, so we won't count gc time." >>>>> n := 1000000. >>>>> objects := Array new: n streamContents: [ :stream | >>>>> n timesRepeat: [ stream nextPut: Object new ] ]. >>>>> >>>>> set := IdentitySet new: n. >>>>> Smalltalk garbageCollect. >>>>> [1 to: n do: [ :i | set add: (objects at: i) ] ] timeToRun. "4949" >>>>> >>>>> set := LargeIdentitySet new. >>>>> Smalltalk garbageCollect. >>>>> [1 to: n do: [ :i | set add: (objects at: i) ] ] timeToRun. "331" >>>>> >>>>> set := (PluggableSet new: n) >>>>> hashBlock: [ :object | object identityHash * 4096 + object class >>>>> identityHash * 64 ]; "Change this to #basicIdentityHash in Pharo" >>>>> equalBlock: [ :a :b | a == b ]; >>>>> yourself. >>>>> Smalltalk garbageCollect. >>>>> [1 to: n do: [ :i | set add: (objects at: i) ] ] timeToRun. "5511" >>>>> >>>>> >>>>> I also have a LargeIdentityDictionary, which is relatively fast, but >>>>> not >>>>> as fast as LargeIdentitySet, because (for some unknown reason) we don't >>>>> have a primitive that could support it. If we had a primitive like >>>>> primitive 132 which would return the index of the element if found or >>>>> 0 if >>>>> not, then we could have a really fast LargeIdentityDictionary. >>>>> >>>>> >>>>> Levente >>>>> >>>>> Hehe yes, if writing a version fully exploiting the limited range, >>>> that's >>>> probably the approach I would go for as well. >>>> (IAssuming it's the version at http://leves.web.elte.hu/** >>>> squeak/LargeIdentitySet.st<htt**p://leves.web.elte.hu/squeak/** >>>> LargeIdentitySet.st<http://leves.web.elte.hu/squeak/LargeIdentitySet.st> >>>> > >>>> ) >>>> >>>> Mariano commented in the version at http://www.squeaksource.com/** >>>> FuelExperiments <http://www.squeaksource.com/**FuelExperiments<http://www.squeaksource.com/FuelExperiments>> >>>> that it's >>>> >>>> slow for them, which I guess is due to not adopting #identityHash calls >>>> to >>>> #basicIdentityHash calls for Pharo: >>>> ((0 to: 4095) collect: [:each | each << 22 \\ 4096 ]) asSet size -> 1 >>>> So it basically uses 1 bucket instead of 4096... Whoops. :) >>>> >>>> Uploaded a new version to the MC repository which is adapted for Pharo, >>>> on the same machine my numbers were taken from, it does the same test >>>> as I >>>> used above in 871 ms. (181 with preallocation). >>>> >>>> >>> Cool. One more thing: in Squeak the method using primitive 132 directly >>> was renamed to #instVarsInclude:, so now #pointsTo: works as expected. If >>> this was also added to Pharo, then the #pointsTo: sends should be changed >>> to #instVarsInclude:, otherwise Array can be reported as included even if >>> it wasn't added. >>> I'll upload my LargeIdentityDictionary implementation to the same place >>> this evening, since it's still 2-3 factor faster than other solutionts >>> and >>> there seem to be demand for it. >>> >>> >>> Levente >>> >>> >>> Cheers, >>>> Henry >>>> >>>> >>>> >>>> >>> >> >> -- >> Mariano >> http://marianopeck.wordpress.**com <http://marianopeck.wordpress.com> >> >> > -- Mariano http://marianopeck.wordpress.com

4 12

keyUp event modifier bitmap of is shifted by 3 on OSX
by Kruck, Bastian 27 Nov '15

27 Nov '15

Hello Folks, when looking for how Cog passes keystrokes to the image, we found that the modifier bitmap of the keyUp events is left shifted by 3 bits on OS X. This seems to be a bug in Mac OS specific event handling. sqMacUIEvents.c usually unshifts the mouse buttons away before passing it to the image, but it doesn’t do that for keyup events. Something that I oversee here? This could be a fix: Index: platforms/Mac OS/vm/sqMacUIEvents.c =================================================================== --- platforms/Mac OS/vm/sqMacUIEvents.c (revision 3312) +++ platforms/Mac OS/vm/sqMacUIEvents.c (working copy) @@ -1717,7 +1717,7 @@ //fprintf(stdout,"\nrawkey up %i",ioMSecs()); key = findInKeyMap(keyCode); if (key != -1) { - enterKeystroke ( EventTypeKeyboard,keyCode, EventKeyUp, 0, ModifierStateCarbon(event,0)); + enterKeystroke ( EventTypeKeyboard,keyCode, EventKeyUp, 0, ModifierStateCarbon(event,0) >> 3); } removeFromKeyMap(keyCode); result = eventNotHandledErr; Unfortunately, I couldn’t verify the fix as I am running Yosemite which seems to not be supported yet for building from source. I appended the changeset which we used to find that issue. Steps to reproduce: 1) install our changeset into a Squeak4.5 image on OS X 2) run `TempSettings printEvents: true.` 3) open a Transcript 4) Press cmd+a 5) The fifth item of that Array should be 8 on the third time (but is 8<<3 instead) #(2 15512120 0 1 8 0 0 1) #(2 15512120 97 0 8 97 0 1) #(2 15512198 0 2 64 0 0 1) Tobias commented that this bug could be duplicated to some other places (which we didn’t verify yet). I am not sure, how many projects already rely on this behavior and how to go on with that. BR, Bastian Kruck

4 5

Re: [Pharo-dev] issue with large file path on windows
by Eliot Miranda 13 Oct '15

13 Oct '15

Hi Nicolai, I'm a bit concerned that this is creating drift with the "official" Cog source base at http://www.squeakvm.org/svn/squeak/branches/Cog. Long filename support for win32 was recently added by Marcel Taumel in May of this year. Are you tracking that? How can we keep the sources harmonized? On Sun, Aug 23, 2015 at 4:44 AM, Nicolai Hess <nicolaihess(a)web.de> wrote: > For those who had problems with pharo on windows and github based > repositories, > I built a windows vm with support for long paths: > > > https://drive.google.com/file/d/0B8yEahnuIem2bmxwdzJuUXFxVGM/view?usp=shari… > > > For browsing directories with large paths (FileList or Inspect), > you may need one additional change in the image (But I am not really sure > about that) : > > DiskStore>>initialize > super initialize. > maxFileNameLength := Smalltalk vm maxFilenameLength ifNil: [ 32767 ]. > > > please test and give feedback. > > This wasn't as easy as I thought, and I had to make some more changes > for the file permissions (the stat-functions don't work for files with > long paths). > Please test other file/folder operations. > > > nicolai > > > > -- _,,,^..^,,,_ best, Eliot

5 21

Re: [Vm-dev] who is bak?
by Chris Cunnington 01 Oct '15

01 Oct '15

I think I'm right about the name and wrong about Georgia Tech and Komanche. I'm confusing Balazs Kosi with another fellow named Bolot Kerimbaev. FWIW, Chris On 2015-09-30 2:54 PM, Chris Cunnington wrote: > Perhaps Balazs Kosi [1], whom I believe he was a Georgia Tech student > who worked on Komanche once upon a time. > /<kosi.balazs at ezomer.hu > <http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/squeak-dev>>/ > > YMMV, > Chris > > > [1] > http://lists.squeakfoundation.org/pipermail/squeak-dev/2012-October/166040.… > > On 2015-09-30 2:41 PM, Eliot Miranda wrote: >> >> >> >> Hi, >> >> just want a brief chat >> about BalloonEngineSimulation>>#loadWordTransformFrom:into:length: >> >> _,,,^..^,,,_ >> best, Eliot >

4 4

VM Maker: VMMaker.oscog-eem.1485.mcz
by commits＠source.squeak.org 30 Sep '15

30 Sep '15

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1485.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.1485 Author: eem Time: 30 September 2015, 1:32:27.435 pm UUID: b5561be1-d4c9-4ae7-b09b-6e8b626d40da Ancestors: VMMaker.oscog-rmacnak.1484 Simulator: Fix bug in CogMethodSurrogate>>containsAddress: (argument shadows inst var). Fix bug in BalloonEngineSimulation>>loadWordTransformFrom:into:length: (code disabled writing of values to both heap object and simArray). Make sure that CogStackPage also checks its surrogate in initialize. Add a run leak checker entry to the utilities menu in the VM simulators. StackInterpreter: speeling errors NSSendCache: categorization =============== Diff against VMMaker.oscog-rmacnak.1484 =============== Item was changed: ----- Method: BalloonEngineSimulation>>loadWordTransformFrom:into:length: (in category 'simulation') ----- loadWordTransformFrom: transformOop into: destPtr length: n "Load a float array transformation from the given oop" + | srcPtr | - | srcPtr wordDestPtr | - false - ifTrue: [^ super - loadWordTransformFrom: transformOop - into: destPtr - length: n]. srcPtr := interpreterProxy firstIndexableField: transformOop. + "Use BalloonArray's float conversion shell. It stores both the float bits into + the heap object, and the float object into the simArray. This is needed for + correct simulation, otherwise there will be errors in BalloonArray>>floatAt:" + 0 to: n - 1 do: [:i| destPtr at: i put: (srcPtr floatAt: i)]! - wordDestPtr := destPtr as: CArrayAccessor. - "Remove float conversion shell" - 0 to: n - 1 - do: [:i | wordDestPtr at: i put: (srcPtr floatAt: i) asIEEE32BitWord] - ! Item was changed: ----- Method: CoInterpreter>>getCogVMFlags (in category 'internal interpreter access') ----- getCogVMFlags "Answer an array of flags indicating various properties of the Cog VM. These are the same as the image header flags shifted right two bits (excluding float order and full screen flags). Bit 0: specific to CoInterpreterMT Bit 1: if set, methods that are interpreted will have the flag bit set in their header Bit 2: if set, implies preempting a process does not put it to the back of its run queue Bit 3: specific to CoInterpreterMT + Bit 4: if set, implies the new finalization scheme where WeakArrays are queued" - Bit 4: if set, implies preempting a process does not put it to the back of its run queue" ^objectMemory integerObjectOf: (flagInterpretedMethods ifTrue: [2] ifFalse: [0]) + (preemptionYields ifTrue: [0] ifFalse: [4]) + (newFinalization ifTrue: [16] ifFalse: [0]) + (imageHeaderFlags >> 2 bitClear: 2 + 4 + 16)! Item was changed: ----- Method: CoInterpreter>>setCogVMFlags: (in category 'internal interpreter access') ----- setCogVMFlags: flags "Set an array of flags indicating various properties of the Cog VM. Bit 0: if set, implies the image's Process class has threadId as its 3rd inst var (zero relative) Bit 1: if set, methods that are interpreted will have the flag bit set in their header Bit 2: if set, implies preempting a process does not put it to the back of its run queue + Bit 3: if set, implies a threaded VM will not dosown the VM if owned by the GUI thread + Bit 4: if set, implies the new finalization scheme where WeakArrays are queued" - Bit 3: if set, implies a threaded VM will not dosown the VM if owned by the GUI thread." flags asUnsignedInteger > 31 ifTrue: [^self primitiveFailFor: PrimErrUnsupported]. flagInterpretedMethods := (flags bitAnd: 2) ~= 0. preemptionYields := (flags bitAnd: 4) = 0. newFinalization := (flags bitAnd: 16) ~= 0! Item was changed: ----- Method: CoInterpreterMT>>getCogVMFlags (in category 'internal interpreter access') ----- getCogVMFlags "Answer an array of flags indicating various properties of the Cog VM. These are the same as the image header flags shifted right two bits (excluding float order and full screen flags). Bit 0: implies the image's Process class has threadId as its 3rd inst var (zero relative) Bit 1: if set, methods that are interpreted will have the flag bit set in their header Bit 2: if set, implies preempting a process does not put it to the back of its run queue Bit 3: if set, implies the GUI will run on the first thread and event queues will not be accessed from other threads + Bit 4: if set, implies the new finalization scheme where WeakArrays are queued" - Bit 4: if set, implies the new finalizartion scheme where WeakArrays are queued" ^objectMemory integerObjectOf: (processHasThreadId ifTrue: [1] ifFalse: [0]) + (flagInterpretedMethods ifTrue: [2] ifFalse: [0]) + (preemptionYields ifTrue: [0] ifFalse: [4]) + (noThreadingOfGUIThread ifTrue: [8] ifFalse: [0]) + (newFinalization ifTrue: [16] ifFalse: [0]) + (imageHeaderFlags >> 2 bitClear: 1 + 2 + 4 + 8 + 16)! Item was changed: ----- Method: CoInterpreterMT>>setCogVMFlags: (in category 'internal interpreter access') ----- setCogVMFlags: flags "Set an array of flags indicating various properties of the Cog VM. Bit 0: if set, implies the image's Process class has threadId as its 3rd inst var (zero relative) Bit 1: if set, methods that are interpreted will have the flag bit set in their header Bit 2: if set, implies preempting a process does not put it to the back of its run queue + Bit 3: if set, implies a threaded VM will not dosown the VM if owned by the GUI thread + Bit 4: if set, implies the new finalization scheme where WeakArrays are queued" - Bit 3: if set, implies a threaded VM will not dosown the VM if owned by the GUI thread." flags asUnsignedInteger > 31 ifTrue: [^self primitiveFailFor: PrimErrUnsupported]. processHasThreadId := (flags bitAnd: 1) ~= 0. flagInterpretedMethods := (flags bitAnd: 2) ~= 0. preemptionYields := (flags bitAnd: 4) = 0. noThreadingOfGUIThread := (flags bitAnd: 8) ~= 0. newFinalization := (flags bitAnd: 16) ~= 0! Item was changed: ----- Method: CogMethod>>containsAddress: (in category 'testing') ----- + containsAddress: anAddress - containsAddress: address <inline: true> + ^self asUnsignedInteger <= anAddress asUnsignedInteger + and: [self asUnsignedInteger + self blockSize >= anAddress asUnsignedInteger]! - ^self asUnsignedInteger <= address asUnsignedInteger - and: [self asUnsignedInteger + self blockSize >= address asUnsignedInteger]! Item was changed: ----- Method: CogMethodSurrogate>>containsAddress: (in category 'testing') ----- + containsAddress: anAddress + ^address <= anAddress asUnsignedInteger + and: [address + self blockSize >= anAddress asUnsignedInteger]! - containsAddress: address - "Simulation only; N.B. this will error if used on block method surrogates." - ^address <= address asUnsignedInteger - and: [address + self blockSize >= address asUnsignedInteger]! Item was added: + ----- Method: CogStackPage class>>initialize (in category 'translation') ----- + initialize + "self initialize" + (Smalltalk classNamed: #CogStackPageSurrogate32) ifNotNil: + [:csps32| + self checkGenerateSurrogate: csps32 bytesPerWord: 4]. + (Smalltalk classNamed: #CogStackPageSurrogate64) ifNotNil: + [:csps64| + self checkGenerateSurrogate: csps64 bytesPerWord: 8]! Item was changed: ----- Method: CogVMSimulator>>utilitiesMenu: (in category 'UI') ----- utilitiesMenu: aMenuMorph aMenuMorph add: 'toggle transcript' action: #toggleTranscript; add: 'clone VM' action: #cloneSimulationWindow; addLine; add: 'print ext head frame' action: #printExternalHeadFrame; add: 'print int head frame' action: #printHeadFrame; add: 'print mc/cog frame' action: [self printFrame: cogit processor fp WithSP: cogit processor sp]; add: 'short print ext frame & callers' action: [self shortPrintFrameAndCallers: framePointer]; add: 'short print int frame & callers' action: [self shortPrintFrameAndCallers: localFP]; add: 'short print mc/cog frame & callers' action: [self shortPrintFrameAndCallers: cogit processor fp]; add: 'long print ext frame & callers' action: [self printFrameAndCallers: framePointer SP: stackPointer]; add: 'long print int frame & callers' action: [self printFrameAndCallers: localFP SP: localSP]; add: 'long print mc/cog frame & callers' action: [self printFrameAndCallers: cogit processor fp SP: cogit processor sp]; add: 'print frame...' action: [(self promptHex: 'print frame') ifNotNil: [:fp| self printFrame: fp]]; add: 'print call stack' action: #printCallStack; add: 'print stack call stack' action: #printStackCallStack; add: 'print stack call stack of...' action: [(self promptHex: 'frame') ifNotNil: [:fp| self printStackCallStackOf: fp]]; add: 'print call stack of...' action: [(self promptHex: 'context or process oop') ifNotNil: [:obj| self printCallStackOf: obj]]; add: 'print call stack of frame...' action: [(self promptHex: 'frame') ifNotNil: [:fp| self printCallStackFP: fp]]; add: 'print all stacks' action: #printAllStacks; add: 'write back local ptrs' action: [stackPointer := localSP. framePointer := localFP. instructionPointer := localIP. self writeBackHeadFramePointers]; add: 'write back mc ptrs' action: [stackPointer := cogit processor sp. framePointer := cogit processor fp. instructionPointer := cogit processor eip. self writeBackHeadFramePointers]; addLine; add: 'print rump C stack' action: [objectMemory printMemoryFrom: cogit processor sp to: self CStackPointer]; add: 'print registers' action: [cogit processor printRegistersOn: transcript]; add: 'print register map' action: [cogit printRegisterMapOn: transcript]; add: 'disassemble method/trampoline...' action: [(self promptHex: 'pc') ifNotNil: [:pc| cogit disassembleCodeAt: pc]]; add: 'disassemble method/trampoline at pc' action: [cogit disassembleCodeAt: ((cogit methodZone methodFor: cogit processor pc) = 0 ifTrue: [instructionPointer] ifFalse: [cogit processor pc])]; add: 'disassemble ext head frame method' action: [cogit disassembleMethod: (self frameMethod: framePointer)]; add: 'print oop...' action: [(self promptHex: 'print oop') ifNotNil: [:oop| self printOop: oop]]; add: 'long print oop...' action: [(self promptHex: 'print oop') ifNotNil: [:oop| self longPrintOop: oop]]; add: 'print context...' action: [(self promptHex: 'print context') ifNotNil: [:oop| self printContext: oop]]; addLine; add: 'inspect object memory' target: objectMemory action: #inspect; + add: 'run leak checker' action: [Cursor execute showWhile: [self runLeakChecker]]; add: 'inspect cointerpreter' action: #inspect; add: 'inspect cogit' target: cogit action: #inspect; add: 'inspect method zone' target: cogit methodZone action: #inspect. self isThreadedVM ifTrue: [aMenuMorph add: 'inspect thread manager' target: self threadManager action: #inspect]. aMenuMorph addLine; add: 'print cog methods' target: cogMethodZone action: #printCogMethods; add: 'print cog methods with prim...' action: [(self promptNum: 'prim index') ifNotNil: [:pix| cogMethodZone printCogMethodsWithPrimitive: pix]]; add: 'print cog methods with selector...' action: [|s| s := UIManager default request: 'selector'. s notEmpty ifTrue: [s = 'nil' ifTrue: [s := nil]. cogMethodZone methodsDo: [:m| (s ifNil: [m selector = objectMemory nilObject] ifNotNil: [(objectMemory numBytesOf: m selector) = s size and: [(self str: s n: (m selector + objectMemory baseHeaderSize) cmp: (objectMemory numBytesOf: m selector)) = 0]]) ifTrue: [cogit printCogMethod: m]]]]; add: 'print cog method for...' action: [(self promptHex: 'pc') ifNotNil: [:pc| cogit printCogMethodFor: pc]]; add: 'print cog method header for...' action: [(self promptHex: 'pc') ifNotNil: [:pc| cogit printCogMethodHeaderFor: pc]]; add: 'print trampoline table' target: cogit action: #printTrampolineTable; add: 'print prim trace log' action: #dumpPrimTraceLog; add: 'report recent instructions' target: cogit action: #reportLastNInstructions; add: 'set break pc (', (cogit breakPC isInteger ifTrue: [cogit breakPC hex] ifFalse: [cogit breakPC printString]), ')...' action: [(self promptHex: 'break pc') ifNotNil: [:bpc| cogit breakPC: bpc]]; add: (cogit singleStep ifTrue: ['no single step'] ifFalse: ['single step']) action: [cogit singleStep: cogit singleStep not]; add: (cogit printRegisters ifTrue: ['no print registers each instruction'] ifFalse: ['print registers each instruction']) action: [cogit printRegisters: cogit printRegisters not]; add: (cogit printInstructions ifTrue: ['no print instructions each instruction'] ifFalse: ['print instructions each instruction']) action: [cogit printInstructions: cogit printInstructions not]; addLine; add: 'click step' action: [cogit setClickStepBreakBlock]; add: 'set break count...' action: [|s| s := UIManager default request: 'break count (dec)'. s notEmpty ifTrue: [breakCount := Integer readFrom: s readStream]]; add: 'set break selector...' action: [|s| s := UIManager default request: 'break selector'. s notEmpty ifTrue: [self setBreakSelector: s]]; add: 'set break block...' action: [|s| s := UIManager default request: 'break block' initialAnswer: '[:theCogit| false]'. s notEmpty ifTrue: [self setBreakBlockFromString: s]]; add: 'set cogit break method...' action: [(self promptHex: 'cogit breakMethod') ifNotNil: [:bm| cogit setBreakMethod: bm]]; add: (printBytecodeAtEachStep ifTrue: ['no print bytecode each bytecode'] ifFalse: ['print bytecode each bytecode']) action: [self ensureDebugAtEachStepBlock. printBytecodeAtEachStep := printBytecodeAtEachStep not]; add: (printFrameAtEachStep ifTrue: ['no print frame each bytecode'] ifFalse: ['print frame each bytecode']) action: [self ensureDebugAtEachStepBlock. printFrameAtEachStep := printFrameAtEachStep not]. ^aMenuMorph! Item was changed: + ----- Method: NSSendCache class>>initialize (in category 'class initialization') ----- - ----- Method: NSSendCache class>>initialize (in category 'as yet unclassified') ----- initialize "self initialize" (Smalltalk classNamed: #NSSendCacheSurrogate32) ifNotNil: [:scs32| self checkGenerateSurrogate: scs32 bytesPerWord: 4]. (Smalltalk classNamed: #NSSendCacheSurrogate64) ifNotNil: [:scs64| self checkGenerateSurrogate: scs64 bytesPerWord: 8]! Item was changed: + ----- Method: NSSendCache class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') ----- - ----- Method: NSSendCache class>>instVarNamesAndTypesForTranslationDo: (in category 'as yet unclassified') ----- instVarNamesAndTypesForTranslationDo: aBinaryBlock self allInstVarNames do: [:ivn| aBinaryBlock value: ivn value: #'sqInt']! Item was changed: ----- Method: StackInterpreter>>getCogVMFlags (in category 'internal interpreter access') ----- getCogVMFlags "Answer an array of flags indicating various properties of the Cog VM. These are the same as the image header flags shifted right two bits (excluding float order and full screen flags). Bit 0: specific to CoInterpreterMT Bit 1: specific to CoInterpreter Bit 2: if set, implies preempting a process does not put it to the back of its run queue Bit 3: specific to CoInterpreterMT + Bit 4: if set, implies the new finalization scheme where WeakArrays are queued" - Bit 4: if set, implies the new finalizartion scheme where WeakArrays are queued" ^objectMemory integerObjectOf: (preemptionYields ifTrue: [0] ifFalse: [4]) + (newFinalization ifTrue: [16] ifFalse: [0]) + (imageHeaderFlags >> 2 bitClear: 4 + 16)! Item was added: + ----- Method: StackInterpreter>>runLeakChecker (in category 'simulation') ----- + runLeakChecker + <doNotGenerate> + | oldCheckForLeaks | + oldCheckForLeaks := objectMemory checkForLeaks. + objectMemory setCheckForLeaks: -1. + [objectMemory runLeakCheckerFor: GCModeIncremental] + ensure: + [objectMemory setCheckForLeaks: oldCheckForLeaks]! Item was changed: ----- Method: StackInterpreter>>setCogVMFlags: (in category 'internal interpreter access') ----- setCogVMFlags: flags "Set an array of flags indicating various properties of the Cog VM. Bit 2: if set, implies preempting a process does not put it to the back of its run queue + Bit 4: if set, implies the new finalization scheme where WeakArrays are queued" - Bit 4: if set, implies the new finalizartion scheme where WeakArrays are queued" flags asUnsignedInteger > 31 ifTrue: [^self primitiveFailFor: PrimErrUnsupported]. preemptionYields := (flags bitAnd: 4) = 0. newFinalization := (flags bitAnd: 16) ~= 0! Item was changed: ----- Method: StackInterpreterSimulator>>utilitiesMenu: (in category 'UI') ----- utilitiesMenu: aMenuMorph aMenuMorph add: 'toggle transcript' action: #toggleTranscript; add: 'clone VM' action: #cloneSimulationWindow; addLine; add: 'print ext head frame' action: #printExternalHeadFrame; add: 'print int head frame' action: #printHeadFrame; add: 'short print ext frame & callers' action: [self shortPrintFrameAndCallers: framePointer]; add: 'short print int frame & callers' action: [self shortPrintFrameAndCallers: localFP]; add: 'long print ext frame & callers' action: [self printFrameAndCallers: framePointer SP: stackPointer]; add: 'long print int frame & callers' action: [self printFrameAndCallers: localFP SP: localSP]; add: 'print frame...' action: [(self promptHex: 'print frame') ifNotNil: [:fp| self printFrame: fp]]; add: 'print call stack' action: #printCallStack; add: 'print stack call stack' action: #printStackCallStack; add: 'print stack call stack of...' action: [(self promptHex: 'frame') ifNotNil: [:fp| self printStackCallStackOf: fp]]; add: 'print call stack of...' action: [(self promptHex: 'context or process oop') ifNotNil: [:obj| self printCallStackOf: obj]]; add: 'print call stack of frame...' action: [(self promptHex: 'frame') ifNotNil: [:fp| self printCallStackFP: fp]]; add: 'print all stacks' action: #printAllStacks; add: 'write back local ptrs' action: [stackPointer := localSP. framePointer := localFP. instructionPointer := localIP. self writeBackHeadFramePointers]; add: 'print prim trace log' action: #dumpPrimTraceLog; addLine; add: 'print oop...' action: [(self promptHex: 'print oop') ifNotNil: [:oop| self printOop: oop]]; add: 'long print oop...' action: [(self promptHex: 'print oop') ifNotNil: [:oop| self longPrintOop: oop]]; addLine; add: 'inspect object memory' target: objectMemory action: #inspect; + add: 'run leak checker' action: [Cursor execute showWhile: [self runLeakChecker]]; add: 'inspect interpreter' action: #inspect; addLine; add: 'set break count...' action: [|s| s := UIManager default request: 'break count (dec)'. s notEmpty ifTrue: [breakCount := Integer readFrom: s readStream]]; add: 'set break selector...' action: [|s| s := UIManager default request: 'break selector'. s notEmpty ifTrue: [self setBreakSelector: s]]; add: 'turn valid exec ptrs assert o', (assertVEPAES ifTrue: ['ff'] ifFalse: ['n']) action: [assertVEPAES := assertVEPAES not]; add: (printSends ifTrue: ['no print sends'] ifFalse: ['print sends']) action: [self ensureDebugAtEachStepBlock. printSends := printSends not]; "currently printReturns does nothing" "add: (printReturns ifTrue: ['no print returns'] ifFalse: ['print returns']) action: [self ensureDebugAtEachStepBlock. printReturns := printReturns not];" add: (printBytecodeAtEachStep ifTrue: ['no print bytecode each bytecode'] ifFalse: ['print bytecode each bytecode']) action: [self ensureDebugAtEachStepBlock. printBytecodeAtEachStep := printBytecodeAtEachStep not]; add: (printFrameAtEachStep ifTrue: ['no print frame each bytecode'] ifFalse: ['print frame each bytecode']) action: [self ensureDebugAtEachStepBlock. printFrameAtEachStep := printFrameAtEachStep not]. ^aMenuMorph!

1 0

who is bak?
by Eliot Miranda 30 Sep '15

30 Sep '15

Hi, just want a brief chat about BalloonEngineSimulation>>#loadWordTransformFrom:into:length: _,,,^..^,,,_ best, Eliot

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev September 2015