Vm-dev April 2012

vm-dev@lists.squeakfoundation.org

30 participants
84 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

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

[CogVM-blessed] -headless stopped working
by Stefan Marr 02 May '12

02 May '12

Hi Esteban: I just downloaded a Cog-Mac-Cocoa-blessed from: https://ci.lille.inria.fr/pharo/job/Cog-Mac-Cocoa-blessed/ It tells me, it is currently 19days old. And it ignores the -headless parameter. The old VM I used so far is from Jul 6th and does execute headless without problems. I did not find the mail on the list that was naming the primitives to get more version infos out of the VMs, sorry. The latest StackVM also got that problem, but it works with the version from July. Is there actually something like -version on the command line to ask for the exact version infos? I checked -help, which also offers a lot less info then it used to. It still mentions -headless, but misses the options below. Best regards Stefan Missing help for commandline options: -breaksel selector set breakpoint on send of selector -eden <size>[mk] set eden memory to bytes -leakcheck num check for leaks in the heap -stackpages num use n stack pages -codesize <size>[mk] set machine code memory to bytes -sendtrace[=num] enable send tracing (optionally to a specific value) -tracestores enable store tracing (assert check stores) -cogmaxlits <n> set max number of literals for methods compiled to machine code -cogminjumps <n> set min number of backward jumps for interpreted methods to be considered for compilation to machine code -pathenc <enc> set encoding for pathnames (default: macintosh) -- Stefan Marr Software Languages Lab Vrije Universiteit Brussel Pleinlaan 2 / B-1050 Brussels / Belgium http://soft.vub.ac.be/~smarr Phone: +32 2 629 2974 Fax: +32 2 629 3525

4 5

JPEGReadWriter2Plugin crash fixed
by Páhi András 02 May '12

02 May '12

Hi, I have found the origin of various crashes in the Squeak VM, which is related to the JPEGReadWriter2Plugin. The hunt begun with Juan's Cuis 4.0 release, see the emails exchanged below and the description. I have attached the fixed C source, but the fix should go in the VM sources, because the code is generated as I see. Please include the fix in the VM sources. Regards, Andras Pahi ----- Original Message ----- From: Juan Vuletich (mail lists) To: Páhi András Sent: Thursday, April 26, 2012 9:26 PM Subject: Re: Cuis 4.0 crash on startup Wow Páhi! This is great! Please send all this to the vm-dev mail list, and ask for it to be included (or directions to do it yourself). It is my bug in the end... I wrote JPEGReadWriter2Plugin about 10 years ago... Cheers, Juan Vuletich Quoting Páhi András <pahia(a)t-online.hu>: Hi, Replace the winbuild/src/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c file with the attached file, recompile the Squeak VM and Cuis 4.0 rocks. In the plugin there was a 1 off access in the formBits array. Because the code is generated, it needs to be corrected in the VM sources. How can I got there ? Executing several times World buildMagnifiedBackgroundImage in Cuis 3.3 crashed the Squeak VM. I exported the background image data, converted from JPEG to other format (BMP/PNG) and set the new format image to World backgroundImageData:. Everything worked as expected. I replaced the formBits array accesses in JPEGReadWriter2Plugin2.c with my routines, checking the indices and reporting off-array access attempts. Then I fixed the places in the C source. Regards, Andras Pahi ----- Original Message ----- From: Juan Vuletich (mail lists) To: Páhi András Sent: Thursday, April 26, 2012 12:47 PM Subject: Re: Cuis 4.0 crash on startup Great. Thanks. You might ask for help or directions in the vm-dev mail list. I'm sure that several people are at least aware of the bug. Cheers, Juan Vuletich Quoting Páhi András <pahia(a)t-online.hu>: Hi, Thank you for your reply. I will dig into the issues with the Windows VM. Regards, Andras Pahi ----- Original Message ----- From: Juan Vuletich (mail lists) To: Páhi András Sent: Thursday, April 26, 2012 11:59 AM Subject: Re: Cuis 4.0 crash on startup Hi Páhi, There is some problem with that Windows VM, not limited to Cuis. If you google "Squeak VM 4.1.1 windows crash" you'll find many results, for example http://bugs.squeak.org/view.php?id=7585 http://bugs.squeak.org/bug_view_advanced_page.php?bug_id=7686 and http://bugs.squeak.org/view.php?id=7523 . I'm not involved in the development of the Windows VM, all I can do is recommend using Cog until this is fixed somehow. Regards, Juan Vuletich Quoting Páhi András <pahia(a)t-online.hu>: Hi, I have just gave a shoot on Cuis 4.0 using SqueakVM 4.1.1 on Windows. It even does not start, the crash dump is attached, but with the latest Cog VM it runs fine. I checked the older Cuis 3.3 image with the same SqueakVM, it runs fine. Regards, Andras Pahi Cheers, Juan Vuletich

4 5

VM Maker: CMakeVMMaker-GuillermoPolito.158.mcz
by commits＠source.squeak.org 30 Apr '12

30 Apr '12

Guillermo Polito uploaded a new version of CMakeVMMaker to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMaker-GuillermoPolito.158.mcz ==================== Summary ==================== Name: CMakeVMMaker-GuillermoPolito.158 Author: GuillermoPolito Time: 29 April 2012, 8:54:44 pm UUID: 3ac14b31-29a5-4613-93b8-db5c522dd8b4 Ancestors: CMakeVMMaker-IgorStasenko.157 added internetConfigurationPlugin as external for the Unix config =============== Diff against CMakeVMMaker-IgorStasenko.157 =============== Item was added: + ----- Method: CogFamilyUnixConfig>>configureInternetConfigPlugin: (in category 'plugin extra rules') ----- + configureInternetConfigPlugin: maker + super configureInternetConfigPlugin: maker. + maker addPlatformSources: #( 'sqUnixInternetConfiguration' )! Item was changed: ----- Method: CogFamilyUnixConfig>>configureSqueakSSLPlugin: (in category 'plugin extra rules') ----- configureSqueakSSLPlugin: maker "extra rules for SqueakSSLPlugin" maker addPlatformSources: #( 'sqUnixOpenSSL.c'). maker addExternalLibraries: #('ssl' ). ! Item was changed: ----- Method: CogUnixConfig>>defaultExternalPlugins (in category 'plugins') ----- defaultExternalPlugins ^ #( B3DAcceleratorPlugin ThreadedIA32FFIPlugin "SqueakFFIPrims" "UUIDPlugin" "UnixOSProcessPlugin ?? " + InternetConfigPlugin )! Item was changed: ----- Method: CogWindowsConfig>>compilerFlagsDebug (in category 'plugins') ----- compilerFlagsDebug "Define NDEBUG for production to exclude asserts " ^ '-g3 -O0 -march=pentium4 -momit-leaf-frame-pointer -maccumulate-outgoing-args -funroll-loops -DDEBUGVM=1'! Item was changed: + ----- Method: CogWindowsConfig>>compilerFlagsRelease (in category 'compiler flags') ----- - ----- Method: CogWindowsConfig>>compilerFlagsRelease (in category 'as yet unclassified') ----- compilerFlagsRelease "Define NDEBUG for production to exclude asserts " ^ '-g0 -O2 -march=pentium4 -momit-leaf-frame-pointer -maccumulate-outgoing-args -funroll-loops ', '-DNDEBUG -DDEBUGVM=0'! Item was changed: ----- Method: StackIPhoneConfig class>>deviceUniversal (in category 'accessing') ----- deviceUniversal ^#(1 2)! Item was changed: ----- Method: StackIPhoneConfig>>targetedDeviceFamilyAsString (in category 'private') ----- targetedDeviceFamilyAsString ^String streamContents: [ :stream | self targetedDeviceFamily do: [ :each | stream nextPutAll: each asString ] separatedBy: [ stream nextPut: $, ]. stream nextPut: Character space ]! Item was changed: ----- Method: StackIPhoneConfig>>targetedDeviceFamilyAsTemplateString (in category 'private') ----- targetedDeviceFamilyAsTemplateString ^String streamContents: [ :stream | self targetedDeviceFamily do: [ :each | stream nextPutAll: '<integer>'; nextPutAll: each asString; nextPutAll: '</integer>' ] ]!

1 0

Re: Access to Guillermo
by David T. Lewis 30 Apr '12

30 Apr '12

On Sun, Apr 29, 2012 at 08:59:32PM +0200, Mariano Martinez Peck wrote: > Hi David, can we ask you access to Guillermo Polito for the VMMaker repo? > > thanks! > (cc to vm-dev) Certainly. Guillermo, please create an account on source.squeak.org, and I will add you to the VMMaker project. Dave

2 2

VM Maker: VMMaker-dtl.270.mcz
by David T. Lewis 29 Apr '12

29 Apr '12

Commit notice too large for the list, forwarding trimmed version: ----- Forwarded message from vm-dev-owner(a)lists.squeakfoundation.org ----- Delivered-To: list-vm-dev(a)lists.squeakfoundation.org Date: Sat, 28 Apr 2012 20:23:42.546 0000 From: commits(a)source.squeak.org To: vm-dev(a)lists.squeakfoundation.org Reply-To: vm-dev(a)lists.squeakfoundation.org Subject: VM Maker: VMMaker-dtl.270.mcz David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.270.mcz ==================== Summary ==================== Name: VMMaker-dtl.270 Author: dtl Time: 28 April 2012, 4:23:12.307 pm UUID: f17e6e57-c227-47a4-876c-287e33175b48 Ancestors: VMMaker-dtl.268 VMMaker 4.9 Add StackInterpreter and related classes, with additional changes to support ObjectMemory / Interpreter refactoring. The organization of the traditional Interpreter and ObjectMemory are now better aligned with the oscog branch of VMMaker, while the generated code for a standard VM remains equivalent to prior versions. NewObjectMemory and StackInterpreter are not yet ready for use, and as always Cog and StackInterpreter VMs should be build from the oscog branch. Upgrade note - If problems are experienced in generating a standard VM after loading this version of VMMaker, try recompiling the VMClass hierarchy, and reinitializing ObjectMemory and Interpreter. Pool variables are now used extensively, and in some cases a recompile may be needed to support the updates. Changes that affect generated code: - Allow inlining of ObjectMemory>>accessibleObjectAfter: - All other changes are cosmetic, related to variable ordering, temp variable names, extraneous white space, etc. - Generated code for the standard interpreter is equivalent to previous version, except that #accessibleObjectAfter: is now inlined. Interpreter / ObjectMemory refactorings: - Add StackInterpreter, StackInterpreterPrimitives, InterpreterStackPages, VMStructType and ReadOnlyArrayWrapper from oscog. - Add CogClass and Cogit stub classes to support the refactoring. - Add ObjectMemory subclass ClassicObjectMemory. Move methods that were overridden in NewObjectMemory from ObjectMemory to ClassicObjectMemory, and retain abstract implementations in ObjectMemory. Methods with 'self subclassResponsibility' are abstract and are not translated to C. - The traditional object memory used with Interpreter is now ClassicObjectMemory, and the new object memory for StackInterpreter is NewObjectMemory, both of which are subclassed from ObjectMemory. =============== Diff against VMMaker-dtl.268 =============== <snip>

4 4

Cog Crash in allocateOpcodesbytecodes
by Mariano Martinez Peck 29 Apr '12

29 Apr '12

Hi Eliot. We are doing a crazy experiment where we serialize almost all PharoCore and we materialize it in a PharoKernel image. During the initialization (after the load), there is one line that crashes Cog: PolymorphSystemSettings showDesktopLogo: true. For what I can see, I may be related to the fact that #pharoLogoContents is too long or something like that? the same experiment with StackVM works fine. Of course in a normal image (without this experiment) I can do PolymorphSystemSettings showDesktopLogo: true. without problems. >From gdb i see: (gdb) bt #0 0x0000a190 in compileCogMethod (selector=528828260) at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../src/vm/cogit.c:3601 #1 0x00009088 in cogselector (aMethodObj=531503072, aSelectorOop=528828260) at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../src/vm/cogit.c:3129 #2 0x0003268b in ceSendsupertonumArgs (selector=528828260, superNormalBar=0, rcvr=536158520, numArgs=0) at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../src/vm/gcc3x-cointerpmt.c:11007 #3 0x1f40006c in ?? () #4 0x00067350 in threadSchedulingLoop (vmThread=0x1030c00) at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../src/vm/gcc3x-cointerpmt.c:44006 #5 0x0003d2cb in initialEnterSmalltalkExecutive () at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../src/vm/gcc3x-cointerpmt.c:17788 #6 0x0003df8f in initStackPagesAndInterpret () at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../src/vm/gcc3x-cointerpmt.c:18208 #7 0x00022618 in interpret () at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../src/vm/gcc3x-cointerpmt.c:2066 #8 0x0006dc60 in -[sqSqueakMainApplication runSqueak] (self=0x1d0ca60, _cmd=0x124ebf) at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../platforms/iOS/vm/Common/Classes/sqSqueakMainApplication.m:174 #9 0x93ad586c in __NSFirePerformWithOrder () #10 0x908b8dd2 in __CFRunLoopDoObservers () #11 0x90874ced in __CFRunLoopRun () #12 0x908743c4 in CFRunLoopRunSpecific () #13 0x908741f1 in CFRunLoopRunInMode () #14 0x97760e04 in RunCurrentEventLoopInMode () #15 0x97760af5 in ReceiveNextEventCommon () #16 0x97760a3e in BlockUntilNextEventMatchingListInMode () #17 0x96d1a595 in _DPSNextEvent () #18 0x96d19dd6 in -[NSApplication nextEventMatchingMask:untilDate:inMode:dequeue:] () #19 0x96cdc1f3 in -[NSApplication run] () #20 0x96cd4289 in NSApplicationMain () #21 0x0006b9f9 in main (argc=1, argv=0xbffff688, envp=0xbffff690) at /Users/mariano/Pharo/VM/git/cogVMBlessedSSH/blessed/build/../platforms/iOS/vm/Common/main.m:52 And the line that fails is: allocateOpcodesbytecodes((numBytecodes + extra) * 10, numBytecodes); numBytecodes is 49729 and extra is 10. Any idea? thanks! -- Mariano http://marianopeck.wordpress.com

3 13

VM Maker: Balloon-Engine-Pools-JB.2.mcz
by commits＠source.squeak.org 28 Apr '12

28 Apr '12

Eliot Miranda uploaded a new version of Balloon-Engine-Pools to project VM Maker: http://source.squeak.org/VMMaker/Balloon-Engine-Pools-JB.2.mcz ==================== Summary ==================== Name: Balloon-Engine-Pools-JB.2 Author: JB Time: 9 November 2010, 2:17:15.185 pm UUID: 89715cc9-530e-45e6-abe7-9e3c509f8169 Ancestors: Balloon-Engine-Pools-eem.1 empty log message =============== Diff against Balloon-Engine-Pools-eem.1 =============== Item was changed: ----- Method: BalloonEngineConstants class>>initializeInstVarNames:prefixedBy: (in category 'pool definition') ----- initializeInstVarNames: aClass prefixedBy: aString + | token | + aClass instVarNames doWithIndex:[:instVarName :index| | value | - | token value | - aClass instVarNames doWithIndex:[:instVarName :index| token := (aString, instVarName first asUppercase asString, (instVarName copyFrom: 2 to: instVarName size),'Index') asSymbol. value := index - 1. (self bindingOf: token) ifNil:[self addClassVarName: token]. (self bindingOf: token) value: value. ]. token := (aString, aClass name,'Size') asSymbol. (self bindingOf: token) ifNil:[self addClassVarName: token]. (self bindingOf: token) value: aClass instSize.!

1 0

VM Maker: Balloon-Engine-Pools-eem.1.mcz
by commits＠source.squeak.org 28 Apr '12

28 Apr '12

Eliot Miranda uploaded a new version of Balloon-Engine-Pools to project VM Maker: http://source.squeak.org/VMMaker/Balloon-Engine-Pools-eem.1.mcz ==================== Summary ==================== Name: Balloon-Engine-Pools-eem.1 Author: eem Time: 21 May 2010, 4:13:58 pm UUID: dd353168-eabd-435d-adac-305085e36698 Ancestors: Separately loadable Balloon-Engine shared pool used by both image-leverl code and the Balloon plugin. ==================== Snapshot ==================== SystemOrganization addCategory: #'Balloon-Engine-Pools'! SharedPool subclass: #BalloonEngineConstants instanceVariableNames: '' classVariableNames: 'BEAaLevelIndex BEBalloonEngineSize BEBitBltIndex BEClipRectIndex BEColorTransformIndex BEDeferredIndex BEDestOffsetIndex BEEdgeTransformIndex BEExternalsIndex BEFormsIndex BEPostFlushNeededIndex BESpanIndex BEWorkBufferIndex ETBalloonEdgeDataSize ETIndexIndex ETLinesIndex ETSourceIndex ETXValueIndex ETYValueIndex ETZValueIndex FTBalloonFillDataSize FTDestFormIndex FTIndexIndex FTMaxXIndex FTMinXIndex FTSourceIndex FTYValueIndex GBBaseSize GBBitmapDepth GBBitmapHeight GBBitmapRaster GBBitmapSize GBBitmapWidth GBColormapOffset GBColormapSize GBEndX GBEndY GBFinalX GBMBaseSize GBTileFlag GBUpdateData GBUpdateDDX GBUpdateDDY GBUpdateDX GBUpdateDY GBUpdateX GBUpdateY GBViaX GBViaY GBWideEntry GBWideExit GBWideExtent GBWideFill GBWideSize GBWideUpdateData GBWideWidth GEBaseEdgeSize GEBaseFillSize GEEdgeClipFlag GEEdgeFillsInvalid GEFAlreadyFailed GEFBadPoint GEFBitBltLoadFailed GEFClassMismatch GEFEdgeDataTooSmall GEFEngineIsInteger GEFEngineIsWords GEFEngineStopped GEFEngineTooSmall GEFEntityCheckFailed GEFEntityLoadFailed GEFFillDataTooSmall GEFFormLoadFailed GEFillIndexLeft GEFillIndexRight GEFSizeMismatch GEFWorkBufferBadMagic GEFWorkBufferIsInteger GEFWorkBufferIsPointers GEFWorkBufferStartWrong GEFWorkBufferTooSmall GEFWorkBufferWrongSize GEFWorkTooBig GEFWrongEdge GEFWrongFill GEFWrongState GENumLines GEObjectIndex GEObjectLength GEObjectType GEObjectUnused GEPrimitiveBezier GEPrimitiveClippedBitmapFill GEPrimitiveEdge GEPrimitiveEdgeMask GEPrimitiveFill GEPrimitiveFillMask GEPrimitiveLine GEPrimitiveLinearGradientFill GEPrimitiveRadialGradientFill GEPrimitiveRepeatedBitmapFill GEPrimitiveTypeMask GEPrimitiveUnknown GEPrimitiveWide GEPrimitiveWideBezier GEPrimitiveWideEdge GEPrimitiveWideLine GEPrimitiveWideMask GErrorAETEntry GErrorBadState GErrorFillEntry GErrorGETEntry GErrorNeedFlush GErrorNoMoreSpace GEStateAddingFromGET GEStateBlitBuffer GEStateCompleted GEStateScanningAET GEStateUnlocked GEStateUpdateEdges GEStateWaitingChange GEStateWaitingForEdge GEStateWaitingForFill GEXValue GEYValue GEZValue GFDirectionX GFDirectionY GFNormalX GFNormalY GFOriginX GFOriginY GFRampLength GFRampOffset GGBaseSize GLBaseSize GLEndX GLEndY GLError GLErrorAdjDown GLErrorAdjUp GLWideEntry GLWideExit GLWideExtent GLWideFill GLWideSize GLWideWidth GLXDirection GLXIncrement GLYDirection GWAAColorMask GWAAColorShift GWAAHalfPixel GWAALevel GWAAScanMask GWAAShift GWAETStart GWAETUsed GWBezierHeightSubdivisions GWBezierLineConversions GWBezierMonotonSubdivisions GWBezierOverflowSubdivisions GWBufferTop GWClearSpanBuffer GWClipMaxX GWClipMaxY GWClipMinX GWClipMinY GWColorTransform GWCountAddAETEntry GWCountChangeAETEntry GWCountDisplaySpan GWCountFinishTest GWCountInitializing GWCountMergeFill GWCountNextAETEntry GWCountNextFillEntry GWCountNextGETEntry GWCurrentY GWCurrentZ GWDestOffsetX GWDestOffsetY GWEdgeTransform GWFillMaxX GWFillMaxY GWFillMinX GWFillMinY GWFillOffsetX GWFillOffsetY GWGETStart GWGETUsed GWHasClipShapes GWHasColorTransform GWHasEdgeTransform GWHeaderSize GWLastExportedEdge GWLastExportedFill GWLastExportedLeftX GWLastExportedRightX GWMagicIndex GWMagicNumber GWMinimalSize GWNeedsFlush GWObjStart GWObjUsed GWPoint1 GWPoint2 GWPoint3 GWPoint4 GWPointListFirst GWSize GWSpanEnd GWSpanEndAA GWSpanSize GWSpanStart GWState GWStopReason GWTimeAddAETEntry GWTimeChangeAETEntry GWTimeDisplaySpan GWTimeFinishTest GWTimeInitializing GWTimeMergeFill GWTimeNextAETEntry GWTimeNextFillEntry GWTimeNextGETEntry' poolDictionaries: '' category: 'Balloon-Engine-Pools'! ----- Method: BalloonEngineConstants class>>initEdgeConstants (in category 'pool definition') ----- initEdgeConstants "Initialize the edge constants" "Edge primitive types" GEPrimitiveEdge := 2. "External edge - not handled by the GE" GEPrimitiveWideEdge := 3. "Wide external edge" GEPrimitiveLine := 4. "Straight line" GEPrimitiveWideLine := 5. "Wide line" GEPrimitiveBezier := 6. "Quadratic bezier curve" GEPrimitiveWideBezier := 7. "Wide bezier curve" "Special flags" GEPrimitiveWide := 16r01. "Flag determining a wide primitive" GEPrimitiveWideMask := 16rFE. "Mask for clearing the wide flag" GEEdgeFillsInvalid := 16r10000. "Flag determining if left/right fills of an edge are invalid" GEEdgeClipFlag := 16r20000. "Flag determining if this is a clip edge" "General edge state constants" GEXValue := 4. "Current raster x" GEYValue := 5. "Current raster y" GEZValue := 6. "Current raster z" GENumLines := 7. "Number of scan lines remaining" GEFillIndexLeft := 8. "Left fill index" GEFillIndexRight := 9. "Right fill index" GEBaseEdgeSize := 10. "Basic size of each edge" "General fill state constants" GEBaseFillSize := 4. "Basic size of each fill" "General Line state constants" GLXDirection := 10. "Direction of edge (1: left-to-right; -1: right-to-left)" GLYDirection := 11. "Direction of edge (1: top-to-bottom; -1: bottom-to-top)" GLXIncrement := 12. "Increment at each scan line" GLError := 13. "Current error" GLErrorAdjUp := 14. "Error to add at each scan line" GLErrorAdjDown := 15. "Error to subtract on roll-over" "Note: The following entries are only needed before the incremental state is computed. They are therefore aliased to the error values above" GLEndX := 14. "End X of line" GLEndY := 15. "End Y of line" GLBaseSize := 16. "Basic size of each line" "Additional stuff for wide lines" GLWideFill := 16. "Current fill of line" GLWideWidth := 17. "Current width of line" GLWideEntry := 18. "Initial steps" GLWideExit := 19. "Final steps" GLWideExtent := 20. "Target width" GLWideSize := 21. "Size of wide lines" "General Bezier state constants" GBUpdateData := 10. "Incremental update data for beziers" GBUpdateX := 0. "Last computed X value (24.8)" GBUpdateY := 1. "Last computed Y value (24.8)" GBUpdateDX := 2. "Delta X forward difference step (8.24)" GBUpdateDY := 3. "Delta Y forward difference step (8.24)" GBUpdateDDX := 4. "Delta DX forward difference step (8.24)" GBUpdateDDY := 5. "Delta DY forward difference step (8.24)" "Note: The following four entries are only needed before the incremental state is computed. They are therefore aliased to the incremental values above" GBViaX := 12. "via x" GBViaY := 13. "via y" GBEndX := 14. "end x" GBEndY := 15. "end y" GBBaseSize := 16. "Basic size of each bezier. Note: MUST be greater or equal to the size of lines" "Additional stuff for wide beziers" GBWideFill := 16. "Current fill of line" GBWideWidth := 17. "Current width of line" GBWideEntry := 18. "Initial steps" GBWideExit := 19. "Final steps" GBWideExtent := 20. "Target extent" GBFinalX := 21. "Final X value" GBWideUpdateData := 22. "Update data for second curve" GBWideSize := 28. "Size of wide beziers" ! ----- Method: BalloonEngineConstants class>>initFillConstants (in category 'pool definition') ----- initFillConstants "Initialize the fill constants" "Fill primitive types" GEPrimitiveFill := 16r100. GEPrimitiveLinearGradientFill := 16r200. GEPrimitiveRadialGradientFill := 16r300. GEPrimitiveClippedBitmapFill := 16r400. GEPrimitiveRepeatedBitmapFill := 16r500. "General fill state constants" GEBaseFillSize := 4. "Basic size of each fill" "Oriented fill constants" GFOriginX := 4. "X origin of fill" GFOriginY := 5. "Y origin of fill" GFDirectionX := 6. "X direction of fill" GFDirectionY := 7. "Y direction of fill" GFNormalX := 8. "X normal of fill" GFNormalY := 9. "Y normal of fill" "Gradient fill constants" GFRampLength := 10. "Length of following color ramp" GFRampOffset := 12. "Offset of first ramp entry" GGBaseSize := 12. "Bitmap fill constants" GBBitmapWidth := 10. "Width of bitmap" GBBitmapHeight := 11. "Height of bitmap" GBBitmapDepth := 12. "Depth of bitmap" GBBitmapSize := 13. "Size of bitmap words" GBBitmapRaster := 14. "Size of raster line" GBColormapSize := 15. "Size of colormap, if any" GBTileFlag := 16. "True if the bitmap is tiled" GBColormapOffset := 18. "Offset of colormap, if any" GBMBaseSize := 18. "Basic size of bitmap fill" ! ----- Method: BalloonEngineConstants class>>initPrimitiveConstants (in category 'pool definition') ----- initPrimitiveConstants "Initialize the primitive constants" "Primitive type constants" GEPrimitiveUnknown := 0. GEPrimitiveEdgeMask := 16rFF. GEPrimitiveFillMask := 16rFF00. GEPrimitiveTypeMask := 16rFFFF. "General state constants (Note: could be compressed later)" GEObjectType := 0. "Type of object" GEObjectLength := 1. "Length of object" GEObjectIndex := 2. "Index into external objects" GEObjectUnused := 3. "Currently unused" "Primitive failure codes" GEFAlreadyFailed := 100. GEFEngineIsInteger := 101. GEFEngineIsWords := 102. GEFEngineTooSmall := 103. GEFEngineStopped := 104. GEFWorkBufferIsInteger := 105. GEFWorkBufferIsPointers := 106. GEFWorkBufferTooSmall := 107. GEFWorkBufferBadMagic := 108. GEFWorkBufferWrongSize := 109. GEFWorkBufferStartWrong := 110. GEFWorkTooBig := 111. GEFEdgeDataTooSmall := 112. GEFFillDataTooSmall := 113. GEFClassMismatch := 114. GEFSizeMismatch := 115. GEFWrongState := 116. GEFWrongFill := 117. GEFWrongEdge := 118. GEFEntityLoadFailed := 119. GEFEntityCheckFailed := 120. GEFBadPoint := 121. GEFBitBltLoadFailed := 122. GEFFormLoadFailed := 123! ----- Method: BalloonEngineConstants class>>initStateConstants (in category 'pool definition') ----- initStateConstants "Initialize the state Constants" GEStateUnlocked := 0. "Buffer is unlocked and can be modified as wanted" GEStateAddingFromGET := 1. "Adding edges from the GET" GEStateWaitingForEdge := 2. "Waiting for edges added to GET" GEStateScanningAET := 3. "Scanning the active edge table" GEStateWaitingForFill := 4. "Waiting for a fill to mix in during AET scan" GEStateBlitBuffer := 5. "Blt the current scan line" GEStateUpdateEdges := 6. "Update edges to next scan line" GEStateWaitingChange := 7. "Waiting for a changed edge" GEStateCompleted := 8. "Rendering completed" "Error constants" GErrorNoMoreSpace := 1. "No more space in collection" GErrorBadState := 2. "Tried to call a primitive while engine in bad state" GErrorNeedFlush := 3. "Tried to call a primitive that requires flushing before" "Incremental error constants" GErrorGETEntry := 4. "Unknown entry in GET" GErrorFillEntry := 5. "Unknown FILL encountered" GErrorAETEntry := 6. "Unknown entry in AET" ! ----- Method: BalloonEngineConstants class>>initWorkBufferConstants (in category 'pool definition') ----- initWorkBufferConstants "Initialize the work buffer constants" "General work buffer constants" GWMagicNumber := 16r416E6469. "Magic number" GWHeaderSize := 128. "Size of header" GWMinimalSize := 256. "Minimal size of work buffer" "Header entries" GWMagicIndex := 0. "Index of magic number" GWSize := 1. "Size of full buffer" GWState := 2. "Current state (e.g., locked or not." "Buffer entries" GWObjStart := 8. "objStart" GWObjUsed := 9. "objUsed" GWBufferTop := 10. "wbTop" GWGETStart := 11. "getStart" GWGETUsed := 12. "getUsed" GWAETStart := 13. "aetStart" GWAETUsed := 14. "aetUsed" "Transform entries" GWHasEdgeTransform := 16. "True if we have an edge transformation" GWHasColorTransform := 17. "True if we have a color transformation" GWEdgeTransform := 18. "2x3 edge transformation" GWColorTransform := 24. "8 word RGBA color transformation" "Span entries" GWSpanStart := 32. "spStart" GWSpanSize := 33. "spSize" GWSpanEnd := 34. "spEnd" GWSpanEndAA := 35. "spEndAA" "Bounds entries" GWFillMinX := 36. "fillMinX" GWFillMaxX := 37. "fillMaxX" GWFillMinY := 38. "fillMinY" GWFillMaxY := 39. "fillMaxY" GWFillOffsetX := 40. "fillOffsetX" GWFillOffsetY := 41. "fillOffsetY" GWClipMinX := 42. GWClipMaxX := 43. GWClipMinY := 44. GWClipMaxY := 45. GWDestOffsetX := 46. GWDestOffsetY := 47. "AA entries" GWAALevel := 48. "aaLevel" GWAAShift := 49. "aaShift" GWAAColorShift := 50. "aaColorShift" GWAAColorMask := 51. "aaColorMask" GWAAScanMask := 52. "aaScanMask" GWAAHalfPixel := 53. "aaHalfPixel" "Misc entries" GWNeedsFlush := 63. "True if the engine may need a flush" GWStopReason := 64. "stopReason" GWLastExportedEdge := 65. "last exported edge" GWLastExportedFill := 66. "last exported fill" GWLastExportedLeftX := 67. "last exported leftX" GWLastExportedRightX := 68. "last exported rightX" GWClearSpanBuffer := 69. "Do we have to clear the span buffer?" GWPointListFirst := 70. "First point list in buffer" GWPoint1 := 80. GWPoint2 := 82. GWPoint3 := 84. GWPoint4 := 86. GWCurrentY := 88. "Profile stats" GWTimeInitializing := 90. GWCountInitializing := 91. GWTimeFinishTest := 92. GWCountFinishTest := 93. GWTimeNextGETEntry := 94. GWCountNextGETEntry := 95. GWTimeAddAETEntry := 96. GWCountAddAETEntry := 97. GWTimeNextFillEntry := 98. GWCountNextFillEntry := 99. GWTimeMergeFill := 100. GWCountMergeFill := 101. GWTimeDisplaySpan := 102. GWCountDisplaySpan := 103. GWTimeNextAETEntry := 104. GWCountNextAETEntry := 105. GWTimeChangeAETEntry := 106. GWCountChangeAETEntry := 107. "Bezier stats" GWBezierMonotonSubdivisions := 108. "# of subdivision due to non-monoton beziers" GWBezierHeightSubdivisions := 109. "# of subdivisions due to excessive height" GWBezierOverflowSubdivisions := 110. "# of subdivisions due to possible int overflow" GWBezierLineConversions := 111. "# of beziers converted to lines" GWHasClipShapes := 112. "True if the engine contains clip shapes" GWCurrentZ := 113. "Current z value of primitives" ! ----- Method: BalloonEngineConstants class>>initialize (in category 'pool definition') ----- initialize "BalloonEngineConstants initialize" self initStateConstants. self initWorkBufferConstants. self initPrimitiveConstants. self initEdgeConstants. self initFillConstants. self initializeInstVarNames: BalloonEngine prefixedBy: 'BE'. self initializeInstVarNames: BalloonEdgeData prefixedBy: 'ET'. self initializeInstVarNames: BalloonFillData prefixedBy: 'FT'.! ----- Method: BalloonEngineConstants class>>initializeInstVarNames:prefixedBy: (in category 'pool definition') ----- initializeInstVarNames: aClass prefixedBy: aString | token value | aClass instVarNames doWithIndex:[:instVarName :index| token := (aString, instVarName first asUppercase asString, (instVarName copyFrom: 2 to: instVarName size),'Index') asSymbol. value := index - 1. (self bindingOf: token) ifNil:[self addClassVarName: token]. (self bindingOf: token) value: value. ]. token := (aString, aClass name,'Size') asSymbol. (self bindingOf: token) ifNil:[self addClassVarName: token]. (self bindingOf: token) value: aClass instSize.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev April 2012