Vm-dev January 2014

vm-dev@lists.squeakfoundation.org

28 participants
97 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

Suspect single float types
by Nicolas Cellier 05 May '14

05 May '14

I read in CCodeGenerator>>computeKernelReturnTypes fetchFloatAt:into: #float storeFloatAt:from: #float fetchFloatAtPointer:into: #float storeFloatAtPointer:from: #float fetchSingleFloatAt:into: #float storeSingleFloatAt:from: #float fetchSingleFloatAtPointer:into: #float storeSingleFloatAtPointer:from: #float Ain't these #double?

2 2

One cannot pass Morphic event's along the Morhp chain from the simulation host World to the running simulation on the target World.
by gettimothy 06 Feb '14

06 Feb '14

I have some questions on how to proceed at the bottom of this post. In the host simulation environment, one cannot interact with the running simulation using the standard Morphic "event chain". One cannot do so because from the host environment, there is no World in the simulation; there is only a painted picture of a World. The key to seeing this is to grok what a running simulation actually is. StackInterpreterSimulator >> run "..simulation setup code.." [true] whileTrue: [self assertValidExecutionPointers. atEachStepBlock value. "N.B. may be nil" self dispatchOn: currentBytecode in: BytecodeTable. self incrementByteCount]. "..we never get here..." There is no 'hook' for me to chain the Morphic event's down into, there are only bytecodes being fetched and executed . (which is totally cool and awesome, btw). Those bytecodes paint a pretty picture on an ImageMorph placed on a Frame placed within a SystemWindow as seen here in StackInterpreterSimulater >> openAsMorph "...." window addMorph: (displayView := ImageMorph new image: displayForm) frame: (0@0 corner: 1(a)0.8). "...." That image is not a PasteUpMorph named TheWorld that can respond to events--it is just a pretty picture. That ladies and gentleman is the point where us fat and coddled coder Hobbit's have to enter the dragon's cave, leaving the comfortable environment of the Squeak API for whatever strange and dangerous world lies below; Me? I decided to post here instead before venturing in (: So, having learned this the hard way, there are a couple of strategies I could take--RFB, or maybe Nebraska-- to get events over to the target image but before doing that I have to ask is it really necessary? My goal is to port the StackInterpeter to native 64 (and after that 64x64). Presumably Eliot managed to do the original work without the use of direct interaction with morphic on the running world, so shouldn't my task now be to emulate whatever techiques Eliot uses? If so, that raises the final point. What exactly are those techniques? Specifically, given a running simulation, how does one produce a new VM? Do we boot up the target image on which we have developed and run VMMaker the standard way? Finally, direct interaction with the runnig simulation world is desirable, I will be happy to implement it. Just please inform me of what strategy you would prefer and I will try to get it done. Thank you for your time.

8 35

Re: [Vm-dev] VM Maker: VMMaker.oscog-eem.597.mcz
by Eliot Miranda 05 Feb '14

05 Feb '14

Hi All, I'd be grateful for a second set of eyes to review my changes in plugin land. The idea here was to eliminate as many isIntegerObject: sends where the intent is to fail if interpreterProxy isImmediate:. There are other cleanups too; some places where it is assumed the start of an object is object + 4 (instead of object + BaseHeaderSize, which hopefully will fix some Spur bugs, where BaseHeaderSize is 8). But there are a fair few fixes and I could have made a mistake. TIA On Thu, Jan 30, 2014 at 4:33 PM, <commits(a)source.squeak.org> wrote: > > Eliot Miranda uploaded a new version of VMMaker to project VM Maker: > http://source.squeak.org/VMMaker/VMMaker.oscog-eem.597.mcz > > ==================== Summary ==================== > > Name: VMMaker.oscog-eem.597 > Author: eem > Time: 30 January 2014, 4:31:41.523 pm > UUID: c9a71dd4-c394-4a8f-aa4d-a6d4dc3ff220 > Ancestors: VMMaker.oscog-eem.596 > > Fix markAndTraceStackPage: for Spur. Stack references to > forwarders must be followed before calling markAndTrace:. > > Fix eliminateAndFreeForwarders; it assumed that no forwarder can > reference a new object after scavenge. That's not true due to > transitive references. > > Fix SpurMemoryManager>>become:with:twoWay:copyHash: to follow > the specialObjectsOop if it has been forwarded. > > Plugins (and the form print prim): > Fix some egregious oop + 4 and oop + 8 references with the correct > oop + BaseHeaderSize. > Reduce the use of isIntegerObject:. isWords:, isBytes: > et al fail for immediates anyway. > Use var:type: where appropriate and use symbols for 'char *' et al. > Replace some uses of cCode: 'aFunction(args)' with a send of the > equivalent albeit non-existent selector. This may allow simulation > at some point in the future. > > =============== Diff against VMMaker.oscog-eem.596 =============== > > Item was changed: > ----- Method: AsynchFilePlugin>>asyncFileValueOf: (in category > 'primitives') ----- > asyncFileValueOf: oop > + "Answer a pointer to the first byte of the async file record > within the given Smalltalk bytes object, or nil if oop is not an async file > record." > - "Return a pointer to the first byte of the async file record > within the given Smalltalk bytes object, or nil if oop is not an async file > record." > > <returnTypeC: 'AsyncFile *'> > interpreterProxy success: > + ((interpreterProxy isBytes: oop) > + and: [(interpreterProxy slotSizeOf: oop) = (self cCode: > 'sizeof(AsyncFile)')]). > + ^interpreterProxy failed > + ifTrue: [nil] > + ifFalse: [self cCoerceSimple: (interpreterProxy > firstIndexableField: oop) to: 'AsyncFile *']! > - ((interpreterProxy isIntegerObject: oop) not and: > - [(interpreterProxy isBytes: oop) and: > - [(interpreterProxy slotSizeOf: oop) = (self cCode: > 'sizeof(AsyncFile)')]]). > - interpreterProxy failed ifTrue: [^ nil]. > - ^ self cCode: '(AsyncFile *) (oop + 4)' > - ! > > Item was changed: > ----- Method: B3DAcceleratorPlugin>>stackLightArrayValue: (in category > 'primitive support') ----- > stackLightArrayValue: stackIndex > "Load an Array of B3DPrimitiveLights from the given stack index" > | oop array arraySize | > <inline: false> > array := interpreterProxy stackObjectValue: stackIndex. > + array = nil ifTrue:[^nil]. "really??" > - array = nil ifTrue:[^nil]. > array = interpreterProxy nilObject ifTrue:[^nil]. > + (interpreterProxy isArray: array) > - (interpreterProxy fetchClassOf: array) = interpreterProxy > classArray > ifFalse:[^interpreterProxy primitiveFail]. > arraySize := interpreterProxy slotSizeOf: array. > 0 to: arraySize-1 do:[:i| > oop := interpreterProxy fetchPointer: i ofObject: array. > - (interpreterProxy isIntegerObject: oop) > - ifTrue:[^interpreterProxy primitiveFail]. > ((interpreterProxy isWords: oop) and:[(interpreterProxy > slotSizeOf: oop) = 32]) > ifFalse:[^interpreterProxy primitiveFail]. > ]. > ^array! > > Item was changed: > ----- Method: BalloonEngineBase>>loadFormsFrom: (in category 'loading > state') ----- > loadFormsFrom: arrayOop > "Check all the forms from arrayOop." > | formOop bmBits bmBitsSize bmWidth bmHeight bmDepth ppw bmRaster | > (interpreterProxy isArray: arrayOop) ifFalse:[^false]. > formArray := arrayOop. > 0 to: (interpreterProxy slotSizeOf: formArray) - 1 do:[:i| > formOop := interpreterProxy fetchPointer: i ofObject: > formArray. > - (interpreterProxy isIntegerObject: formOop) > ifTrue:[^false]. > (interpreterProxy isPointers: formOop) ifFalse:[^false]. > (interpreterProxy slotSizeOf: formOop) < 5 ifTrue:[^false]. > bmBits := interpreterProxy fetchPointer: 0 ofObject: > formOop. > + (interpreterProxy fetchClassOf: bmBits) = interpreterProxy > classBitmap > - (interpreterProxy fetchClassOf: bmBits) == > interpreterProxy classBitmap > ifFalse:[^false]. > bmBitsSize := interpreterProxy slotSizeOf: bmBits. > bmWidth := interpreterProxy fetchInteger: 1 ofObject: > formOop. > bmHeight := interpreterProxy fetchInteger: 2 ofObject: > formOop. > bmDepth := interpreterProxy fetchInteger: 3 ofObject: > formOop. > interpreterProxy failed ifTrue:[^false]. > (bmWidth >= 0 and:[bmHeight >= 0]) ifFalse:[^false]. > ppw := 32 // bmDepth. > bmRaster := bmWidth + (ppw-1) // ppw. > bmBitsSize = (bmRaster * bmHeight) > ifFalse:[^false]. > ]. > ^true! > > Item was changed: > ----- Method: BalloonEngineBase>>primitiveGetFailureReason (in category > 'primitives-access') ----- > primitiveGetFailureReason > "Return the reason why the last operation failed." > <export: true> > <inline: false> > | failCode | > interpreterProxy methodArgumentCount = 0 > ifFalse:[^interpreterProxy primitiveFailFor: > PrimErrBadNumArgs]. > engine := interpreterProxy stackValue: 0. > "Note -- don't call loadEngineFrom here because this will override > the stopReason with Zero" > + (interpreterProxy isImmediate: engine) ifTrue:[^interpreterProxy > primitiveFailFor: GEFEngineIsInteger]. > - (interpreterProxy isIntegerObject: engine) > ifTrue:[^interpreterProxy primitiveFailFor: GEFEngineIsInteger]. > (interpreterProxy isPointers: engine) ifFalse:[^interpreterProxy > primitiveFailFor: GEFEngineIsWords]. > (interpreterProxy slotSizeOf: engine) < BEBalloonEngineSize > ifTrue:[^interpreterProxy primitiveFailFor: GEFEngineTooSmall]. > (failCode := self loadWorkBufferFrom: > (interpreterProxy fetchPointer: BEWorkBufferIndex > ofObject: engine)) = 0 > ifFalse:[^interpreterProxy primitiveFailFor: > failCode]. > interpreterProxy pop: 1. > interpreterProxy pushInteger: self stopReasonGet.! > > Item was changed: > ----- Method: > BalloonEnginePlugin>>loadBitmapFill:colormap:tile:from:along:normal:xIndex: > (in category 'fills-bitmaps') ----- > loadBitmapFill: formOop colormap: cmOop tile: tileFlag from: point1 > along: point2 normal: point3 xIndex: xIndex > "Load the bitmap fill." > | bmFill cmSize cmBits bmBits bmBitsSize bmWidth bmHeight bmDepth > ppw bmRaster | > + <var: #cmBits type: #'int *'> > + <var: #point1 type: #'int *'> > + <var: #point2 type: #'int *'> > + <var: #point3 type: #'int *'> > - <var: #cmBits type:'int *'> > - <var: #point1 type:'int *'> > - <var: #point2 type:'int *'> > - <var: #point3 type:'int *'> > > cmOop == interpreterProxy nilObject ifTrue:[ > cmSize := 0. > cmBits := nil. > ] ifFalse:[ > + (interpreterProxy fetchClassOf: cmOop) = interpreterProxy > classBitmap > - (interpreterProxy fetchClassOf: cmOop) == interpreterProxy > classBitmap > ifFalse:[^interpreterProxy primitiveFail]. > cmSize := interpreterProxy slotSizeOf: cmOop. > cmBits := interpreterProxy firstIndexableField: cmOop. > ]. > - (interpreterProxy isIntegerObject: formOop) > - ifTrue:[^interpreterProxy primitiveFail]. > (interpreterProxy isPointers: formOop) > ifFalse:[^interpreterProxy primitiveFail]. > (interpreterProxy slotSizeOf: formOop) < 5 > ifTrue:[^interpreterProxy primitiveFail]. > bmBits := interpreterProxy fetchPointer: 0 ofObject: formOop. > + (interpreterProxy fetchClassOf: bmBits) = interpreterProxy > classBitmap > - (interpreterProxy fetchClassOf: bmBits) == interpreterProxy > classBitmap > ifFalse:[^interpreterProxy primitiveFail]. > bmBitsSize := interpreterProxy slotSizeOf: bmBits. > bmWidth := interpreterProxy fetchInteger: 1 ofObject: formOop. > bmHeight := interpreterProxy fetchInteger: 2 ofObject: formOop. > bmDepth := interpreterProxy fetchInteger: 3 ofObject: formOop. > interpreterProxy failed ifTrue:[^nil]. > (bmWidth >= 0 and:[bmHeight >= 0]) ifFalse:[^interpreterProxy > primitiveFail]. > (bmDepth = 32) | (bmDepth = 8) | (bmDepth = 16) | > (bmDepth = 1) | (bmDepth = 2) | (bmDepth = 4) > ifFalse:[^interpreterProxy primitiveFail]. > (cmSize = 0 or:[cmSize = (1 << bmDepth)]) > ifFalse:[^interpreterProxy primitiveFail]. > ppw := 32 // bmDepth. > bmRaster := bmWidth + (ppw-1) // ppw. > bmBitsSize = (bmRaster * bmHeight) > ifFalse:[^interpreterProxy primitiveFail]. > bmFill := self allocateBitmapFill: cmSize colormap: cmBits. > engineStopped ifTrue:[^nil]. > self bitmapWidthOf: bmFill put: bmWidth. > self bitmapHeightOf: bmFill put: bmHeight. > self bitmapDepthOf: bmFill put: bmDepth. > self bitmapRasterOf: bmFill put: bmRaster. > self bitmapSizeOf: bmFill put: bmBitsSize. > self bitmapTileFlagOf: bmFill put: tileFlag. > self objectIndexOf: bmFill put: xIndex. > self loadFillOrientation: bmFill > from: point1 along: point2 normal: point3 > width: bmWidth height: bmHeight. > ^bmFill! > > Item was changed: > ----- Method: CameraPlugin>>primGetFrame (in category 'primitives') ----- > primGetFrame > "Copy a camera frame into the given Bitmap. The Bitmap should be > for a Form of depth 32 that is the same width and height as the current > camera frame. Fail if the camera is not open or if the bitmap is not the > right size. If successful, answer the number of frames received from the > camera since the last call. If this is zero, then there has been no change." > > | cameraNum bitmapOop bitmap pixCount result | > <export: true> > + <var: 'bitmap' type: #'unsigned char *'> > - <var: 'bitmap' declareC: 'unsigned char *bitmap'> > > cameraNum := interpreterProxy stackIntegerValue: 1. > bitmapOop := interpreterProxy stackValue: 0. > + interpreterProxy success: (interpreterProxy isWords: bitmapOop). > + interpreterProxy failed ifTrue: > + [^ 0]. > + bitmap := self cCoerce: (interpreterProxy firstIndexableField: > bitmapOop) to: #'unsigned char *'. > - ((interpreterProxy isIntegerObject: bitmapOop) or: > - [(interpreterProxy isWords: bitmapOop) not]) ifTrue: [ > - interpreterProxy success: false. > - ^ 0]. > - bitmap := self cCoerce: (interpreterProxy firstIndexableField: > bitmapOop) to: 'unsigned char *'. > pixCount := interpreterProxy stSizeOf: bitmapOop. > > + result := self Camera: cameraNum Get: bitmap Frame: pixCount. > - result := self cCode: 'CameraGetFrame(cameraNum, bitmap, > pixCount)'. > result < 0 ifTrue: [ > interpreterProxy success: false. > ^ 0]. > > interpreterProxy pop: 3 thenPush: (interpreterProxy > integerObjectOf: result). "pop rcvr & args, push int result" > ^ 0 > > ! > > Item was changed: > ----- Method: CoInterpreter>>markAndTraceStackPage: (in category 'object > memory support') ----- > markAndTraceStackPage: thePage > | theSP theFP frameRcvrOffset callerFP oop | > <var: #thePage type: #'StackPage *'> > <var: #theSP type: #'char *'> > <var: #theFP type: #'char *'> > <var: #frameRcvrOffset type: #'char *'> > <var: #callerFP type: #'char *'> > <inline: false> > > self assert: (stackPages isFree: thePage) not. > self assert: thePage trace ~= StackPageTraced. > thePage trace: StackPageTraced. > > theSP := thePage headSP. > theFP := thePage headFP. > "Skip the instruction pointer on top of stack of inactive pages." > thePage = stackPage ifFalse: > [theSP := theSP + BytesPerWord]. > [frameRcvrOffset := self frameReceiverOffset: theFP. > [theSP <= frameRcvrOffset] whileTrue: > [oop := stackPages longAt: theSP. > + (objectMemory isOopForwarded: oop) ifTrue: > + [oop := objectMemory followForwarded: oop. > + stackPages longAt: theSP put: oop]. > (objectMemory isImmediate: oop) ifFalse: > [objectMemory markAndTrace: oop]. > theSP := theSP + BytesPerWord]. > (self frameHasContext: theFP) ifTrue: > [self assert: (objectMemory isContext: (self frameContext: > theFP)). > objectMemory markAndTrace: (self frameContext: theFP)]. > (self isMachineCodeFrame: theFP) > ifTrue: [self markAndTraceMachineCodeMethod: (self > mframeCogMethod: theFP)] > ifFalse: [objectMemory markAndTrace: (self iframeMethod: > theFP)]. > (callerFP := self frameCallerFP: theFP) ~= 0] whileTrue: > [theSP := theFP + FoxCallerSavedIP + BytesPerWord. > theFP := callerFP]. > theSP := theFP + FoxCallerSavedIP + BytesPerWord. "caller ip is > ceBaseReturnPC" > [theSP <= thePage baseAddress] whileTrue: > [oop := stackPages longAt: theSP. > + (objectMemory isOopForwarded: oop) ifTrue: > + [oop := objectMemory followForwarded: oop. > + stackPages longAt: theSP put: oop]. > (objectMemory isImmediate: oop) ifFalse: > [objectMemory markAndTrace: oop]. > theSP := theSP + BytesPerWord]! > > Item was changed: > ----- Method: DeflatePlugin>>loadDeflateStreamFrom: (in category > 'primitive support') ----- > loadDeflateStreamFrom: rcvr > | oop | > <inline: false> > + ((interpreterProxy isPointers: rcvr) > + and: [(interpreterProxy slotSizeOf: rcvr) >= 15]) ifFalse: > + [^false]. > - ((interpreterProxy isPointers: rcvr) and:[ > - (interpreterProxy slotSizeOf: rcvr) >= 15]) > ifFalse:[^false]. > oop := interpreterProxy fetchPointer: 0 ofObject: rcvr. > + (interpreterProxy isBytes: oop) ifFalse: > + [^false]. > - (interpreterProxy isIntegerObject: oop) > - ifTrue:[^false]. > - (interpreterProxy isBytes: oop) > - ifFalse:[^false]. > zipCollection := interpreterProxy firstIndexableField: oop. > zipCollectionSize := interpreterProxy byteSizeOf: oop. > > zipPosition := interpreterProxy fetchInteger: 1 ofObject: rcvr. > zipReadLimit := interpreterProxy fetchInteger: 2 ofObject: rcvr. > "zipWriteLimit := interpreterProxy fetchInteger: 3 ofObject: rcvr." > > oop := interpreterProxy fetchPointer: 4 ofObject: rcvr. > + ((interpreterProxy isWords: oop) > + and: [(interpreterProxy slotSizeOf: oop) = DeflateHashTableSize]) > ifFalse: > + [^false]. > - ((interpreterProxy isIntegerObject: oop) or:[ > - (interpreterProxy isWords: oop) not]) ifTrue:[^false]. > - (interpreterProxy slotSizeOf: oop) = DeflateHashTableSize > ifFalse:[^false]. > zipHashHead := interpreterProxy firstIndexableField: oop. > oop := interpreterProxy fetchPointer: 5 ofObject: rcvr. > + ((interpreterProxy isWords: oop) > + and: [(interpreterProxy slotSizeOf: oop) = DeflateWindowSize]) > ifFalse: > + [^false]. > - ((interpreterProxy isIntegerObject: oop) or:[ > - (interpreterProxy isWords: oop) not]) ifTrue:[^false]. > - (interpreterProxy slotSizeOf: oop) = DeflateWindowSize > ifFalse:[^false]. > zipHashTail := interpreterProxy firstIndexableField: oop. > zipHashValue := interpreterProxy fetchInteger: 6 ofObject: rcvr. > zipBlockPos := interpreterProxy fetchInteger: 7 ofObject: rcvr. > "zipBlockStart := interpreterProxy fetchInteger: 8 ofObject: rcvr." > oop := interpreterProxy fetchPointer: 9 ofObject: rcvr. > + (interpreterProxy isBytes: oop) ifFalse: > + [^false]. > - ((interpreterProxy isIntegerObject: oop) or:[ > - (interpreterProxy isBytes: oop) not]) ifTrue:[^false]. > zipLiteralSize := interpreterProxy slotSizeOf: oop. > zipLiterals := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 10 ofObject: rcvr. > + ((interpreterProxy isWords: oop) > + and: [(interpreterProxy slotSizeOf: oop) >= zipLiteralSize]) > ifFalse: > + [^false]. > - ((interpreterProxy isIntegerObject: oop) or:[ > - (interpreterProxy isWords: oop) not]) ifTrue:[^false]. > - (interpreterProxy slotSizeOf: oop) < zipLiteralSize > ifTrue:[^false]. > zipDistances := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 11 ofObject: rcvr. > + ((interpreterProxy isWords: oop) > + and: [(interpreterProxy slotSizeOf: oop) = > DeflateMaxLiteralCodes]) ifFalse: > + [^false]. > - ((interpreterProxy isIntegerObject: oop) or:[ > - (interpreterProxy isWords: oop) not]) ifTrue:[^false]. > - (interpreterProxy slotSizeOf: oop) = DeflateMaxLiteralCodes > ifFalse:[^false]. > zipLiteralFreq := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 12 ofObject: rcvr. > + ((interpreterProxy isWords: oop) > + and: [(interpreterProxy slotSizeOf: oop) = > DeflateMaxDistanceCodes]) ifFalse: > + [^false]. > - ((interpreterProxy isIntegerObject: oop) or:[ > - (interpreterProxy isWords: oop) not]) ifTrue:[^false]. > - (interpreterProxy slotSizeOf: oop) = DeflateMaxDistanceCodes > ifFalse:[^false]. > zipDistanceFreq := interpreterProxy firstIndexableField: oop. > > zipLiteralCount := interpreterProxy fetchInteger: 13 ofObject: > rcvr. > zipMatchCount := interpreterProxy fetchInteger: 14 ofObject: rcvr. > > ^interpreterProxy failed not! > > Item was changed: > ----- Method: DeflatePlugin>>loadZipEncoderFrom: (in category 'primitive > support') ----- > loadZipEncoderFrom: rcvr > | oop | > <inline: false> > + ((interpreterProxy isPointers: rcvr) > + and: [(interpreterProxy slotSizeOf: rcvr) >= 6]) ifFalse: > + [^false]. > - ((interpreterProxy isPointers: rcvr) and:[ > - (interpreterProxy slotSizeOf: rcvr) >= 6]) > ifFalse:[^false]. > oop := interpreterProxy fetchPointer: 0 ofObject: rcvr. > + (interpreterProxy isBytes: oop) ifFalse: > + [^interpreterProxy primitiveFail]. > - (interpreterProxy isIntegerObject: oop) > - ifTrue:[^interpreterProxy primitiveFail]. > - (interpreterProxy isBytes: oop) > - ifFalse:[^interpreterProxy primitiveFail]. > zipCollection := interpreterProxy firstIndexableField: oop. > zipCollectionSize := interpreterProxy byteSizeOf: oop. > > zipPosition := interpreterProxy fetchInteger: 1 ofObject: rcvr. > zipReadLimit := interpreterProxy fetchInteger: 2 ofObject: rcvr. > "zipWriteLimit := interpreterProxy fetchInteger: 3 ofObject: rcvr." > zipBitBuf := interpreterProxy fetchInteger: 4 ofObject: rcvr. > zipBitPos := interpreterProxy fetchInteger: 5 ofObject: rcvr. > > ^interpreterProxy failed not! > > Item was changed: > ----- Method: DeflatePlugin>>sendBlock:with:with:with: (in category > 'encoding') ----- > sendBlock: literalStream with: distanceStream with: litTree with: > distTree > "Require: > zipCollection, zipCollectionSize, zipPosition, > zipBitBuf, zipBitPos. > " > | oop litPos litLimit litArray distArray lit dist sum llBitLengths > llCodes distBitLengths distCodes code extra litBlCount distBlCount | > + <var: #litArray type: #'unsigned char *'> > + <var: #distArray type: #'unsigned int *'> > + <var: #llBitLengths type: #'unsigned int *'> > + <var: #llCodes type: #'unsigned int *'> > + <var: #distBitLengths type: #'unsigned int *'> > + <var: #distCodes type: #'unsigned int *'> > - <var: #litArray type:'unsigned char *'> > - <var: #distArray type:'unsigned int *'> > - <var: #llBitLengths type:'unsigned int *'> > - <var: #llCodes type:'unsigned int *'> > - <var: #distBitLengths type:'unsigned int *'> > - <var: #distCodes type:'unsigned int *'> > oop := interpreterProxy fetchPointer: 0 ofObject: literalStream. > litPos := interpreterProxy fetchInteger: 1 ofObject: literalStream. > litLimit := interpreterProxy fetchInteger: 2 ofObject: > literalStream. > + (litPos <= litLimit > + and: [(interpreterProxy isBytes: oop) > + and: [litLimit <= (interpreterProxy byteSizeOf: oop)]]) ifFalse: > + [^interpreterProxy primitiveFail]. > - ((interpreterProxy isIntegerObject: oop) not and:[litPos <= > litLimit and:[ > - litLimit <= (interpreterProxy byteSizeOf: oop) > and:[interpreterProxy isBytes: oop]]]) > - ifFalse:[^interpreterProxy primitiveFail]. > litArray := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 0 ofObject: distanceStream. > + ((interpreterProxy isWords: oop) > + and: [litLimit <= (interpreterProxy slotSizeOf: oop) > + and: [(interpreterProxy fetchInteger: 1 ofObject: distanceStream) > = litPos > + and: [(interpreterProxy fetchInteger: 2 ofObject: distanceStream) > = litLimit]]]) ifFalse: > + [^interpreterProxy primitiveFail]. > - ((interpreterProxy isIntegerObject: oop) not and:[ > - (interpreterProxy fetchInteger: 1 ofObject: > distanceStream) = litPos and:[ > - (interpreterProxy fetchInteger: 2 ofObject: > distanceStream) = litLimit]]) > - ifFalse:[^interpreterProxy primitiveFail]. > - ((interpreterProxy isWords: oop) and:[ > - litLimit <= (interpreterProxy slotSizeOf: oop)]) > - ifFalse:[^interpreterProxy primitiveFail]. > distArray := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 0 ofObject: litTree. > + (interpreterProxy isWords: oop) ifFalse: > + [^interpreterProxy primitiveFail]. > - ((interpreterProxy isIntegerObject: oop) not and:[interpreterProxy > isWords: oop]) > - ifFalse:[^interpreterProxy primitiveFail]. > litBlCount := interpreterProxy slotSizeOf: oop. > llBitLengths := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 1 ofObject: litTree. > + ((interpreterProxy isWords: oop) > + and: [litBlCount = (interpreterProxy slotSizeOf: oop)]) ifFalse: > + [^interpreterProxy primitiveFail]. > - ((interpreterProxy isIntegerObject: oop) not and:[interpreterProxy > isWords: oop]) > - ifFalse:[^interpreterProxy primitiveFail]. > - (litBlCount = (interpreterProxy slotSizeOf: oop)) > - ifFalse:[^interpreterProxy primitiveFail]. > llCodes := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 0 ofObject: distTree. > + (interpreterProxy isWords: oop) ifFalse: > + [^interpreterProxy primitiveFail]. > - ((interpreterProxy isIntegerObject: oop) not and:[interpreterProxy > isWords: oop]) > - ifFalse:[^interpreterProxy primitiveFail]. > distBlCount := interpreterProxy slotSizeOf: oop. > distBitLengths := interpreterProxy firstIndexableField: oop. > > oop := interpreterProxy fetchPointer: 1 ofObject: distTree. > + ((interpreterProxy isWords: oop) > + and: [distBlCount = (interpreterProxy slotSizeOf: oop)]) ifFalse: > + [^interpreterProxy primitiveFail]. > - ((interpreterProxy isIntegerObject: oop) not and:[interpreterProxy > isWords: oop]) > - ifFalse:[^interpreterProxy primitiveFail]. > - (distBlCount = (interpreterProxy slotSizeOf: oop)) > - ifFalse:[^interpreterProxy primitiveFail]. > distCodes := interpreterProxy firstIndexableField: oop. > > - interpreterProxy failed ifTrue:[^nil]. > - > self nextZipBits: 0 put: 0. "Flush pending bits if necessary" > sum := 0. > [litPos < litLimit and:[zipPosition + 4 < zipCollectionSize]] > whileTrue:[ > lit := litArray at: litPos. > dist := distArray at: litPos. > litPos := litPos + 1. > dist = 0 ifTrue:["literal" > sum := sum + 1. > lit < litBlCount ifFalse:[^interpreterProxy > primitiveFail]. > self nextZipBits: (llBitLengths at: lit) put: > (llCodes at: lit). > ] ifFalse:["match" > sum := sum + lit + DeflateMinMatch. > lit < 256 ifFalse:[^interpreterProxy > primitiveFail]. > code := zipMatchLengthCodes at: lit. > code < litBlCount ifFalse:[^interpreterProxy > primitiveFail]. > self nextZipBits: (llBitLengths at: code) put: > (llCodes at: code). > extra := zipExtraLengthBits at: code - 257. > extra = 0 ifFalse:[ > lit := lit - (zipBaseLength at: code - > 257). > self nextZipBits: extra put: lit]. > dist := dist - 1. > dist < 16r8000 ifFalse:[^interpreterProxy > primitiveFail]. > dist < 256 > ifTrue:[code := zipDistanceCodes at: dist] > ifFalse:[code := zipDistanceCodes at: 256 > + (dist >> 7)]. > code < distBlCount ifFalse:[^interpreterProxy > primitiveFail]. > self nextZipBits: (distBitLengths at: code) put: > (distCodes at: code). > extra := zipExtraDistanceBits at: code. > extra = 0 ifFalse:[ > dist := dist - (zipBaseDistance at: code). > self nextZipBits: extra put: dist]. > ]. > ]. > interpreterProxy failed ifTrue:[^nil]. > interpreterProxy storeInteger: 1 ofObject: literalStream > withValue: litPos. > interpreterProxy storeInteger: 1 ofObject: distanceStream > withValue: litPos. > ^sum! > > Item was changed: > ----- Method: FFIPlugin>>ffiArgument:Spec:Class: (in category 'callout > support') ----- > ffiArgument: oop Spec: argSpec Class: argClass > "Callout support. Prepare the given oop as argument. > argSpec defines the compiled spec for the argument. > argClass (if non-nil) defines the required (super)class for the > argument." > | valueOop oopClass isStruct nilOop | > <inline: false> > oopClass := interpreterProxy fetchClassOf: oop. "Prefetch class > (we'll need it)" > nilOop := interpreterProxy nilObject. > "Do the necessary type checks" > argClass == nilOop ifFalse:[ > "Type check 1: > Is the required class of the argument a subclass of > ExternalStructure?" > (interpreterProxy includesBehavior: argClass > ThatOf: interpreterProxy > classExternalStructure) > ifFalse:[^self ffiFail: FFIErrorWrongType]. "Nope. > Fail." > "Type check 2: > Is the class of the argument a subclass of required class?" > ((nilOop == oop) or:[interpreterProxy includesBehavior: > oopClass ThatOf: argClass]) > ifFalse:[^self ffiFail: > FFIErrorCoercionFailed]. "Nope. Fail." > "Okay, we've passed the type check (so far)" > ]. > > "Check if oopClass is a subclass of ExternalStructure. > If this is the case we'll work on it's handle and not the actual > oop." > isStruct := false. > + ((interpreterProxy isImmediate: oop) or:[oop == nilOop]) ifFalse:[ > + "#isPointers: will fail if oop is immediate so don't even > attempt to use it" > - ((interpreterProxy isIntegerObject: oop) or:[oop == nilOop]) > ifFalse:[ > - "#isPointers: will fail if oop is SmallInteger so don't > even attempt to use it" > (interpreterProxy isPointers: oop) > ifTrue:[isStruct := interpreterProxy > includesBehavior: oopClass > ThatOf: > interpreterProxy classExternalStructure. > (argClass == nilOop or:[isStruct]) > ifFalse:[^self ffiFail: > FFIErrorCoercionFailed]]. > "note: the test for #isPointers: above should speed up > execution since no pointer type ST objects are allowed in external calls > and thus if #isPointers: is true then the arg must be ExternalStructure to > work. If it isn't then the code fails anyways so speed isn't an issue" > ]. > > "Determine valueOop (e.g., the actual oop to pass as argument)" > isStruct > ifTrue:[valueOop := interpreterProxy fetchPointer: 0 > ofObject: oop] > ifFalse:[valueOop := oop]. > > "Fetch and check the contents of the compiled spec" > - (interpreterProxy isIntegerObject: argSpec) > - ifTrue:[self ffiFail: FFIErrorWrongType. ^nil]. > (interpreterProxy isWords: argSpec) > ifFalse:[self ffiFail: FFIErrorWrongType. ^nil]. > ffiArgSpecSize := interpreterProxy slotSizeOf: argSpec. > ffiArgSpecSize = 0 ifTrue:[self ffiFail: FFIErrorWrongType. ^nil]. > ffiArgSpec := self cCoerce: (interpreterProxy firstIndexableField: > argSpec) to: 'int'. > ffiArgHeader := interpreterProxy longAt: ffiArgSpec. > > "Do the actual preparation of the argument" > "Note: Order is important since FFIFlagStructure + FFIFlagPointer > is used to represent 'typedef void* VoidPointer' and VoidPointer really is > *struct* not pointer." > > (ffiArgHeader anyMask: FFIFlagStructure) ifTrue:[ > "argument must be ExternalStructure" > isStruct ifFalse:[^self ffiFail: FFIErrorCoercionFailed]. > (ffiArgHeader anyMask: FFIFlagAtomic) > ifTrue:[^self ffiFail: FFIErrorWrongType]. "bad > combination" > ^self ffiPushStructureContentsOf: valueOop]. > > (ffiArgHeader anyMask: FFIFlagPointer) ifTrue:[ > + "no integers (or characters) for pointers please" > + (interpreterProxy isImmediate: oop) > - "no integers for pointers please" > - (interpreterProxy isIntegerObject: oop) > ifTrue:[^self ffiFail: FFIErrorIntAsPointer]. > > "but allow passing nil pointer for any pointer type" > oop == interpreterProxy nilObject ifTrue:[^self > ffiPushPointer: nil]. > > "argument is reference to either atomic or structure type" > (ffiArgHeader anyMask: FFIFlagAtomic) ifTrue:[ > isStruct "e.g., ExternalData" > ifTrue:[^self ffiAtomicStructByReference: > oop Class: oopClass] > ifFalse:[^self ffiAtomicArgByReference: > oop Class: oopClass]. > "********* NOTE: The above uses 'oop' not > 'valueOop' (for ExternalData) ******" > ]. > > "Needs to be external structure here" > isStruct ifFalse:[^self ffiFail: FFIErrorCoercionFailed]. > ^self ffiPushPointerContentsOf: valueOop]. > > (ffiArgHeader anyMask: FFIFlagAtomic) ifTrue:[ > "argument is atomic value" > self ffiArgByValue: valueOop. > ^0]. > "None of the above - bad spec" > ^self ffiFail: FFIErrorWrongType! > > Item was changed: > ----- Method: FFIPlugin>>ffiCheckReturn:With: (in category 'callout > support') ----- > ffiCheckReturn: retSpec With: retClass > "Make sure we can return an object of the given type" > <inline: true> > retClass == interpreterProxy nilObject ifFalse:[ > (interpreterProxy includesBehavior: retClass > ThatOf: interpreterProxy > classExternalStructure) > ifFalse:[^self ffiFail: FFIErrorBadReturn]]. > ffiRetClass := retClass. > > - (interpreterProxy isIntegerObject: retSpec) > - ifTrue:[self ffiFail: FFIErrorWrongType. ^nil]. > (interpreterProxy isWords: retSpec) > ifFalse:[self ffiFail: FFIErrorWrongType. ^nil]. > ffiRetSpecSize := interpreterProxy slotSizeOf: retSpec. > ffiRetSpecSize = 0 ifTrue:[self ffiFail: FFIErrorWrongType. ^nil]. > ffiRetSpec := self cCoerce: (interpreterProxy firstIndexableField: > retSpec) to: 'int'. > ffiRetHeader := interpreterProxy longAt: ffiRetSpec. > (self isAtomicType: ffiRetHeader) ifFalse:[ > (ffiRetClass == interpreterProxy nilObject) > ifTrue:[^self ffiFail: FFIErrorBadReturn]]. > (self ffiCan: (self cCoerce: ffiRetSpec to:'int*') Return: > ffiRetSpecSize) > ifFalse:[self ffiFail: FFIErrorBadReturn]. "cannot return > this type" > ^0! > > Item was changed: > ----- Method: FFIPlugin>>ffiContentsOfHandle:errCode: (in category > 'callout support') ----- > ffiContentsOfHandle: oop errCode: errCode > "Make sure that the given oop is a valid external handle" > <inline: true> > - (interpreterProxy isIntegerObject: oop) > - ifTrue:[^self ffiFail: errCode]. > (interpreterProxy isBytes: oop) > ifFalse:[^self ffiFail: errCode]. > ((interpreterProxy byteSizeOf: oop) == 4) > ifFalse:[^self ffiFail: errCode]. > ^interpreterProxy fetchPointer: 0 ofObject: oop! > > Item was changed: > ----- Method: FFIPlugin>>ffiIntegerValueOf: (in category 'callout > support') ----- > ffiIntegerValueOf: oop > "Support for generic callout. Return an integer value that is > coerced as C would do." > | oopClass | > <inline: true> > (interpreterProxy isIntegerObject: oop) ifTrue:[^interpreterProxy > integerValueOf: oop]. > oop == interpreterProxy nilObject ifTrue:[^0]. "@@: should we > really allow this????" > oop == interpreterProxy falseObject ifTrue:[^0]. > oop == interpreterProxy trueObject ifTrue:[^1]. > oopClass := interpreterProxy fetchClassOf: oop. > oopClass == interpreterProxy classFloat > ifTrue:[^(interpreterProxy floatValueOf: oop) asInteger]. > oopClass == interpreterProxy classCharacter > + ifTrue:[^interpreterProxy characterValueOf: oop]. > - ifTrue:[^interpreterProxy fetchInteger: 0 ofObject: oop]. > oopClass == interpreterProxy classLargePositiveInteger > ifTrue:[^interpreterProxy positive32BitValueOf: oop]. > ^interpreterProxy signed32BitValueOf: oop "<- will fail if not > integer"! > > Item was changed: > ----- Method: FFIPlugin>>ffiValidateExternalData:AtomicType: (in > category 'callout support') ----- > ffiValidateExternalData: oop AtomicType: atomicType > "Validate if the given oop (an instance of ExternalData) can be > passed as a pointer to the given atomic type." > | ptrType specOop spec specType | > <inline: true> > ptrType := interpreterProxy fetchPointer: 1 ofObject: oop. > - (interpreterProxy isIntegerObject: ptrType) > - ifTrue:[^self ffiFail: FFIErrorWrongType]. > (interpreterProxy isPointers: ptrType) > ifFalse:[^self ffiFail: FFIErrorWrongType]. > (interpreterProxy slotSizeOf: ptrType) < 2 > ifTrue:[^self ffiFail: FFIErrorWrongType]. > specOop := interpreterProxy fetchPointer: 0 ofObject: ptrType. > - (interpreterProxy isIntegerObject: specOop) > - ifTrue:[^self ffiFail: FFIErrorWrongType]. > (interpreterProxy isWords: specOop) > ifFalse:[^self ffiFail: FFIErrorWrongType]. > (interpreterProxy slotSizeOf: specOop) = 0 > ifTrue:[^self ffiFail: FFIErrorWrongType]. > spec := interpreterProxy fetchPointer: 0 ofObject: specOop. > (self isAtomicType: spec) > ifFalse:[^self ffiFail: FFIErrorWrongType]. > specType := self atomicTypeOf: spec. > specType ~= atomicType ifTrue:[ > "allow for signed/unsigned conversion but nothing else" > (atomicType > FFITypeBool and:[atomicType < > FFITypeSingleFloat]) > ifFalse:[^self ffiFail: FFIErrorCoercionFailed]. > ((atomicType >> 1) = (specType >> 1)) > ifFalse:[^self ffiFail: FFIErrorCoercionFailed]]. > ^0! > > Item was changed: > ----- Method: Interpreter>>primitiveFormPrint (in category 'I/O > primitives') ----- > primitiveFormPrint > "On platforms that support it, this primitive prints the receiver, > assumed to be a Form, to the default printer." > > | landscapeFlag vScale hScale rcvr bitsArray w h > depth pixelsPerWord wordsPerLine bitsArraySize ok | > > <var: #vScale type: 'double '> > <var: #hScale type: 'double '> > landscapeFlag := self booleanValueOf: self stackTop. > vScale := self floatValueOf: (self stackValue: 1). > hScale := self floatValueOf: (self stackValue: 2). > rcvr := self stackValue: 3. > (rcvr isIntegerObject: rcvr) ifTrue: [self success: false]. > successFlag ifTrue: [ > ((self isPointers: rcvr) and: [(self lengthOf: rcvr) >= > 4]) > ifFalse: [self success: false]]. > successFlag ifTrue: [ > bitsArray := self fetchPointer: 0 ofObject: rcvr. > w := self fetchInteger: 1 ofObject: rcvr. > h := self fetchInteger: 2 ofObject: rcvr. > depth := self fetchInteger: 3 ofObject: rcvr. > (w > 0 and: [h > 0]) ifFalse: [self success: false]. > pixelsPerWord := 32 // depth. > wordsPerLine := (w + (pixelsPerWord - 1)) // pixelsPerWord. > ((rcvr isIntegerObject: rcvr) not and: [self > isWordsOrBytes: bitsArray]) > ifTrue: [ > bitsArraySize := self byteLengthOf: > bitsArray. > self success: (bitsArraySize = > (wordsPerLine * h * 4))] > ifFalse: [self success: false]]. > successFlag ifTrue: [ > + ok := self cCode: 'ioFormPrint(bitsArray + BaseHeaderSize, > w, h, depth, hScale, vScale, landscapeFlag)'. > - BytesPerWord = 8 > - ifTrue: [ok := self cCode: 'ioFormPrint(bitsArray > + 8, w, h, depth, hScale, vScale, landscapeFlag)'] > - ifFalse: [ok := self cCode: 'ioFormPrint(bitsArray > + 4, w, h, depth, hScale, vScale, landscapeFlag)']. > self success: ok]. > successFlag ifTrue: [ > self pop: 3]. "pop hScale, vScale, and landscapeFlag; > leave rcvr on stack" > ! > > Item was changed: > ----- Method: InterpreterPrimitives>>primitiveFormPrint (in category > 'I/O primitives') ----- > primitiveFormPrint > "On platforms that support it, this primitive prints the receiver, > assumed to be a Form, to the default printer." > > | landscapeFlag vScale hScale rcvr bitsArray w h > depth pixelsPerWord wordsPerLine bitsArraySize ok | > > <var: #vScale type: 'double '> > <var: #hScale type: 'double '> > landscapeFlag := self booleanValueOf: self stackTop. > vScale := self floatValueOf: (self stackValue: 1). > hScale := self floatValueOf: (self stackValue: 2). > rcvr := self stackValue: 3. > + ((objectMemory isPointers: rcvr) > + and: [(objectMemory lengthOf: rcvr) >= 4]) ifFalse: > + [self success: false]. > + self successful ifTrue: > + [bitsArray := objectMemory fetchPointer: 0 ofObject: rcvr. > - (rcvr isIntegerObject: rcvr) ifTrue: [self success: false]. > - self successful ifTrue: [ > - ((objectMemory isPointers: rcvr) and: [(objectMemory > lengthOf: rcvr) >= 4]) > - ifFalse: [self success: false]]. > - self successful ifTrue: [ > - bitsArray := objectMemory fetchPointer: 0 ofObject: rcvr. > w := self fetchInteger: 1 ofObject: rcvr. > h := self fetchInteger: 2 ofObject: rcvr. > depth := self fetchInteger: 3 ofObject: rcvr. > (w > 0 and: [h > 0]) ifFalse: [self success: false]. > pixelsPerWord := 32 // depth. > wordsPerLine := (w + (pixelsPerWord - 1)) // pixelsPerWord. > + (objectMemory isWordsOrBytes: bitsArray) > + ifTrue: > + [bitsArraySize := objectMemory > byteLengthOf: bitsArray. > - ((rcvr isIntegerObject: rcvr) not and: [objectMemory > isWordsOrBytes: bitsArray]) > - ifTrue: [ > - bitsArraySize := objectMemory > byteLengthOf: bitsArray. > self success: (bitsArraySize = > (wordsPerLine * h * 4))] > ifFalse: [self success: false]]. > + self successful ifTrue: > + [ok := self cCode: 'ioFormPrint(bitsArray + > BaseHeaderSize, w, h, depth, hScale, vScale, landscapeFlag)'. > - self successful ifTrue: [ > - BytesPerWord = 8 > - ifTrue: [ok := self cCode: 'ioFormPrint(bitsArray > + 8, w, h, depth, hScale, vScale, landscapeFlag)'] > - ifFalse: [ok := self cCode: 'ioFormPrint(bitsArray > + 4, w, h, depth, hScale, vScale, landscapeFlag)']. > self success: ok]. > + self successful ifTrue: > + [self pop: 3] "pop hScale, vScale, and landscapeFlag; > leave rcvr on stack"! > - self successful ifTrue: [ > - self pop: 3]. "pop hScale, vScale, and landscapeFlag; > leave rcvr on stack"! > > Item was changed: > ----- Method: InterpreterProxy>>isArray: (in category 'testing') ----- > isArray: oop > + ^(self isNonImmediate: oop) and: [oop class instSpec = 2]! > - ^(self isIntegerObject: oop) not and:[(oop class format bitAnd: > 15) = 2] > - ! > > Item was changed: > ----- Method: InterpreterProxy>>stackObjectValue: (in category 'stack > access') ----- > stackObjectValue: offset > | oop | > oop := self stackValue: offset. > + (self isImmediate: oop) ifTrue: [self primitiveFail. ^ nil]. > - (self isIntegerObject: oop) ifTrue: [self primitiveFail. ^ nil]. > ^oop! > > Item was changed: > ----- Method: JPEGReaderPlugin>>colorComponent:from: (in category > 'decoding') ----- > colorComponent: aColorComponent from: oop > <var: #aColorComponent type: 'int *'> > - (interpreterProxy isIntegerObject: oop) ifTrue:[^false]. > (interpreterProxy isPointers: oop) ifFalse:[^false]. > (interpreterProxy slotSizeOf: oop) < MinComponentSize > ifTrue:[^false]. > aColorComponent at: CurrentXIndex put: > (interpreterProxy fetchInteger: CurrentXIndex ofObject: > oop). > aColorComponent at: CurrentYIndex put: > (interpreterProxy fetchInteger: CurrentYIndex ofObject: > oop). > aColorComponent at: HScaleIndex put: > (interpreterProxy fetchInteger: HScaleIndex ofObject: oop). > aColorComponent at: VScaleIndex put: > (interpreterProxy fetchInteger: VScaleIndex ofObject: oop). > aColorComponent at: BlockWidthIndex put: > (interpreterProxy fetchInteger: BlockWidthIndex ofObject: > oop). > aColorComponent at: MCUWidthIndex put: > (interpreterProxy fetchInteger: MCUWidthIndex ofObject: > oop). > aColorComponent at: PriorDCValueIndex put: > (interpreterProxy fetchInteger: PriorDCValueIndex > ofObject: oop). > ^interpreterProxy failed not! > > Item was changed: > ----- Method: JPEGReaderPlugin>>colorComponentBlocks:from: (in category > 'decoding') ----- > colorComponentBlocks: blocks from: oop > | arrayOop max blockOop | > <var: #blocks type: 'int **'> > - (interpreterProxy isIntegerObject: oop) ifTrue:[^false]. > (interpreterProxy isPointers: oop) ifFalse:[^false]. > (interpreterProxy slotSizeOf: oop) < MinComponentSize > ifTrue:[^false]. > > arrayOop := interpreterProxy fetchPointer: MCUBlockIndex ofObject: > oop. > - (interpreterProxy isIntegerObject: arrayOop) ifTrue:[^false]. > (interpreterProxy isPointers: arrayOop) ifFalse:[^false]. > max := interpreterProxy slotSizeOf: arrayOop. > max > MaxMCUBlocks ifTrue:[^false]. > 0 to: max-1 do:[:i| > blockOop := interpreterProxy fetchPointer: i ofObject: > arrayOop. > - (interpreterProxy isIntegerObject: blockOop) > ifTrue:[^false]. > (interpreterProxy isWords: blockOop) ifFalse:[^false]. > (interpreterProxy slotSizeOf: blockOop) = DCTSize2 > ifFalse:[^false]. > blocks at: i put: (interpreterProxy firstIndexableField: > blockOop). > ]. > ^interpreterProxy failed not! > > Item was changed: > ----- Method: JPEGReaderPlugin>>loadJPEGStreamFrom: (in category 'stream > support') ----- > loadJPEGStreamFrom: streamOop > | oop sz | > - (interpreterProxy slotSizeOf: streamOop) < 5 ifTrue:[^false]. > (interpreterProxy isPointers: streamOop) ifFalse:[^false]. > + (interpreterProxy slotSizeOf: streamOop) < 5 ifTrue:[^false]. > oop := interpreterProxy fetchPointer: 0 ofObject: streamOop. > - (interpreterProxy isIntegerObject: oop) ifTrue:[^false]. > (interpreterProxy isBytes: oop) ifFalse:[^false]. > jsCollection := interpreterProxy firstIndexableField: oop. > sz := interpreterProxy byteSizeOf: oop. > jsPosition := interpreterProxy fetchInteger: 1 ofObject: streamOop. > jsReadLimit := interpreterProxy fetchInteger: 2 ofObject: > streamOop. > jsBitBuffer := interpreterProxy fetchInteger: 3 ofObject: > streamOop. > jsBitCount := interpreterProxy fetchInteger: 4 ofObject: streamOop. > interpreterProxy failed ifTrue:[^false]. > sz < jsReadLimit ifTrue:[^false]. > (jsPosition < 0 or:[jsPosition >= jsReadLimit]) ifTrue:[^false]. > ^true! > > Item was changed: > ----- Method: NewspeakInterpreter>>primitiveFormPrint (in category 'I/O > primitives') ----- > primitiveFormPrint > "On platforms that support it, this primitive prints the receiver, > assumed to be a Form, to the default printer." > > | landscapeFlag vScale hScale rcvr bitsArray w h > depth pixelsPerWord wordsPerLine bitsArraySize ok | > > <var: #vScale type: 'double '> > <var: #hScale type: 'double '> > landscapeFlag := self booleanValueOf: self stackTop. > vScale := self floatValueOf: (self stackValue: 1). > hScale := self floatValueOf: (self stackValue: 2). > rcvr := self stackValue: 3. > (rcvr isIntegerObject: rcvr) ifTrue: [self success: false]. > self successful ifTrue: [ > ((self isPointers: rcvr) and: [(self lengthOf: rcvr) >= > 4]) > ifFalse: [self success: false]]. > self successful ifTrue: [ > bitsArray := self fetchPointer: 0 ofObject: rcvr. > w := self fetchInteger: 1 ofObject: rcvr. > h := self fetchInteger: 2 ofObject: rcvr. > depth := self fetchInteger: 3 ofObject: rcvr. > (w > 0 and: [h > 0]) ifFalse: [self success: false]. > pixelsPerWord := 32 // depth. > wordsPerLine := (w + (pixelsPerWord - 1)) // pixelsPerWord. > ((rcvr isIntegerObject: rcvr) not and: [self > isWordsOrBytes: bitsArray]) > ifTrue: [ > bitsArraySize := self byteLengthOf: > bitsArray. > self success: (bitsArraySize = > (wordsPerLine * h * 4))] > ifFalse: [self success: false]]. > self successful ifTrue: [ > + ok := self cCode: 'ioFormPrint(bitsArray + BaseHeaderSize, > w, h, depth, hScale, vScale, landscapeFlag)'. > - BytesPerWord = 8 > - ifTrue: [ok := self cCode: 'ioFormPrint(bitsArray > + 8, w, h, depth, hScale, vScale, landscapeFlag)'] > - ifFalse: [ok := self cCode: 'ioFormPrint(bitsArray > + 4, w, h, depth, hScale, vScale, landscapeFlag)']. > self success: ok]. > self successful ifTrue: [ > self pop: 3]. "pop hScale, vScale, and landscapeFlag; > leave rcvr on stack" > ! > > Item was changed: > ----- Method: ScratchPlugin>>primOpenPortNamed (in category 'serial > port') ----- > primOpenPortNamed > "Open the port with the given name and baud rate." > > | nameStr src nameOop baudRate count portNum | > <export: true> > <var: 'nameStr' declareC: 'char nameStr[1000]'> > + <var: 'src' type: #'char *'> > - <var: 'src' declareC: 'char * src'> > > nameOop := interpreterProxy stackValue: 1. > baudRate := interpreterProxy stackIntegerValue: 0. > > + interpreterProxy success: (interpreterProxy isBytes: nameOop). > - ((interpreterProxy isIntegerObject: nameOop) or: > - [(interpreterProxy isBytes: nameOop) not]) ifTrue: [ > - interpreterProxy success: false. > - ^ 0]. > > interpreterProxy failed ifTrue: [^ 0]. > > + src := self cCoerce: (interpreterProxy firstIndexableField: > nameOop) to: #'char *'. > - src := self cCoerce: (interpreterProxy firstIndexableField: > nameOop) to: 'char *'. > count := interpreterProxy stSizeOf: nameOop. > 0 to: count - 1 do: [:i | nameStr at: i put: (src at: i)]. > nameStr at: count put: 0. > > + portNum := self SerialPortOpen: nameStr PortNamed: baudRate. > - portNum := self cCode: 'SerialPortOpenPortNamed(nameStr, > baudRate)'. > portNum = -1 ifTrue: [interpreterProxy success: false. ^ 0]. > > interpreterProxy "pop args and rcvr, push result" > pop: 3 > thenPush: (interpreterProxy integerObjectOf: portNum). > > ^ 0 > ! > > Item was changed: > ----- Method: ScratchPlugin>>primRead (in category 'serial port') ----- > primRead > "Read data from the given serial port into the given buffer (a > ByteArray or String). Answer the number of bytes read." > > + | portNum bufOop bytesRead | > - | portNum bufOop bufPtr bufSize bytesRead | > <export: true> > - <var: 'bufPtr' declareC: 'char *bufPtr'> > > portNum := interpreterProxy stackIntegerValue: 1. > bufOop := interpreterProxy stackValue: 0. > > + interpreterProxy success: (interpreterProxy isBytes: bufOop). > + interpreterProxy failed ifTrue: [^ 0]. > - ((interpreterProxy isIntegerObject: bufOop) or: > - [(interpreterProxy isBytes: bufOop) not]) ifTrue: [ > - interpreterProxy success: false. > - ^ 0]. > - bufPtr := self cCoerce: (interpreterProxy firstIndexableField: > bufOop) to: 'char *'. > - bufSize := interpreterProxy stSizeOf: bufOop. > - interpreterProxy failed ifTrue: [^ nil]. > > + bytesRead := self Serial: portNum > + Port: (self cCoerce: > (interpreterProxy firstIndexableField: bufOop) to: 'char *') > + Read: (interpreterProxy > stSizeOf: bufOop). > - bytesRead := self cCode: 'SerialPortRead(portNum, bufPtr, > bufSize)'. > > interpreterProxy pop: 3. > "pop args and rcvr" > interpreterProxy pushInteger: bytesRead. "push result" > + ^ 0! > - ^ 0 > - ! > > Item was changed: > ----- Method: ScratchPlugin>>primWrite (in category 'serial port') ----- > primWrite > "Write data to the given serial port from the given buffer (a > ByteArray or String). Answer the number of bytes written." > > + | portNum bufOop bytesWritten | > - | portNum bufOop bufPtr bufSize bytesWritten | > <export: true> > - <var: 'bufPtr' declareC: 'char *bufPtr'> > > portNum := interpreterProxy stackIntegerValue: 1. > bufOop := interpreterProxy stackValue: 0. > > + interpreterProxy success: (interpreterProxy isBytes: bufOop). > + interpreterProxy failed ifTrue: [^ 0]. > - ((interpreterProxy isIntegerObject: bufOop) or: > - [(interpreterProxy isBytes: bufOop) not]) ifTrue: [ > - interpreterProxy success: false. > - ^ 0]. > - bufPtr := self cCoerce: (interpreterProxy firstIndexableField: > bufOop) to: 'char *'. > - bufSize := interpreterProxy stSizeOf: bufOop. > - interpreterProxy failed ifTrue: [^ nil]. > > + bytesWritten := self Serial: portNum > + Port: (self cCoerce: > (interpreterProxy firstIndexableField: bufOop) to: 'char *') > + Write: (interpreterProxy > stSizeOf: bufOop). > - bytesWritten := self cCode: 'SerialPortWrite(portNum, bufPtr, > bufSize)'. > > + interpreterProxy pop: 3. > "pop args and rcvr" > - interpreterProxy pop: 3. > "pop args and rcvr" > interpreterProxy pushInteger: bytesWritten. "push result" > + ^ 0! > - ^ 0 > - ! > > Item was changed: > ----- Method: ScratchPlugin>>primitiveIsHidden (in category 'os > functions') ----- > primitiveIsHidden > "Answer true if the file or folder with the given path should be > hidden from the user. On Windows, this is the value of the 'hidden' file > property." > > | pathOop src count fullPath result | > <export: true> > <var: 'fullPath' declareC: 'char fullPath[1000]'> > + <var: 'src' type: #'char *'> > - <var: 'src' declareC: 'char * src'> > > pathOop := interpreterProxy stackValue: 0. > > + interpreterProxy success: (interpreterProxy isBytes: pathOop). > - ((interpreterProxy isIntegerObject: pathOop) or: > - [(interpreterProxy isBytes: pathOop) not]) ifTrue: [ > - interpreterProxy success: false]. > > interpreterProxy failed ifTrue: [^ 0]. > > + src := self cCoerce: (interpreterProxy firstIndexableField: > pathOop) to: #'char *'. > - src := self cCoerce: (interpreterProxy firstIndexableField: > pathOop) to: 'char *'. > count := interpreterProxy stSizeOf: pathOop. > count >= 1000 ifTrue: [interpreterProxy success: false. ^ 0]. > 0 to: count - 1 do: [:i | fullPath at: i put: (src at: i)]. > fullPath at: count put: 0. > > + result := self IsFileOrFolderHidden: fullPath. > - result := self cCode: 'IsFileOrFolderHidden(fullPath)'. > > interpreterProxy pop: 2. "pop arg and rcvr" > interpreterProxy pushBool: result ~= 0. "push result" > + ^ 0! > - ^ 0 > - > - ! > > Item was changed: > ----- Method: ScratchPlugin>>primitiveOpenURL (in category 'os > functions') ----- > primitiveOpenURL > "Open a web browser on the given URL." > > | urlStr src urlOop count | > <export: true> > <var: 'urlStr' declareC: 'char urlStr[2000]'> > + <var: 'src' type: #'char *'> > - <var: 'src' declareC: 'char * src'> > > urlOop := interpreterProxy stackValue: 0. > > + interpreterProxy success: (interpreterProxy isBytes: urlOop). > - ((interpreterProxy isIntegerObject: urlOop) or: > - [(interpreterProxy isBytes: urlOop) not]) ifTrue: [ > - interpreterProxy success: false]. > > interpreterProxy failed ifTrue: [^ 0]. > > + src := self cCoerce: (interpreterProxy firstIndexableField: > urlOop) to: #'char *'. > - src := self cCoerce: (interpreterProxy firstIndexableField: > urlOop) to: 'char *'. > count := interpreterProxy stSizeOf: urlOop. > count >= 2000 ifTrue: [interpreterProxy success: false. ^ 0]. > 0 to: count - 1 do: [:i | urlStr at: i put: (src at: i)]. > urlStr at: count put: 0. > > + self OpenURL: urlStr. > - self cCode: 'OpenURL(urlStr)'. > > interpreterProxy pop: 1. "pop arg, leave rcvr on stack" > + ^ 0! > - ^ 0 > - > - ! > > Item was changed: > ----- Method: ScratchPlugin>>primitiveSetUnicodePasteBuffer (in category > 'os functions') ----- > primitiveSetUnicodePasteBuffer > "Set the Mac OS X Unicode paste buffer." > > | utf16 strOop count | > <export: true> > + <var: 'utf16' declareC: 'short *utf16'> > - <var: 'utf16' declareC: 'short int *utf16'> > > strOop := interpreterProxy stackValue: 0. > > + interpreterProxy success: (interpreterProxy isBytes: strOop). > - ((interpreterProxy isIntegerObject: strOop) or: > - [(interpreterProxy isBytes: strOop) not]) ifTrue: [ > - interpreterProxy success: false]. > > interpreterProxy failed ifTrue: [^ 0]. > > + utf16 := self cCoerce: (interpreterProxy firstIndexableField: > strOop) to: #'short *'. > - utf16 := self cCoerce: (interpreterProxy firstIndexableField: > strOop) to: 'short int *'. > count := interpreterProxy stSizeOf: strOop. > > + self SetUnicodePaste: utf16 Buffer: count. > - self cCode: 'SetUnicodePasteBuffer(utf16, count)'. > > interpreterProxy pop: 1. "pop arg, leave rcvr on stack" > + ^ 0! > - ^ 0 > - > - ! > > Item was changed: > ----- Method: ScratchPlugin>>primitiveSetWindowTitle (in category 'os > functions') ----- > primitiveSetWindowTitle > "Set the title of the Scratch window." > > | titleStr src titleOop count | > <export: true> > <var: 'titleStr' declareC: 'char titleStr[1000]'> > + <var: 'src' type: #'char *'> > - <var: 'src' declareC: 'char * src'> > > titleOop := interpreterProxy stackValue: 0. > > + interpreterProxy success: (interpreterProxy isBytes: titleOop). > - ((interpreterProxy isIntegerObject: titleOop) or: > - [(interpreterProxy isBytes: titleOop) not]) ifTrue: [ > - interpreterProxy success: false]. > > interpreterProxy failed ifTrue: [^ 0]. > > + src := self cCoerce: (interpreterProxy firstIndexableField: > titleOop) to: #'char *'. > - src := self cCoerce: (interpreterProxy firstIndexableField: > titleOop) to: 'char *'. > count := interpreterProxy stSizeOf: titleOop. > count >= 1000 ifTrue: [interpreterProxy success: false. ^ 0]. > 0 to: count - 1 do: [:i | titleStr at: i put: (src at: i)]. > titleStr at: count put: 0. > > + self SetScratchWindowTitle: titleStr. > - self cCode: 'SetScratchWindowTitle(titleStr)'. > > interpreterProxy pop: 1. "pop arg, leave rcvr on stack" > + ^ 0! > - ^ 0 > - > - ! > > Item was changed: > ----- Method: ScratchPlugin>>primitiveShortToLongPath (in category 'os > functions') ----- > primitiveShortToLongPath > "On Windows, convert a short file/path name into a long one. Fail > on other platforms." > > | shortPath longPath ptr shortPathOop result count resultOop | > <export: true> > <var: 'shortPath' declareC: 'char shortPath[1000]'> > <var: 'longPath' declareC: 'char longPath[1000]'> > + <var: 'ptr' type: #'char *'> > - <var: 'ptr' declareC: 'char * ptr'> > > shortPathOop := interpreterProxy stackValue: 0. > > + (interpreterProxy isBytes: shortPathOop) ifFalse: > + [interpreterProxy success: false. ^ 0]. > - ((interpreterProxy isIntegerObject: shortPathOop) or: > - [(interpreterProxy isBytes: shortPathOop) not]) ifTrue: [ > - interpreterProxy success: false. ^ 0]. > > + ptr := self cCoerce: (interpreterProxy firstIndexableField: > shortPathOop) to: #'char *'. > - ptr := self cCoerce: (interpreterProxy firstIndexableField: > shortPathOop) to: 'char *'. > count := interpreterProxy stSizeOf: shortPathOop. > count >= 1000 ifTrue: [interpreterProxy success: false. ^ 0]. > 0 to: count - 1 do: [:i | shortPath at: i put: (ptr at: i)]. > shortPath at: count put: 0. > > result := self cCode: 'WinShortToLongPath(shortPath, longPath, > 1000)'. > result = -1 ifTrue: [interpreterProxy success: false. ^ 0]. > > + count := self strlen: longPath. > - count := self cCode: 'strlen(longPath)'. > resultOop := interpreterProxy instantiateClass: interpreterProxy > classString indexableSize: count. > + ptr := self cCoerce: (interpreterProxy firstIndexableField: > resultOop) to: #'char *'. > - ptr := self cCoerce: (interpreterProxy firstIndexableField: > resultOop) to: 'char *'. > 0 to: count - 1 do: [:i | ptr at: i put: (longPath at: i)]. > > interpreterProxy pop: 2 thenPush: resultOop. "pop arg and rcvr, > push result" > + ^ 0! > - ^ 0 > - ! > > Item was changed: > ----- Method: SoundCodecPlugin>>primitiveGSMDecode (in category 'gsm > 6.10 codec') ----- > primitiveGSMDecode > > | dstIndex dst srcIndex src frameCount state srcSize dstSize > result srcDelta dstDelta | > <export: true> > dstIndex := interpreterProxy stackIntegerValue: 0. > + dst := interpreterProxy stackValue: 1. > - dst := interpreterProxy stackObjectValue: 1. > srcIndex := interpreterProxy stackIntegerValue: 2. > + src := interpreterProxy stackValue: 3. > - src := interpreterProxy stackObjectValue: 3. > frameCount := interpreterProxy stackIntegerValue: 4. > + state := interpreterProxy stackValue: 5. > - state := interpreterProxy stackObjectValue: 5. > interpreterProxy success: (interpreterProxy isWords: dst). > interpreterProxy success: (interpreterProxy isBytes: src). > interpreterProxy success: (interpreterProxy isBytes: state). > interpreterProxy failed ifTrue:[^ nil]. > srcSize := interpreterProxy slotSizeOf: src. > dstSize := (interpreterProxy slotSizeOf: dst) * 2. > + self cCode: 'gsmDecode(state + BaseHeaderSize, frameCount, src, > srcIndex, srcSize, dst, dstIndex, dstSize, &srcDelta, &dstDelta)'. > - self cCode: 'gsmDecode(state + 4, frameCount, src, srcIndex, > srcSize, dst, dstIndex, dstSize, &srcDelta, &dstDelta)'. > interpreterProxy failed ifTrue:[^ nil]. > result := interpreterProxy makePointwithxValue: srcDelta yValue: > dstDelta. > interpreterProxy failed ifTrue:[^ nil]. > + interpreterProxy pop: 6 thenPush: result! > - interpreterProxy pop: 6. > - interpreterProxy push: result. > - ! > > Item was changed: > ----- Method: SoundCodecPlugin>>primitiveGSMEncode (in category 'gsm > 6.10 codec') ----- > primitiveGSMEncode > > | dstIndex dst srcIndex src frameCount state srcSize dstSize > result srcDelta dstDelta | > <export: true> > dstIndex := interpreterProxy stackIntegerValue: 0. > + dst := interpreterProxy stackValue: 1. > - dst := interpreterProxy stackObjectValue: 1. > srcIndex := interpreterProxy stackIntegerValue: 2. > + src := interpreterProxy stackValue: 3. > - src := interpreterProxy stackObjectValue: 3. > frameCount := interpreterProxy stackIntegerValue: 4. > + state := interpreterProxy stackValue: 5. > - state := interpreterProxy stackObjectValue: 5. > interpreterProxy success: (interpreterProxy isBytes: dst). > interpreterProxy success: (interpreterProxy isWords: src). > interpreterProxy success: (interpreterProxy isBytes: state). > interpreterProxy failed ifTrue:[^ nil]. > srcSize := (interpreterProxy slotSizeOf: src) * 2. > dstSize := interpreterProxy slotSizeOf: dst. > + self cCode: 'gsmEncode(state + BaseHeaderSize, frameCount, src, > srcIndex, srcSize, dst, dstIndex, dstSize, &srcDelta, &dstDelta)'. > - self cCode: 'gsmEncode(state + 4, frameCount, src, srcIndex, > srcSize, dst, dstIndex, dstSize, &srcDelta, &dstDelta)'. > interpreterProxy failed ifTrue:[^ nil]. > result := interpreterProxy makePointwithxValue: srcDelta yValue: > dstDelta. > interpreterProxy failed ifTrue:[^ nil]. > + interpreterProxy pop: 6 thenPush: result! > - interpreterProxy pop: 6. > - interpreterProxy push: result. > - ! > > Item was changed: > ----- Method: SoundCodecPlugin>>primitiveGSMNewState (in category 'gsm > 6.10 codec') ----- > primitiveGSMNewState > > + | state | > - | stateBytes state | > <export: true> > - stateBytes := self cCode: 'gsmStateBytes()'. > state := interpreterProxy > + instantiateClass: interpreterProxy > classByteArray > + indexableSize: self gsmStateBytes. > + self gsmInitState: state + BaseHeaderSize. > + interpreterProxy pop: 1 thenPush: state! > - instantiateClass: interpreterProxy classByteArray > - indexableSize: stateBytes. > - self cCode: 'gsmInitState(state + 4)'. > - interpreterProxy pop: 1. > - interpreterProxy push: state. > - ! > > Item was changed: > ----- Method: SpurMemoryManager>>become:with:twoWay:copyHash: (in > category 'become api') ----- > become: array1 with: array2 twoWay: twoWayFlag copyHash: copyHashFlag > "All references to each object in array1 are swapped with all > references to the > corresponding object in array2. That is, all pointers to one > object are replaced > with with pointers to the other. The arguments must be arrays of > the same length. > Answers PrimNoErr if the primitive succeeds, otherwise a relevant > error code." > "Implementation: Uses lazy forwarding to defer updating references > until message send." > | ec | > self assert: becomeEffectsFlags = 0. > self leakCheckBecome ifTrue: > [self runLeakCheckerForFullGC: true]. > (self isArray: array1) ifFalse: > [^PrimErrBadReceiver]. > ((self isArray: array2) > and: [(self numSlotsOf: array1) = (self numSlotsOf: array2)]) > ifFalse: > [^PrimErrBadArgument]. > (twoWayFlag or: [copyHashFlag]) > ifTrue: > [ec := self containsOnlyValidBecomeObjects: array1 > and: array2] > ifFalse: > [self followForwardedObjectFields: array2 toDepth: > 0. > ec := self containsOnlyValidBecomeObjects: array1]. > ec ~= 0 ifTrue: [^ec]. > > coInterpreter preBecomeAction. > twoWayFlag > ifTrue: > [self innerBecomeObjectsIn: array1 and: array2 > copyHash: copyHashFlag] > ifFalse: > [self innerBecomeObjectsIn: array1 to: array2 > copyHash: copyHashFlag]. > self postBecomeScanClassTable. > + self followSpecialObjectsOop. > coInterpreter postBecomeAction: becomeEffectsFlags. > becomeEffectsFlags := 0. > > self leakCheckBecome ifTrue: > [self runLeakCheckerForFullGC: true]. > > ^PrimNoErr "success"! > > Item was changed: > ----- Method: SpurMemoryManager>>eliminateAndFreeForwarders (in category > 'gc - global') ----- > eliminateAndFreeForwarders > "As the final phase of global garbage collect, sweep the heap to > follow > forwarders, then free forwarders, coalescing with free space as > we go." > | lowestFree firstFree lastFree | > <inline: false> > self flag: 'this might be unnecessary. if we were to track > firstFreeChunk we might be able to repeat the > freeUnmarkedObjectsAndSortAndCoalesceFreeSpace; compact cycle until > firstFreeChunk reaches a fixed point'. > self assert: (self isForwarded: nilObj) not. > self assert: (self isForwarded: falseObj) not. > self assert: (self isForwarded: trueObj) not. > self assert: (self isForwarded: self freeListsObj) not. > self assert: (self isForwarded: hiddenRootsObj) not. > self assert: (self isForwarded: classTableFirstPage) not. > + self followSpecialObjectsOop. > - (self isForwarded: specialObjectsOop) ifTrue: > - [specialObjectsOop := self followForwarded: > specialObjectsOop]. > "N.B. we don't have to explicitly do mapInterpreterOops > since the scavenge below will do it." > self followForwardedObjStacks. > scavenger followRememberedForwardersAndForgetFreeObjects. > self doScavenge: DontTenureButDoUnmark. > self checkFreeSpace. > lowestFree := 0. > "sweep, following forwarders in all live objects, and finding the > first forwarder." > self allOldSpaceEntitiesDo: > [:o| > ((self isFreeObject: o) or: [self isForwarded: o]) > ifTrue: > [lowestFree = 0 ifTrue: > [lowestFree := o]] > ifFalse: > [0 to: (self numPointerSlotsOf: o) - 1 do: > [:i| | f | > f := self fetchPointer: i > ofObject: o. > (self isOopForwarded: f) ifTrue: > [f := self > followForwarded: f. > + self storePointer: i > ofObject: o withValue: f]]]]. > - self assert: (self > isYoung: f) not. > - self > storePointerUnchecked: i ofObject: o withValue: f]]]]. > self checkFreeSpace. > lowestFree = 0 ifTrue: "yeah, right..." > [^self]. > firstFree := lastFree := 0. > "Sweep from lowest forwarder, coalescing runs of forwarders and > free objects." > self allOldSpaceEntitiesFrom: lowestFree do: > [:o| > (self isFreeObject: o) > ifTrue: "two cases, isolated, in which case leave > alone, or adjacent, > in which case, remove from free > set prior to coalesce." > [| next | > next := self objectAfter: o limit: > endOfMemory. > self assert: (next = endOfMemory or: > [(self isFreeObject: next) not]). "free chunks have already been coalesced" > (firstFree ~= 0 > or: [next ~= endOfMemory and: [self > isForwarded: next]]) ifTrue: > [firstFree = 0 ifTrue: > [firstFree := o]. > lastFree := o. > self detachFreeObject: o. > self checkFreeSpace]] > ifFalse: > [(self isForwarded: o) > ifTrue: > [firstFree = 0 ifTrue: > [firstFree := o]. > lastFree := o] > ifFalse: > [firstFree ~= 0 ifTrue: > [| start bytes | > start := self > startOfObject: firstFree. > bytes := (self > addressAfter: lastFree) - start. > self > addFreeChunkWithBytes: bytes at: start. > self > checkFreeSpace]. > firstFree := 0]]]. > firstFree ~= 0 ifTrue: > [| start bytes | > start := self startOfObject: firstFree. > bytes := (self addressAfter: lastFree) - start. > self addFreeChunkWithBytes: bytes at: start]. > self checkFreeSpace! > > Item was added: > + ----- Method: SpurMemoryManager>>followSpecialObjectsOop (in category > 'become implementation') ----- > + followSpecialObjectsOop > + (self isForwarded: specialObjectsOop) ifTrue: > + [specialObjectsOop := self followForwarded: > specialObjectsOop]! > > Item was changed: > ----- Method: StackInterpreter>>markAndTraceStackPage: (in category > 'object memory support') ----- > markAndTraceStackPage: thePage > | theSP theFP frameRcvrOffset callerFP oop | > <var: #thePage type: #'StackPage *'> > <var: #theSP type: #'char *'> > <var: #theFP type: #'char *'> > <var: #frameRcvrOffset type: #'char *'> > <var: #callerFP type: #'char *'> > <inline: false> > > self assert: (stackPages isFree: thePage) not. > self assert: thePage trace ~= StackPageTraced. > thePage trace: StackPageTraced. > > theSP := thePage headSP. > theFP := thePage headFP. > "Skip the instruction pointer on top of stack of inactive pages." > thePage = stackPage ifFalse: > [theSP := theSP + BytesPerWord]. > [frameRcvrOffset := self frameReceiverOffset: theFP. > [theSP <= frameRcvrOffset] whileTrue: > [oop := stackPages longAt: theSP. > + (objectMemory isOopForwarded: oop) ifTrue: > + [oop := objectMemory followForwarded: oop. > + stackPages longAt: theSP put: oop]. > (objectMemory isImmediate: oop) ifFalse: > [objectMemory markAndTrace: oop]. > theSP := theSP + BytesPerWord]. > (self frameHasContext: theFP) ifTrue: > [self assert: (objectMemory isContext: (self frameContext: > theFP)). > objectMemory markAndTrace: (self frameContext: theFP)]. > objectMemory markAndTrace: (self iframeMethod: theFP). > (callerFP := self frameCallerFP: theFP) ~= 0] whileTrue: > [theSP := theFP + FoxCallerSavedIP + BytesPerWord. > theFP := callerFP]. > theSP := theFP + FoxCallerSavedIP. "caller ip is > frameCallerContext in a base frame" > [theSP <= thePage baseAddress] whileTrue: > [oop := stackPages longAt: theSP. > + (objectMemory isOopForwarded: oop) ifTrue: > + [oop := objectMemory followForwarded: oop. > + stackPages longAt: theSP put: oop]. > (objectMemory isImmediate: oop) ifFalse: > [objectMemory markAndTrace: oop]. > theSP := theSP + BytesPerWord]! > > Item was changed: > ----- Method: ThreadedFFIPlugin>>ffiArgument:Spec:Class:in: (in category > 'callout support') ----- > ffiArgument: oop Spec: argSpec Class: argClass in: calloutState > "Callout support. Prepare the given oop as argument. > argSpec defines the compiled spec for the argument. > argClass (if non-nil) defines the required (super)class for the > argument." > <var: #calloutState type: #'CalloutState *'> > | valueOop oopClass isStruct nilOop | > <inline: false> > oopClass := interpreterProxy fetchClassOf: oop. "Prefetch class > (we'll need it)" > nilOop := interpreterProxy nilObject. > "Do the necessary type checks" > argClass = nilOop ifFalse:[ > "Type check 1: > Is the required class of the argument a subclass of > ExternalStructure?" > (interpreterProxy includesBehavior: argClass > ThatOf: interpreterProxy > classExternalStructure) > ifFalse:[^FFIErrorWrongType]. "Nope. Fail." > "Type check 2: > Is the class of the argument a subclass of required class?" > ((nilOop = oop) or:[interpreterProxy includesBehavior: > oopClass ThatOf: argClass]) > ifFalse:[^FFIErrorCoercionFailed]. "Nope. > Fail." > "Okay, we've passed the type check (so far)" > ]. > > "Check if oopClass is a subclass of ExternalStructure. > If this is the case we'll work on it's handle and not the actual > oop." > isStruct := false. > + ((interpreterProxy isImmediate: oop) or:[oop = nilOop]) ifFalse:[ > + "#isPointers: will fail if oop is immediate so don't even > attempt to use it" > - ((interpreterProxy isIntegerObject: oop) or:[oop = nilOop]) > ifFalse:[ > - "#isPointers: will fail if oop is SmallInteger so don't > even attempt to use it" > (interpreterProxy isPointers: oop) > ifTrue:[isStruct := interpreterProxy > includesBehavior: oopClass > ThatOf: > interpreterProxy classExternalStructure. > (argClass = nilOop or:[isStruct]) > > ifFalse:[^FFIErrorCoercionFailed]]. > "note: the test for #isPointers: above should speed up > execution since no pointer type ST objects are allowed in external calls > and thus if #isPointers: is true then the arg must be ExternalStructure to > work. If it isn't then the code fails anyways so speed isn't an issue" > ]. > > "Determine valueOop (e.g., the actual oop to pass as argument)" > isStruct > ifTrue:[valueOop := interpreterProxy fetchPointer: 0 > ofObject: oop] > ifFalse:[valueOop := oop]. > > "Fetch and check the contents of the compiled spec" > - (interpreterProxy isIntegerObject: argSpec) > - ifTrue:[^FFIErrorWrongType]. > (interpreterProxy isWords: argSpec) > ifFalse:[^FFIErrorWrongType]. > calloutState ffiArgSpecSize: (interpreterProxy slotSizeOf: > argSpec). > calloutState ffiArgSpecSize = 0 ifTrue:[^FFIErrorWrongType]. > calloutState ffiArgSpec: (interpreterProxy firstIndexableField: > argSpec). > calloutState ffiArgHeader: (interpreterProxy longAt: calloutState > ffiArgSpec). > > "Do the actual preparation of the argument" > "Note: Order is important since FFIFlagStructure + FFIFlagPointer > is used to represent 'typedef void* VoidPointer' and VoidPointer really is > *struct* not pointer." > > (calloutState ffiArgHeader anyMask: FFIFlagStructure) ifTrue:[ > "argument must be ExternalStructure" > isStruct ifFalse:[^FFIErrorCoercionFailed]. > (calloutState ffiArgHeader anyMask: FFIFlagAtomic) > ifTrue:[^FFIErrorWrongType]. "bad combination" > ^self ffiPushStructureContentsOf: valueOop in: > calloutState]. > > (calloutState ffiArgHeader anyMask: FFIFlagPointer) ifTrue:[ > + "no integers (or characters) for pointers please" > + (interpreterProxy isImmediate: oop) > - "no integers for pointers please" > - (interpreterProxy isIntegerObject: oop) > ifTrue:[^FFIErrorIntAsPointer]. > > "but allow passing nil pointer for any pointer type" > oop = nilOop ifTrue:[^self ffiPushPointer: nil in: > calloutState]. > > "argument is reference to either atomic or structure type" > (calloutState ffiArgHeader anyMask: FFIFlagAtomic) ifTrue:[ > isStruct "e.g., ExternalData" > ifTrue:[^self ffiAtomicStructByReference: > oop Class: oopClass in: calloutState] > ifFalse:[^self ffiAtomicArgByReference: > oop Class: oopClass in: calloutState]. > "********* NOTE: The above uses 'oop' not > 'valueOop' (for ExternalData) ******" > ]. > > "Needs to be external structure here" > isStruct ifFalse:[^FFIErrorCoercionFailed]. > ^self ffiPushPointerContentsOf: valueOop in: calloutState]. > > (calloutState ffiArgHeader anyMask: FFIFlagAtomic) ifTrue:[ > "argument is atomic value" > ^self ffiArgByValue: valueOop in: calloutState]. > "None of the above - bad spec" > ^FFIErrorWrongType! > > Item was changed: > ----- Method: ThreadedFFIPlugin>>ffiContentsOfHandle:errCode: (in > category 'callout support') ----- > ffiContentsOfHandle: oop errCode: errCode > "Make sure that the given oop is a valid external handle" > <inline: true> > + ((interpreterProxy isBytes: oop) > + and: [(interpreterProxy byteSizeOf: oop) = 4]) ifFalse: > + [^self ffiFail: errCode]. > - (interpreterProxy isIntegerObject: oop) > - ifTrue:[^self ffiFail: errCode]. > - (interpreterProxy isBytes: oop) > - ifFalse:[^self ffiFail: errCode]. > - ((interpreterProxy byteSizeOf: oop) == 4) > - ifFalse:[^self ffiFail: errCode]. > ^interpreterProxy fetchPointer: 0 ofObject: oop! > > Item was changed: > ----- Method: ThreadedFFIPlugin>>ffiIntegerValueOf: (in category > 'callout support') ----- > ffiIntegerValueOf: oop > "Support for generic callout. Return an integer value that is > coerced as C would do." > | oopClass | > <inline: true> > + (interpreterProxy isIntegerObject: oop) ifTrue: > + [^interpreterProxy integerValueOf: oop]. > + oop = interpreterProxy nilObject ifTrue: [^0]. "@@: should we > really allow this????" > + oop = interpreterProxy falseObject ifTrue: [^0]. > + oop = interpreterProxy trueObject ifTrue: [^1]. > - (interpreterProxy isIntegerObject: oop) ifTrue:[^interpreterProxy > integerValueOf: oop]. > - oop = interpreterProxy nilObject ifTrue:[^0]. "@@: should we > really allow this????" > - oop = interpreterProxy falseObject ifTrue:[^0]. > - oop = interpreterProxy trueObject ifTrue:[^1]. > oopClass := interpreterProxy fetchClassOf: oop. > + oopClass = interpreterProxy classFloat ifTrue: > + [^(interpreterProxy floatValueOf: oop) asInteger]. > + oopClass = interpreterProxy classCharacter ifTrue: > + [^interpreterProxy characterValueOf: oop]. > + oopClass = interpreterProxy classLargePositiveInteger ifTrue: > + [^interpreterProxy positive32BitValueOf: oop]. > + ^interpreterProxy signedMachineIntegerValueOf: oop "<- will fail > if not integer"! > - oopClass = interpreterProxy classFloat > - ifTrue:[^(interpreterProxy floatValueOf: oop) asInteger]. > - oopClass = interpreterProxy classCharacter > - ifTrue:[^interpreterProxy fetchInteger: 0 ofObject: oop]. > - oopClass = interpreterProxy classLargePositiveInteger > - ifTrue:[^interpreterProxy positive32BitValueOf: oop]. > - ^interpreterProxy signed32BitValueOf: oop "<- will fail if not > integer"! > > Item was changed: > ----- Method: ThreadedFFIPlugin>>ffiValidateExternalData:AtomicType: (in > category 'callout support') ----- > ffiValidateExternalData: oop AtomicType: atomicType > "Validate if the given oop (an instance of ExternalData) can be > passed as a pointer to the given atomic type." > | ptrType specOop spec specType | > <inline: true> > ptrType := interpreterProxy fetchPointer: 1 ofObject: oop. > + ((interpreterProxy isPointers: ptrType) > + and: [(interpreterProxy slotSizeOf: ptrType) >= 2]) ifFalse: > + [^FFIErrorWrongType]. > - (interpreterProxy isIntegerObject: ptrType) > - ifTrue:[^FFIErrorWrongType]. > - (interpreterProxy isPointers: ptrType) > - ifFalse:[^FFIErrorWrongType]. > - (interpreterProxy slotSizeOf: ptrType) < 2 > - ifTrue:[^FFIErrorWrongType]. > specOop := interpreterProxy fetchPointer: 0 ofObject: ptrType. > + ((interpreterProxy isWords: specOop) > + and: [(interpreterProxy slotSizeOf: specOop) > 0]) ifFalse: > + [^FFIErrorWrongType]. > - (interpreterProxy isIntegerObject: specOop) > - ifTrue:[^FFIErrorWrongType]. > - (interpreterProxy isWords: specOop) > - ifFalse:[^FFIErrorWrongType]. > - (interpreterProxy slotSizeOf: specOop) = 0 > - ifTrue:[^FFIErrorWrongType]. > spec := interpreterProxy fetchPointer: 0 ofObject: specOop. > + (self isAtomicType: spec) ifFalse: > + [^FFIErrorWrongType]. > - (self isAtomicType: spec) > - ifFalse:[^FFIErrorWrongType]. > specType := self atomicTypeOf: spec. > + specType ~= atomicType ifTrue: > + "Allow for signed/unsigned conversion but nothing else. > + See FFIConstants class>>#initializeTypeConstants" > + [(atomicType >= FFITypeUnsignedByte > + and: [atomicType <= FFITypeSignedChar > + and: [(atomicType >> 1) = (specType >> 1)]]) ifFalse: > + [^FFIErrorCoercionFailed]]. > - specType ~= atomicType ifTrue:[ > - "allow for signed/unsigned conversion but nothing else" > - (atomicType > FFITypeBool and:[atomicType < > FFITypeSingleFloat]) > - ifFalse:[^FFIErrorCoercionFailed]. > - ((atomicType >> 1) = (specType >> 1)) > - ifFalse:[^FFIErrorCoercionFailed]]. > ^0! > > Item was changed: > ----- Method: UnicodePlugin>>asCString: (in category 'utility') ----- > asCString: stringOop > "Return a C char * pointer into the given Squeak string object." > "Warning: A Squeak string is not necessarily null-terminated." > "Warning: the resulting pointer may become invalid after the next > garbage collection and should only be using during the current primitive > call." > > + <returnTypeC: #'char *'> > - <inline: false> > - <returnTypeC: 'char *'> > > + interpreterProxy success: (interpreterProxy isBytes: stringOop). > - ((interpreterProxy isIntegerObject: stringOop) or: > - [(interpreterProxy isBytes: stringOop) not]) ifTrue: [ > - interpreterProxy success: false. > - ^ 0]. > > + ^interpreterProxy failed > + ifTrue: [0] > + ifFalse: [self cCoerce: (interpreterProxy > firstIndexableField: stringOop) to: #'char *']! > - ^ self cCoerce: (interpreterProxy firstIndexableField: stringOop) > to: 'char *' > - ! > > Item was changed: > ----- Method: UnicodePlugin>>cWordsPtr:minSize: (in category 'utility') > ----- > cWordsPtr: oop minSize: minSize > "Return a C pointer to the first indexable field of oop, which > must be a words object of at least the given size." > "Warning: the resulting pointer may become invalid after the next > garbage collection and should only be using during the current primitive > call." > > + <returnTypeC: #'void *'> > - <inline: false> > - <returnTypeC: 'void *'> > > interpreterProxy success: > + ((interpreterProxy isWords: oop) > + and: [(interpreterProxy stSizeOf: oop) >= minSize]). > + ^interpreterProxy failed > + ifTrue: [0] > + ifFalse: [self cCoerce: (interpreterProxy > firstIndexableField: oop) to: #'void *']! > - ((interpreterProxy isIntegerObject: oop) not and: > - [(interpreterProxy isWords: oop) and: > - [(interpreterProxy stSizeOf: oop) >= minSize]]). > - interpreterProxy failed ifTrue: [^ 0]. > - ^ self cCoerce: (interpreterProxy firstIndexableField: oop) to: > 'void *' > - ! > > Item was changed: > ----- Method: UnicodePlugin>>copyString:into:max: (in category > 'utility') ----- > copyString: stringOop into: stringPtr max: maxChars > "Copy the Squeak string into a temporary buffer and add a > terminating null byte. Fail if there is not sufficent space in the buffer." > > | srcPtr count | > <inline: false> > + <var: 'stringPtr' type: #'char *'> > + <var: 'srcPtr' type: #'char *'> > - <var: 'stringPtr' declareC: 'char *stringPtr'> > - <var: 'srcPtr' declareC: 'char *srcPtr'> > > + ((interpreterProxy isBytes: stringOop) > + and: [(count := interpreterProxy stSizeOf: stringOop) < maxChars]) > ifFalse: > + [interpreterProxy success: false. > - ((interpreterProxy isIntegerObject: stringOop) or: > - [(interpreterProxy isBytes: stringOop) not]) ifTrue: [ > - interpreterProxy success: false. > ^ 0]. > > + srcPtr := self cCoerce: (interpreterProxy firstIndexableField: > stringOop) to: #'char *'. > - count := interpreterProxy stSizeOf: stringOop. > - count < maxChars ifFalse: [ > - interpreterProxy success: false. > - ^ 0]. > - > - srcPtr := self cCoerce: (interpreterProxy firstIndexableField: > stringOop) to: 'char *'. > 1 to: count do: [:i | self cCode: '*stringPtr++ = *srcPtr++']. > self cCode: '*stringPtr = 0'. > + ^ 0! > - ^ 0 > - ! > > Item was changed: > ----- Method: UnicodePlugin>>primitiveClipboardGet (in category > 'primitives') ----- > primitiveClipboardGet > "Read the clipboard into the given UTF16 string.." > > | utf16Oop utf16 utf16Length count | > <export: true> > + <var: 'utf16' type: #'unsigned short *'> > - <var: 'utf16' declareC: 'unsigned short *utf16'> > > utf16Oop := interpreterProxy stackValue: 0. > > + interpreterProxy success: (interpreterProxy isWords: utf16Oop). > - ((interpreterProxy isIntegerObject: utf16Oop) or: > - [(interpreterProxy isWords: utf16Oop) not]) ifTrue: [ > - interpreterProxy success: false]. > > interpreterProxy failed ifTrue: [^ 0]. > > + utf16 := self cCoerce: (interpreterProxy firstIndexableField: > utf16Oop) to: #'unsigned short *'. > - utf16 := self cCoerce: (interpreterProxy firstIndexableField: > utf16Oop) to: 'unsigned short *'. > utf16Length := 2 * (interpreterProxy stSizeOf: utf16Oop). > > + count := self unicodeClipboard: utf16 Get: utf16Length. > - count := self cCode: 'unicodeClipboardGet(utf16, utf16Length)'. > > interpreterProxy pop: 2 > thenPush: (interpreterProxy integerObjectOf: count). > > + ^ 0! > - ^ 0 > - ! > > Item was changed: > ----- Method: UnicodePlugin>>primitiveClipboardPut (in category > 'primitives') ----- > primitiveClipboardPut > "Set the clipboard to a UTF16 string.." > > | strOop count utf16 utf16Length | > <export: true> > + <var: 'utf16' type: #'unsigned short *'> > - <var: 'utf16' declareC: 'unsigned short *utf16'> > > strOop := interpreterProxy stackValue: 1. > count := interpreterProxy stackIntegerValue: 0. > > + interpreterProxy success: (interpreterProxy isWords: strOop). > - ((interpreterProxy isIntegerObject: strOop) or: > - [(interpreterProxy isWords: strOop) not]) ifTrue: [ > - interpreterProxy success: false]. > > interpreterProxy failed ifTrue: [^ 0]. > > + utf16 := self cCoerce: (interpreterProxy firstIndexableField: > strOop) to: #'unsigned short *'. > - utf16 := self cCoerce: (interpreterProxy firstIndexableField: > strOop) to: 'unsigned short *'. > utf16Length := 2 * (interpreterProxy stSizeOf: strOop). > ((count >= 0) & (count < utf16Length)) ifTrue: [utf16Length := > count]. > > + self unicodeClipboard: utf16 Put: utf16Length. > - self cCode: 'unicodeClipboardPut(utf16, utf16Length)'. > > interpreterProxy pop: 2. "pop args, leave rcvr on stack" > + ^ 0! > - ^ 0 > - ! > > Item was changed: > ----- Method: WeDoPlugin>>primRead (in category 'translated prims') ----- > primRead > "Read data from the WeDo port into the given buffer (a ByteArray > or String). Answer the number of bytes read." > > | bufOop bufPtr bufSize byteCount | > <export: true> > <var: 'bufPtr' declareC: 'char *bufPtr'> > > bufOop := interpreterProxy stackValue: 0. > + (interpreterProxy isBytes: bufOop) ifFalse: [ > - ((interpreterProxy isIntegerObject: bufOop) or: > - [(interpreterProxy isBytes: bufOop) not]) ifTrue: [ > interpreterProxy success: false. > ^ 0]. > bufPtr := self cCoerce: (interpreterProxy firstIndexableField: > bufOop) to: 'char *'. > bufSize := interpreterProxy stSizeOf: bufOop. > interpreterProxy failed ifTrue: [^ 0]. > > byteCount := self cCode: 'WeDoRead(bufPtr, bufSize)'. > byteCount < 0 ifTrue: [ > interpreterProxy success: false. > ^ 0]. > > interpreterProxy pop: 2. > "pop args and rcvr" > interpreterProxy pushInteger: byteCount. "push result" > ^ 0 > ! > > Item was changed: > ----- Method: WeDoPlugin>>primWrite (in category 'translated prims') > ----- > primWrite > "Write data to the WeDo port from the given buffer (a ByteArray or > String). Answer the number of bytes written." > > | bufOop bufPtr bufSize byteCount | > <export: true> > <var: 'bufPtr' declareC: 'char *bufPtr'> > > bufOop := interpreterProxy stackValue: 0. > + (interpreterProxy isBytes: bufOop) ifFalse: [ > - ((interpreterProxy isIntegerObject: bufOop) or: > - [(interpreterProxy isBytes: bufOop) not]) ifTrue: [ > interpreterProxy success: false. > ^ 0]. > bufPtr := self cCoerce: (interpreterProxy firstIndexableField: > bufOop) to: 'char *'. > bufSize := interpreterProxy stSizeOf: bufOop. > interpreterProxy failed ifTrue: [^ 0]. > > byteCount := self cCode: 'WeDoWrite(bufPtr, bufSize)'. > byteCount < 0 ifTrue: [ > interpreterProxy success: false. > ^ 0]. > > interpreterProxy pop: 2. > "pop args and rcvr" > interpreterProxy pushInteger: byteCount. "push result" > ^ 0 > ! > > -- best, Eliot

2 1

[commit][2864] Add Newspeak Spur stack src & macbuild.
by commits＠squeakvm.org 31 Jan '14

31 Jan '14

Revision: 2864 Author: eliot Date: 2014-01-31 10:41:22 -0800 (Fri, 31 Jan 2014) Log Message: ----------- Add Newspeak Spur stack src & macbuild. Modified Paths: -------------- branches/Cog/scripts/findUnofficialFiles Added Paths: ----------- branches/Cog/nsspurstackbuild/ branches/Cog/nsspurstackbuild/macbuild/ branches/Cog/nsspurstackbuild/macbuild/CoreVM.plist branches/Cog/nsspurstackbuild/macbuild/CoreVM.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/CroquetPlugin/ branches/Cog/nsspurstackbuild/macbuild/CroquetPlugin/CroquetPlugin.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/CroquetPlugin/CroquetPlugin.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/CroquetPlugin/CroquetPlugin_Prefix.pch branches/Cog/nsspurstackbuild/macbuild/CroquetPlugin/English.lproj/ branches/Cog/nsspurstackbuild/macbuild/CroquetPlugin/English.lproj/InfoPlist.strings branches/Cog/nsspurstackbuild/macbuild/CroquetPlugin/Info.plist branches/Cog/nsspurstackbuild/macbuild/FloatArrayPlugin/ branches/Cog/nsspurstackbuild/macbuild/FloatArrayPlugin/English.lproj/ branches/Cog/nsspurstackbuild/macbuild/FloatArrayPlugin/English.lproj/InfoPlist.strings branches/Cog/nsspurstackbuild/macbuild/FloatArrayPlugin/FloatArrayPlugin.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/FloatArrayPlugin/FloatArrayPlugin.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/FloatArrayPlugin/FloatArrayPlugin_Prefix.pch branches/Cog/nsspurstackbuild/macbuild/FloatArrayPlugin/Info.plist branches/Cog/nsspurstackbuild/macbuild/FloatMathPlugin/ branches/Cog/nsspurstackbuild/macbuild/FloatMathPlugin/English.lproj/ branches/Cog/nsspurstackbuild/macbuild/FloatMathPlugin/English.lproj/InfoPlist.strings branches/Cog/nsspurstackbuild/macbuild/FloatMathPlugin/FloatMathPlugin.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/FloatMathPlugin/FloatMathPlugin.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/FloatMathPlugin/FloatMathPlugin_Prefix.pch branches/Cog/nsspurstackbuild/macbuild/FloatMathPlugin/Info.plist branches/Cog/nsspurstackbuild/macbuild/HowToBuild branches/Cog/nsspurstackbuild/macbuild/Mpeg3Plugin/ branches/Cog/nsspurstackbuild/macbuild/Mpeg3Plugin/Mpeg3Plugin-Info.plist branches/Cog/nsspurstackbuild/macbuild/Mpeg3Plugin/Mpeg3Plugin.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/Mpeg3Plugin/Mpeg3Plugin.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/SqueakFFIPrims/ branches/Cog/nsspurstackbuild/macbuild/SqueakFFIPrims/Info.plist branches/Cog/nsspurstackbuild/macbuild/SqueakFFIPrims/SqueakFFI.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/SqueakFFIPrims/SqueakFFI.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/SqueakFFIPrims/SqueakFFIPrims_Prefix.pch branches/Cog/nsspurstackbuild/macbuild/Template/ branches/Cog/nsspurstackbuild/macbuild/Template/HowToMakeANewPlugin.txt branches/Cog/nsspurstackbuild/macbuild/Template/Info.plist branches/Cog/nsspurstackbuild/macbuild/Template/Template.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/Template/Template.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/Template/Template_Prefix.pch branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/ branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/English.lproj/ branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/English.lproj/InfoPlist.strings branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/Info.plist branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/PkgInfo branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/UnixOSProcessPlugin.xcodeproj/ branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/UnixOSProcessPlugin.xcodeproj/eliot.mode1 branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/UnixOSProcessPlugin.xcodeproj/eliot.pbxuser branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/UnixOSProcessPlugin.xcodeproj/project.pbxproj branches/Cog/nsspurstackbuild/macbuild/UnixOSProcessPlugin/makeit branches/Cog/nsspurstackbuild/macbuild/makeall branches/Cog/nsspurstackbuild/macbuild/makeclean branches/Cog/nsspurstackbuild/macbuild/makevm branches/Cog/nsspurstackbuild/macbuild/mkNamedPrims.sh branches/Cog/nsspurstackbuild/macbuild/mvm branches/Cog/nsspurstackbuild/macbuild/plugins.ext branches/Cog/nsspurstackbuild/macbuild/plugins.int branches/Cog/nsspurstackbuild/macbuild/resources/ branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/ branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/Contents/ branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/Contents/Info.plist branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/Contents/MacOS/ branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/Contents/MacOS/FloatMathPlugin branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/Contents/PkgInfo branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/Contents/Resources/ branches/Cog/nsspurstackbuild/macbuild/resources/FloatMathPlugin.bundle/Contents/Resources/SqueakPlugin.icns branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/ branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/Contents/ branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/Contents/Info.plist branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/Contents/MacOS/ branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/Contents/MacOS/LocalePlugin branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/Contents/PkgInfo branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/Contents/Resources/ branches/Cog/nsspurstackbuild/macbuild/resources/LocalePlugin.bundle/Contents/Resources/SqueakPlugin.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/ branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/Croquet.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/GreenCogSqueak.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/Newspeak Virtual Machine.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/NewspeakDocuments.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/Squeak VM.r branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/Squeak.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/SqueakChanges.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/SqueakGeneric.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/SqueakImage.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/SqueakPlugin.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/SqueakProject.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/SqueakScript.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/SqueakSources.icns branches/Cog/nsspurstackbuild/macbuild/resources/ProjectBuilder/Teleplace.icns branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/Contents/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/Contents/Info.plist branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/Contents/MacOS/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/Contents/MacOS/SpellCheck branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/Contents/Resources/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/Contents/Resources/English.lproj/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Frameworks/SpellCheck.bundle/Contents/Resources/English.lproj/InfoPlist.strings branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Info.plist branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/MacOS/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/MacOS/SpellingPlugin branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/PkgInfo branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Resources/ branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Resources/InfoPlist.strings branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Resources/PkgInfo branches/Cog/nsspurstackbuild/macbuild/resources/SpellingPlugin.bundle/Contents/Resources/SqueakPlugin.icns branches/Cog/nsspurstacksrc/ branches/Cog/nsspurstacksrc/examplePlugins.ext branches/Cog/nsspurstacksrc/examplePlugins.int branches/Cog/nsspurstacksrc/vm/ branches/Cog/nsspurstacksrc/vm/exampleSqNamedPrims.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 Property Changed: ---------------- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h branches/Cog/spurstackbuild/macbuild/makeclean branches/Cog/stackbuild/macbuild/makeclean Property changes on: branches/Cog/nsspurstackbuild/macbuild ___________________________________________________________________ Added: svn:ignore + build *.app *.bundle LOG* *.sources sqNamedPrims.h Added: branches/Cog/nsspurstackbuild/macbuild/CoreVM.plist =================================================================== --- branches/Cog/nsspurstackbuild/macbuild/CoreVM.plist (rev 0) +++ branches/Cog/nsspurstackbuild/macbuild/CoreVM.plist 2014-01-31 18:41:22 UTC (rev 2864) @@ -0,0 +1,221 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd"> +<plist version="1.0"> +<dict> + <key>BuildMachineOSBuild</key> + <string>10J4138</string> + <key>CFBundleDevelopmentRegion</key> + <string>English</string> + <key>CFBundleDocumentTypes</key> + <array> + <dict> + <key>CFBundleTypeExtensions</key> + <array> + <string>image</string> + </array> + <key>CFBundleTypeIconFile</key> + <string>Newspeak Virtual Machine.icns</string> + <key>CFBundleTypeName</key> + <string>Newspeak Image File</string> + <key>CFBundleTypeOSTypes</key> + <array> + <string>STim</string> + </array> + <key>CFBundleTypeRole</key> + <string>Editor</string> + </dict> + <dict> + <key>CFBundleTypeExtensions</key> + <array> + <string>sources</string> + </array> + <key>CFBundleTypeIconFile</key> + <string>Newspeak Virtual Machine.icns</string> + <key>CFBundleTypeName</key> + <string>Newspeak Sources File</string> + <key>CFBundleTypeOSTypes</key> + <array> + <string>STso</string> + </array> + <key>CFBundleTypeRole</key> + <string>Editor</string> + </dict> + <dict> + <key>CFBundleTypeExtensions</key> + <array> + <string>changes</string> + </array> + <key>CFBundleTypeIconFile</key> + <string>Newspeak Virtual Machine.icns</string> + <key>CFBundleTypeName</key> + <string>Newspeak Changes File</string> + <key>CFBundleTypeOSTypes</key> + <array> + <string>STch</string> + </array> + <key>CFBundleTypeRole</key> + <string>Editor</string> + </dict> + <dict> + <key>CFBundleTypeExtensions</key> + <array> + <string>bundle</string> + </array> + <key>CFBundleTypeIconFile</key> + <string>SqueakPlugin.icns</string> + <key>CFBundleTypeName</key> + <string>Squeak Plugin</string> + <key>CFBundleTypeOSTypes</key> + <array> + <string>BNDL</string> + </array> + <key>CFBundleTypeRole</key> + <string>Editor</string> + </dict> + </array> + <key>CFBundleExecutable</key> + <string>Newspeak Virtual Machine</string> + <key>CFBundleGetInfoString</key> + <string>Newspeak Virtual Machine 4.0.0 http://newspeaklanguage.org</string> + <key>CFBundleShortVersionString</key> + <string>Newspeak Virtual Machine 4.0.0</string> + <key>CFBundleVersion</key> + <string>4.0.0</string> + <key>CFBundleIconFile</key> + <string>Newspeak Virtual Machine.icns</string> + <key>CFBundleIdentifier</key> + <string>org.bracha.Newspeak</string> + <key>CFBundleInfoDictionaryVersion</key> + <string>6.0</string> + <key>CFBundleName</key> + <string>Newspeak Virtual Machine</string> + <key>CFBundlePackageType</key> + <string>APPL</string> + <key>CFBundleSignature</key> + <string>????</string> + <key>CGDisableCoalescedUpdates</key> + <true/> + <key>DTCompiler</key> + <string></string> + <key>DTPlatformBuild</key> + <string>10M2518</string> + <key>DTPlatformVersion</key> + <string>PG</string> + <key>DTSDKBuild</key> + <string>9L31a</string> + <key>DTSDKName</key> + <string>macosx10.5</string> + <key>DTXcode</key> + <string>0400</string> + <key>DTXcodeBuild</key> + <string>10M2518</string> + <key>LSBackgroundOnly</key> + <false/> + <key>LSMinimumSystemVersion</key> + <string>10.5.0</string> + <key>NSServices</key> + <array> + <dict> + <key>NSMenuItem</key> + <dict> + <key>default</key> + <string>Squeak DoIt</string> + </dict> + <key>NSMessage</key> + <string>doitandreturn</string> + <key>NSPortName</key> + <string>Squeak</string> + <key>NSReturnTypes</key> + <array> + <string>NSStringPboardType</string> + </array> + <key>NSSendTypes</key> + <array> + <string>NSStringPboardType</string> + </array> + </dict> + </array> + <key>SqueakBrowserMouseCmdButton1</key> + <integer>3</integer> + <key>SqueakBrowserMouseCmdButton2</key> + <integer>3</integer> + <key>SqueakBrowserMouseCmdButton3</key> + <integer>2</integer> + <key>SqueakBrowserMouseControlButton1</key> + <integer>1</integer> + <key>SqueakBrowserMouseControlButton2</key> + <integer>3</integer> + <key>SqueakBrowserMouseControlButton3</key> + <integer>2</integer> + <key>SqueakBrowserMouseNoneButton1</key> + <integer>1</integer> + <key>SqueakBrowserMouseNoneButton2</key> + <integer>3</integer> + <key>SqueakBrowserMouseNoneButton3</key> + <integer>2</integer> + <key>SqueakBrowserMouseOptionButton1</key> + <integer>2</integer> + <key>SqueakBrowserMouseOptionButton2</key> + <integer>3</integer> + <key>SqueakBrowserMouseOptionButton3</key> + <integer>2</integer> + <key>SqueakDebug</key> + <integer>0</integer> + <key>SqueakEncodingType</key> + <string>UTF-8</string> + <key>SqueakExplicitWindowOpenNeeded</key> + <false/> + <key>SqueakFloatingWindowGetsFocus</key> + <true/> + <key>SqueakHasQuitWithoutSaving</key> + <false/> + <key>SqueakImageName</key> + <string>Newspeak.image</string> + <key>SqueakMaxHeapSize</key> + <integer>1073741824</integer> + <key>SqueakMouseCmdButton1</key> + <integer>3</integer> + <key>SqueakMouseCmdButton2</key> + <integer>3</integer> + <key>SqueakMouseCmdButton3</key> + <integer>2</integer> + <key>SqueakMouseControlButton1</key> + <integer>1</integer> + <key>SqueakMouseControlButton2</key> + <integer>3</integer> + <key>SqueakMouseControlButton3</key> + <integer>2</integer> + <key>SqueakMouseNoneButton1</key> + <integer>1</integer> + <key>SqueakMouseNoneButton2</key> + <integer>3</integer> + <key>SqueakMouseNoneButton3</key> + <integer>2</integer> + <key>SqueakMouseOptionButton1</key> + <integer>2</integer> + <key>SqueakMouseOptionButton2</key> + <integer>3</integer> + <key>SqueakMouseOptionButton3</key> + <integer>2</integer> + <key>SqueakPluginsBuiltInOrLocalOnly</key> + <false/> + <key>SqueakUIFlushPrimaryDeferNMilliseconds</key> + <integer>20</integer> + <key>SqueakUIFlushSecondaryCheckForPossibleNeedEveryNMilliseconds</key> + <integer>20</integer> + <key>SqueakUIFlushSecondaryCleanupDelayMilliseconds</key> + <integer>25</integer> + <key>SqueakUIFlushUseHighPercisionClock</key> + <true/> + <key>SqueakUnTrustedDirectory</key> + <string>~/Library/Preferences/Newspeak/Internet/Untrusted/</string> + <key>SqueakWindowAttribute</key> + <data> + ggAAHw== + </data> + <key>SqueakWindowHasTitle</key> + <true/> + <key>SqueakWindowType</key> + <integer>6</integer> +</dict> +</plist> Added: branches/Cog/nsspurstackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj =================================================================== --- branches/Cog/nsspurstackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj (rev 0) +++ branches/Cog/nsspurstackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-01-31 18:41:22 UTC (rev 2864) @@ -0,0 +1,2021 @@ +// !$*UTF8*$! +{ + archiveVersion = 1; + classes = { + }; + objectVersion = 42; + objects = { + +/* Begin PBXBuildFile section */ + 730DA7FE1379F4C9004985EC /* sqMacHostWindow.c in Sources */ = {isa = PBXBuildFile; fileRef = 730DA7FD1379F4C9004985EC /* sqMacHostWindow.c */; }; + 73397082137A1CE2001B0C43 /* acos.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339705F137A1CE2001B0C43 /* acos.c */; }; + 73397083137A1CE2001B0C43 /* acosh.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397060137A1CE2001B0C43 /* acosh.c */; }; + 73397084137A1CE2001B0C43 /* asin.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397061137A1CE2001B0C43 /* asin.c */; }; + 73397085137A1CE2001B0C43 /* asinh.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397062137A1CE2001B0C43 /* asinh.c */; }; + 73397086137A1CE2001B0C43 /* atan.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397063137A1CE2001B0C43 /* atan.c */; }; + 73397087137A1CE2001B0C43 /* atan2.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397064137A1CE2001B0C43 /* atan2.c */; }; + 73397088137A1CE2001B0C43 /* atanh.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397065137A1CE2001B0C43 /* atanh.c */; }; + 73397089137A1CE2001B0C43 /* copysign.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397066137A1CE2001B0C43 /* copysign.c */; }; + 7339708A137A1CE2001B0C43 /* cos.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397067137A1CE2001B0C43 /* cos.c */; }; + 7339708B137A1CE2001B0C43 /* cosh.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397068137A1CE2001B0C43 /* cosh.c */; }; + 7339708C137A1CE2001B0C43 /* exp.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397069137A1CE2001B0C43 /* exp.c */; }; + 7339708D137A1CE2001B0C43 /* expm1.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339706A137A1CE2001B0C43 /* expm1.c */; }; + 7339708E137A1CE2001B0C43 /* fdlibm.h in Headers */ = {isa = PBXBuildFile; fileRef = 7339706B137A1CE2001B0C43 /* fdlibm.h */; }; + 7339708F137A1CE2001B0C43 /* finite.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339706C137A1CE2001B0C43 /* finite.c */; }; + 73397090137A1CE2001B0C43 /* fmod.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339706D137A1CE2001B0C43 /* fmod.c */; }; + 73397091137A1CE2001B0C43 /* hypot.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339706E137A1CE2001B0C43 /* hypot.c */; }; + 73397092137A1CE2001B0C43 /* k_cos.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339706F137A1CE2001B0C43 /* k_cos.c */; }; + 73397093137A1CE2001B0C43 /* k_rem_pio2.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397070137A1CE2001B0C43 /* k_rem_pio2.c */; }; + 73397094137A1CE2001B0C43 /* k_sin.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397071137A1CE2001B0C43 /* k_sin.c */; }; + 73397095137A1CE2001B0C43 /* k_tan.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397072137A1CE2001B0C43 /* k_tan.c */; }; + 73397096137A1CE2001B0C43 /* ldexp.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397073137A1CE2001B0C43 /* ldexp.c */; }; + 73397097137A1CE2001B0C43 /* log.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397074137A1CE2001B0C43 /* log.c */; }; + 73397098137A1CE2001B0C43 /* log1p.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397075137A1CE2001B0C43 /* log1p.c */; }; + 73397099137A1CE2001B0C43 /* log10.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397076137A1CE2001B0C43 /* log10.c */; }; + 7339709A137A1CE2001B0C43 /* modf.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397077137A1CE2001B0C43 /* modf.c */; }; + 7339709B137A1CE2001B0C43 /* pow.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397078137A1CE2001B0C43 /* pow.c */; }; + 7339709C137A1CE2001B0C43 /* rem_pio2.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397079137A1CE2001B0C43 /* rem_pio2.c */; }; + 7339709D137A1CE2001B0C43 /* rint.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339707A137A1CE2001B0C43 /* rint.c */; }; + 7339709E137A1CE2001B0C43 /* scalb.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339707B137A1CE2001B0C43 /* scalb.c */; }; + 7339709F137A1CE2001B0C43 /* scalbn.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339707C137A1CE2001B0C43 /* scalbn.c */; }; + 733970A0137A1CE2001B0C43 /* sin.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339707D137A1CE2001B0C43 /* sin.c */; }; + 733970A1137A1CE2001B0C43 /* sinh.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339707E137A1CE2001B0C43 /* sinh.c */; }; + 733970A2137A1CE2001B0C43 /* sqrt.c in Sources */ = {isa = PBXBuildFile; fileRef = 7339707F137A1CE2001B0C43 /* sqrt.c */; }; + 733970A3137A1CE2001B0C43 /* tan.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397080137A1CE2001B0C43 /* tan.c */; }; + 733970A4137A1CE2001B0C43 /* tanh.c in Sources */ = {isa = PBXBuildFile; fileRef = 73397081137A1CE2001B0C43 /* tanh.c */; }; + 733AC8DB0FEAAC4F007C6206 /* version.c in Sources */ = {isa = PBXBuildFile; fileRef = 733AC8DA0FEAAC4F007C6206 /* version.c */; }; + 733B2C37106AB74B004652BE /* sqExternalSemaphores.c in Sources */ = {isa = PBXBuildFile; fileRef = 733B2C36106AB74B004652BE /* sqExternalSemaphores.c */; }; + 7348153F1379F53100FD8ABB /* sqMacNSPluginUILogic2.c in Sources */ = {isa = PBXBuildFile; fileRef = 7348153D1379F53100FD8ABB /* sqMacNSPluginUILogic2.c */; }; + 734815401379F53100FD8ABB /* sqMacNSPluginUILogic2.h in Headers */ = {isa = PBXBuildFile; fileRef = 7348153E1379F53100FD8ABB /* sqMacNSPluginUILogic2.h */; }; + 7351A09B100963670035A878 /* sqUnixThreads.c in Sources */ = {isa = PBXBuildFile; fileRef = 7351A09A100963670035A878 /* sqUnixThreads.c */; }; + 735B4CA30E8069B7008FA2CA /* VMProfileMacSupportPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = 735B4CA20E8069B7008FA2CA /* VMProfileMacSupportPlugin.c */; }; + 735C8EE7137A1D9D00040CA0 /* sqUnixFileCopyPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = 735C8EE6137A1D9D00040CA0 /* sqUnixFileCopyPlugin.c */; }; + 73804CA7137DEA0E00D96A60 /* osExports.c in Sources */ = {isa = PBXBuildFile; fileRef = 73804CA6137DEA0E00D96A60 /* osExports.c */; }; + 738563101378A00200EF6ED1 /* SoundPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = 7385630F1378A00200EF6ED1 /* SoundPlugin.h */; }; + 738FB1EA0EE4CF94004BEE42 /* ia32abicc.c in Sources */ = {isa = PBXBuildFile; fileRef = 738FB1E90EE4CF94004BEE42 /* ia32abicc.c */; }; + 738FB1ED0EE4D092004BEE42 /* IA32ABI.c in Sources */ = {isa = PBXBuildFile; fileRef = 738FB1EC0EE4D092004BEE42 /* IA32ABI.c */; }; + 739194EC13BB985100404B4F /* sqUnixHeartbeat.c in Sources */ = {isa = PBXBuildFile; fileRef = 739194EB13BB985100404B4F /* sqUnixHeartbeat.c */; }; + 739C6ED6112DCBB00049B7D3 /* sqTicker.c in Sources */ = {isa = PBXBuildFile; fileRef = 739C6ED5112DCBB00049B7D3 /* sqTicker.c */; }; + 739C6ED9112DCBD10049B7D3 /* sqAtomicOps.h in Headers */ = {isa = PBXBuildFile; fileRef = 739C6ED7112DCBD10049B7D3 /* sqAtomicOps.h */; }; + 739C6EDA112DCBD10049B7D3 /* sqAssert.h in Headers */ = {isa = PBXBuildFile; fileRef = 739C6ED8112DCBD10049B7D3 /* sqAssert.h */; }; + 73B54C530E55EFED00FE780C /* sqUnixVMProfile.c in Sources */ = {isa = PBXBuildFile; fileRef = 73B54C520E55EFED00FE780C /* sqUnixVMProfile.c */; }; + 73BEE4C2137A17E2009EA37A /* UnixOSProcessPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = 73BEE4C1137A17E2009EA37A /* UnixOSProcessPlugin.c */; }; + 73BEE4C5137A183E009EA37A /* FloatMathPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = 73BEE4C4137A183E009EA37A /* FloatMathPlugin.c */; }; + 73BEE4C8137A1868009EA37A /* FileCopyPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = 73BEE4C7137A1868009EA37A /* FileCopyPlugin.c */; }; + 73BEE4CB137A1895009EA37A /* FloatArrayPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = 73BEE4CA137A1895009EA37A /* FloatArrayPlugin.c */; }; + 73BEE4CE137A191B009EA37A /* FloatMathPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = 73BEE4CD137A191B009EA37A /* FloatMathPlugin.h */; }; + 73BEE4D2137A19A3009EA37A /* sqaio.h in Headers */ = {isa = PBXBuildFile; fileRef = 73BEE4CF137A19A3009EA37A /* sqaio.h */; }; + 73DCBD131378A59F000E8F88 /* sqMacHostWindow.h in Headers */ = {isa = PBXBuildFile; fileRef = 73DCBD121378A59F000E8F88 /* sqMacHostWindow.h */; }; + 73DCBD161378A687000E8F88 /* HostWindowPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = 73DCBD151378A687000E8F88 /* HostWindowPlugin.h */; }; + 73E7120F137A1DD7002EDF89 /* FileCopyPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = 73E7120E137A1DD7002EDF89 /* FileCopyPlugin.h */; }; + 73E8F00F13C23B600016B1A2 /* gcc3x-interp.c in Sources */ = {isa = PBXBuildFile; fileRef = 73E8F00C13C23B600016B1A2 /* gcc3x-interp.c */; }; + 73E8F01013C23B600016B1A2 /* vmCallback.h in Headers */ = {isa = PBXBuildFile; fileRef = 73E8F00D13C23B600016B1A2 /* vmCallback.h */; }; + 73E8F01113C23B600016B1A2 /* interp.h in Headers */ = {isa = PBXBuildFile; fileRef = 73E8F00E13C23B600016B1A2 /* interp.h */; }; + 94002C4409EB18EF003C4BF2 /* sqMemoryAccess.h in Headers */ = {isa = PBXBuildFile; fileRef = 94002C4209EB18EF003C4BF2 /* sqMemoryAccess.h */; }; + 941A3B2E09AA144000C9D25A /* JConfig.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AE4102EB4E090100013C /* JConfig.h */; }; + 941A3B2F09AA144000C9D25A /* sqConfig.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AEED02EB4E0A0100013C /* sqConfig.h */; }; + 941A3B3109AA144000C9D25A /* sqMacMain.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AEF502EB4E0A0100013C /* sqMacMain.h */; }; + 941A3B3209AA144000C9D25A /* sqMacTime.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AEFB02EB4E0A0100013C /* sqMacTime.h */; }; + 941A3B3309AA144000C9D25A /* sqMacUIAppleEvents.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AEFD02EB4E0A0100013C /* sqMacUIAppleEvents.h */; }; + 941A3B3409AA144000C9D25A /* sqMacUIClipBoard.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AEFF02EB4E0A0100013C /* sqMacUIClipBoard.h */; }; + 941A3B3509AA144000C9D25A /* sqMacUIConstants.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF0002EB4E0A0100013C /* sqMacUIConstants.h */; }; + 941A3B3609AA144000C9D25A /* sqMacUIEvents.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF0202EB4E0A0100013C /* sqMacUIEvents.h */; }; + 941A3B3709AA144000C9D25A /* sqMacUIMenuBar.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF0402EB4E0A0100013C /* sqMacUIMenuBar.h */; }; + 941A3B3809AA144000C9D25A /* sqMacWindow.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF0602EB4E0A0100013C /* sqMacWindow.h */; }; + 941A3B3909AA144000C9D25A /* sqPlatformSpecific.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF0802EB4E0A0100013C /* sqPlatformSpecific.h */; }; + 941A3B3A09AA144000C9D25A /* AsynchFilePlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF1302EB4E0A0100013C /* AsynchFilePlugin.h */; }; + 941A3B3D09AA144000C9D25A /* DropPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF1A02EB4E0A0100013C /* DropPlugin.h */; }; + 941A3B3E09AA144000C9D25A /* FilePlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF1E02EB4E0A0100013C /* FilePlugin.h */; }; + 941A3B4109AA144000C9D25A /* jchuff.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF2C02EB4E0A0100013C /* jchuff.h */; }; + 941A3B4209AA144000C9D25A /* jconfig.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF3202EB4E0A0100013C /* jconfig.h */; }; + 941A3B4309AA144000C9D25A /* jdct.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF3E02EB4E0A0100013C /* jdct.h */; }; + 941A3B4409AA144000C9D25A /* jdhuff.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF4102EB4E0A0100013C /* jdhuff.h */; }; + 941A3B4509AA144000C9D25A /* jerror.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF4C02EB4E0A0100013C /* jerror.h */; }; + 941A3B4609AA144000C9D25A /* jinclude.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF5402EB4E0A0100013C /* jinclude.h */; }; + 941A3B4709AA144000C9D25A /* jmemsys.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF5902EB4E0A0100013C /* jmemsys.h */; }; + 941A3B4809AA144000C9D25A /* jmorecfg.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF5A02EB4E0A0100013C /* jmorecfg.h */; }; + 941A3B4909AA144000C9D25A /* jpegint.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF5B02EB4E0A0100013C /* jpegint.h */; }; + 941A3B4A09AA144000C9D25A /* jpeglib.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF5C02EB4E0A0100013C /* jpeglib.h */; }; + 941A3B4B09AA144000C9D25A /* JPEGReadWriter2Plugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF5D02EB4E0A0100013C /* JPEGReadWriter2Plugin.h */; }; + 941A3B4C09AA144000C9D25A /* jversion.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AF6102EB4E0A0100013C /* jversion.h */; }; + 941A3B4E09AA144000C9D25A /* SecurityPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AFBD02EB4E0A0100013C /* SecurityPlugin.h */; }; + 941A3B5009AA144000C9D25A /* SocketPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AFC102EB4E0A0100013C /* SocketPlugin.h */; }; + 941A3B5809AA144000C9D25A /* SurfacePlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AFD702EB4E0A0100013C /* SurfacePlugin.h */; }; + 941A3B5909AA144000C9D25A /* UUIDPlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AFD902EB4E0A0100013C /* UUIDPlugin.h */; }; + 941A3B5A09AA144000C9D25A /* sq.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AFDC02EB4E0A0100013C /* sq.h */; }; + 941A3B5B09AA144000C9D25A /* sqVirtualMachine.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AFDF02EB4E0A0100013C /* sqVirtualMachine.h */; }; + 941A3B5C09AA144000C9D25A /* sqMacMemory.h in Headers */ = {isa = PBXBuildFile; fileRef = F5F8AEF702EB4E0A0100013C /* sqMacMemory.h */; }; + 941A3B5D09AA144000C9D25A /* sqGnu.h in Headers */ = {isa = PBXBuildFile; fileRef = 66A8FED80300824600A80109 /* sqGnu.h */; }; + 941A3B5E09AA144000C9D25A /* sqMacEncoding.h in Headers */ = {isa = PBXBuildFile; fileRef = 9405366D057BC0EB0080D7FF /* sqMacEncoding.h */; }; + 941A3B6309AA144000C9D25A /* sqMacUnixInterfaceSound.h in Headers */ = {isa = PBXBuildFile; fileRef = 94D42B2B07B2C8DC001CCA37 /* sqMacUnixInterfaceSound.h */; }; + 941A3B6409AA144000C9D25A /* sqMacUnixCommandLineInterface.h in Headers */ = {isa = PBXBuildFile; fileRef = 940D36BA07ED2D910054C5E1 /* sqMacUnixCommandLineInterface.h */; }; + 941A3B6609AA144000C9D25A /* config.h in Headers */ = {isa = PBXBuildFile; fileRef = 94820D7F080E0B0F0061C2AB /* config.h */; }; + 941A3B6D09AA144000C9D25A /* sqMacUnixFileInterface.h in Headers */ = {isa = PBXBuildFile; fileRef = 946DD776098FF9E3006BBA1E /* sqMacUnixFileInterface.h */; }; + 941A3B6E09AA144000C9D25A /* sqUnixAsynchFile.h in Headers */ = {isa = PBXBuildFile; fileRef = 946DD81F098FFFB6006BBA1E /* sqUnixAsynchFile.h */; }; + 941A3B6F09AA144000C9D25A /* sqMacImageIO.h in Headers */ = {isa = PBXBuildFile; fileRef = 946DD91D099015C5006BBA1E /* sqMacImageIO.h */; }; + 941A3B7009AA144000C9D25A /* sqMacFileLogic.h in Headers */ = {isa = PBXBuildFile; fileRef = 948AE67B09942EF2006256FE /* sqMacFileLogic.h */; }; + 941A3B7209AA144000C9D25A /* Squeak.icns in Resources */ = {isa = PBXBuildFile; fileRef = 664A73DC0300584000A80109 /* Squeak.icns */; }; + 941A3B7309AA144000C9D25A /* SqueakChanges.icns in Resources */ = {isa = PBXBuildFile; fileRef = 664A73DD0300584000A80109 /* SqueakChanges.icns */; }; + 941A3B7409AA144000C9D25A /* SqueakImage.icns in Resources */ = {isa = PBXBuildFile; fileRef = 664A73DE0300584000A80109 /* SqueakImage.icns */; }; + 941A3B7509AA144000C9D25A /* SqueakPlugin.icns in Resources */ = {isa = PBXBuildFile; fileRef = 664A73DF0300584000A80109 /* SqueakPlugin.icns */; }; + 941A3B7609AA144000C9D25A /* SqueakScript.icns in Resources */ = {isa = PBXBuildFile; fileRef = 664A73E00300584000A80109 /* SqueakScript.icns */; }; + 941A3B7709AA144000C9D25A /* SqueakGeneric.icns in Resources */ = {isa = PBXBuildFile; fileRef = 94FC2ECE05498CA800A80109 /* SqueakGeneric.icns */; }; + 941A3B7809AA144000C9D25A /* SqueakProject.icns in Resources */ = {isa = PBXBuildFile; fileRef = 94FC2ECF05498CA800A80109 /* SqueakProject.icns */; }; + 941A3B7909AA144000C9D25A /* SqueakSources.icns in Resources */ = {isa = PBXBuildFile; fileRef = 94FC2ED005498CA800A80109 /* SqueakSources.icns */; }; + 941A3B9E09AA144000C9D25A /* sqMacUUID.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AE6A02EB4E0A0100013C /* sqMacUUID.c */; }; + 941A3BA109AA144000C9D25A /* sqMacMemory.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AEF602EB4E0A0100013C /* sqMacMemory.c */; }; + 941A3BA209AA144000C9D25A /* sqMacTime.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AEFA02EB4E0A0100013C /* sqMacTime.c */; }; + 941A3BA309AA144000C9D25A /* sqMacUIAppleEvents.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AEFC02EB4E0A0100013C /* sqMacUIAppleEvents.c */; }; + 941A3BA409AA144000C9D25A /* sqMacUIClipBoard.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AEFE02EB4E0A0100013C /* sqMacUIClipBoard.c */; }; + 941A3BA609AA144000C9D25A /* sqFilePluginBasicPrims.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF1F02EB4E0A0100013C /* sqFilePluginBasicPrims.c */; }; + 941A3BA709AA144000C9D25A /* Error.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2502EB4E0A0100013C /* Error.c */; }; + 941A3BA809AA144000C9D25A /* jcapimin.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2602EB4E0A0100013C /* jcapimin.c */; }; + 941A3BA909AA144000C9D25A /* jcapistd.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2702EB4E0A0100013C /* jcapistd.c */; }; + 941A3BAA09AA144000C9D25A /* jccoefct.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2802EB4E0A0100013C /* jccoefct.c */; }; + 941A3BAB09AA144000C9D25A /* jccolor.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2902EB4E0A0100013C /* jccolor.c */; }; + 941A3BAC09AA144000C9D25A /* jcdctmgr.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2A02EB4E0A0100013C /* jcdctmgr.c */; }; + 941A3BAD09AA144000C9D25A /* jchuff.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2B02EB4E0A0100013C /* jchuff.c */; }; + 941A3BAE09AA144000C9D25A /* jcinit.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2D02EB4E0A0100013C /* jcinit.c */; }; + 941A3BAF09AA144000C9D25A /* jcmainct.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2E02EB4E0A0100013C /* jcmainct.c */; }; + 941A3BB009AA144000C9D25A /* jcmarker.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF2F02EB4E0A0100013C /* jcmarker.c */; }; + 941A3BB109AA144000C9D25A /* jcmaster.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3002EB4E0A0100013C /* jcmaster.c */; }; + 941A3BB209AA144000C9D25A /* jcomapi.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3102EB4E0A0100013C /* jcomapi.c */; }; + 941A3BB309AA144000C9D25A /* jcparam.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3302EB4E0A0100013C /* jcparam.c */; }; + 941A3BB409AA144000C9D25A /* jcphuff.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3402EB4E0A0100013C /* jcphuff.c */; }; + 941A3BB509AA144000C9D25A /* jcprepct.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3502EB4E0A0100013C /* jcprepct.c */; }; + 941A3BB609AA144000C9D25A /* jcsample.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3602EB4E0A0100013C /* jcsample.c */; }; + 941A3BB709AA144000C9D25A /* jctrans.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3702EB4E0A0100013C /* jctrans.c */; }; + 941A3BB809AA144000C9D25A /* jdapimin.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3802EB4E0A0100013C /* jdapimin.c */; }; + 941A3BB909AA144000C9D25A /* jdapistd.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3902EB4E0A0100013C /* jdapistd.c */; }; + 941A3BBA09AA144000C9D25A /* jdatadst.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3A02EB4E0A0100013C /* jdatadst.c */; }; + 941A3BBB09AA144000C9D25A /* jdatasrc.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3B02EB4E0A0100013C /* jdatasrc.c */; }; + 941A3BBC09AA144000C9D25A /* jdcoefct.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3C02EB4E0A0100013C /* jdcoefct.c */; }; + 941A3BBD09AA144000C9D25A /* jdcolor.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3D02EB4E0A0100013C /* jdcolor.c */; }; + 941A3BBE09AA144000C9D25A /* jddctmgr.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF3F02EB4E0A0100013C /* jddctmgr.c */; }; + 941A3BBF09AA144000C9D25A /* jdhuff.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4002EB4E0A0100013C /* jdhuff.c */; }; + 941A3BC009AA144000C9D25A /* jdinput.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4202EB4E0A0100013C /* jdinput.c */; }; + 941A3BC109AA144000C9D25A /* jdmainct.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4302EB4E0A0100013C /* jdmainct.c */; }; + 941A3BC209AA144000C9D25A /* jdmarker.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4402EB4E0A0100013C /* jdmarker.c */; }; + 941A3BC309AA144000C9D25A /* jdmaster.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4502EB4E0A0100013C /* jdmaster.c */; }; + 941A3BC409AA144000C9D25A /* jdmerge.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4602EB4E0A0100013C /* jdmerge.c */; }; + 941A3BC509AA144000C9D25A /* jdphuff.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4702EB4E0A0100013C /* jdphuff.c */; }; + 941A3BC609AA144000C9D25A /* jdpostct.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4802EB4E0A0100013C /* jdpostct.c */; }; + 941A3BC709AA144000C9D25A /* jdsample.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4902EB4E0A0100013C /* jdsample.c */; }; + 941A3BC809AA144000C9D25A /* jdtrans.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4A02EB4E0A0100013C /* jdtrans.c */; }; + 941A3BC909AA144000C9D25A /* jerror.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4B02EB4E0A0100013C /* jerror.c */; }; + 941A3BCA09AA144000C9D25A /* jfdctflt.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4D02EB4E0A0100013C /* jfdctflt.c */; }; + 941A3BCB09AA144000C9D25A /* jfdctfst.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4E02EB4E0A0100013C /* jfdctfst.c */; }; + 941A3BCC09AA144000C9D25A /* jfdctint.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF4F02EB4E0A0100013C /* jfdctint.c */; }; + 941A3BCD09AA144000C9D25A /* jidctflt.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5002EB4E0A0100013C /* jidctflt.c */; }; + 941A3BCE09AA144000C9D25A /* jidctfst.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5102EB4E0A0100013C /* jidctfst.c */; }; + 941A3BCF09AA144000C9D25A /* jidctint.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5202EB4E0A0100013C /* jidctint.c */; }; + 941A3BD009AA144000C9D25A /* jidctred.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5302EB4E0A0100013C /* jidctred.c */; }; + 941A3BD109AA144000C9D25A /* jmemdatadst.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5502EB4E0A0100013C /* jmemdatadst.c */; }; + 941A3BD209AA144000C9D25A /* jmemdatasrc.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5602EB4E0A0100013C /* jmemdatasrc.c */; }; + 941A3BD309AA144000C9D25A /* jmemmgr.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5702EB4E0A0100013C /* jmemmgr.c */; }; + 941A3BD409AA144000C9D25A /* jmemnobs.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5802EB4E0A0100013C /* jmemnobs.c */; }; + 941A3BD509AA144000C9D25A /* jquant1.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5E02EB4E0A0100013C /* jquant1.c */; }; + 941A3BD609AA144000C9D25A /* jquant2.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF5F02EB4E0A0100013C /* jquant2.c */; }; + 941A3BD709AA144000C9D25A /* jutils.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AF6002EB4E0A0100013C /* jutils.c */; }; + 941A3BD809AA144000C9D25A /* sqSoundCodecPluginBasicPrims.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AFC402EB4E0A0100013C /* sqSoundCodecPluginBasicPrims.c */; }; + 941A3BDE09AA144000C9D25A /* SurfacePlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AFD602EB4E0A0100013C /* SurfacePlugin.c */; }; + 941A3BE009AA144000C9D25A /* sqVirtualMachine.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AFDE02EB4E0A0100013C /* sqVirtualMachine.c */; }; + 941A3BE409AA144000C9D25A /* sqUnixSocket.c in Sources */ = {isa = PBXBuildFile; fileRef = 94D854E3048EF1F300A80109 /* sqUnixSocket.c */; }; + 941A3BE509AA144000C9D25A /* aio.c in Sources */ = {isa = PBXBuildFile; fileRef = 94D854E7048EF27E00A80109 /* aio.c */; }; + 941A3BE609AA144000C9D25A /* sqMacEncoding.c in Sources */ = {isa = PBXBuildFile; fileRef = 9405366E057BC0EB0080D7FF /* sqMacEncoding.c */; }; + 941A3BEA09AA144000C9D25A /* sqMacUnixInterfaceSound.c in Sources */ = {isa = PBXBuildFile; fileRef = 94D42B2C07B2C8DC001CCA37 /* sqMacUnixInterfaceSound.c */; }; + 941A3BEB09AA144000C9D25A /* sqUnixSoundMacOSXJMM.c in Sources */ = {isa = PBXBuildFile; fileRef = 94FD7EC807B8491B002F2291 /* sqUnixSoundMacOSXJMM.c */; }; + 941A3BEC09AA144000C9D25A /* sqMacUnixCommandLineInterface.c in Sources */ = {isa = PBXBuildFile; fileRef = 940D36BB07ED2D910054C5E1 /* sqMacUnixCommandLineInterface.c */; }; + 941A3BF109AA144000C9D25A /* sqMacUnixFileInterface.c in Sources */ = {isa = PBXBuildFile; fileRef = 946DD777098FF9E3006BBA1E /* sqMacUnixFileInterface.c */; }; + 941A3BF209AA144000C9D25A /* sqUnixAsynchFile.c in Sources */ = {isa = PBXBuildFile; fileRef = 946DD81E098FFFB6006BBA1E /* sqUnixAsynchFile.c */; }; + 941A3BF309AA144000C9D25A /* sqMacImageIO.c in Sources */ = {isa = PBXBuildFile; fileRef = 946DD91C099015C5006BBA1E /* sqMacImageIO.c */; }; + 941A3BF609AA144000C9D25A /* sqMacSecurity.c in Sources */ = {isa = PBXBuildFile; fileRef = 94C9F08C0991B7BD008BAAB5 /* sqMacSecurity.c */; }; + 941A3BF709AA144000C9D25A /* sqMacUIEventsUniversal.c in Sources */ = {isa = PBXBuildFile; fileRef = 94196AAE09974200005962BF /* sqMacUIEventsUniversal.c */; }; + 941A3BF809AA144000C9D25A /* sqMacUIMenuBarUniversal.c in Sources */ = {isa = PBXBuildFile; fileRef = 94196AAF09974200005962BF /* sqMacUIMenuBarUniversal.c */; }; + 941A3BF909AA144000C9D25A /* sqMacWindowUniversal.c in Sources */ = {isa = PBXBuildFile; fileRef = 94196AB009974200005962BF /* sqMacWindowUniversal.c */; }; + 941A3BFB09AA144000C9D25A /* CoreFoundation.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 087740A300C6A47FC0A80109 /* CoreFoundation.framework */; }; + 941A3BFC09AA144000C9D25A /* Carbon.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 087740A400C6A47FC0A80109 /* Carbon.framework */; }; + 941A3BFE09AA144000C9D25A /* AGL.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 0192233A00CCBFCBC0A80109 /* AGL.framework */; }; + 941A3BFF09AA144000C9D25A /* QuickTime.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 05DD6BB000CCC66FC0A80109 /* QuickTime.framework */; }; + 941A3C0009AA144000C9D25A /* CoreAudio.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 94D42ACA07B2C071001CCA37 /* CoreAudio.framework */; }; + 941A3C0109AA144000C9D25A /* AudioToolbox.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 94D42AFC07B2C5DF001CCA37 /* AudioToolbox.framework */; }; + 941A3C0209AA144000C9D25A /* IOKit.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 94148CC5080DB5A400E8C647 /* IOKit.framework */; }; + 941A3C0309AA144000C9D25A /* Foundation.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = 944B5B5008F5C7A900611DF8 /* Foundation.framework */; }; + 9426FF1F09F489D200ECEDDC /* chartables.c in Sources */ = {isa = PBXBuildFile; fileRef = 9426FF0F09F489D200ECEDDC /* chartables.c */; }; + 9426FF2009F489D200ECEDDC /* config.h in Headers */ = {isa = PBXBuildFile; fileRef = 9426FF1009F489D200ECEDDC /* config.h */; }; + 9426FF2109F489D200ECEDDC /* get.c in Sources */ = {isa = PBXBuildFile; fileRef = 9426FF1109F489D200ECEDDC /* get.c */; }; + 9426FF2209F489D200ECEDDC /* internal.h in Headers */ = {isa = PBXBuildFile; fileRef = 9426FF1209F489D200ECEDDC /* internal.h */; }; + 9426FF2309F489D200ECEDDC /* pcre.c in Sources */ = {isa = PBXBuildFile; fileRef = 9426FF1309F489D200ECEDDC /* pcre.c */; }; + 9426FF2409F489D200ECEDDC /* pcre.h in Headers */ = {isa = PBXBuildFile; fileRef = 9426FF1409F489D200ECEDDC /* pcre.h */; }; + 9426FF2509F489D200ECEDDC /* rePlugin.h in Headers */ = {isa = PBXBuildFile; fileRef = 9426FF1509F489D200ECEDDC /* rePlugin.h */; }; + 9426FF2609F489D200ECEDDC /* study.c in Sources */ = {isa = PBXBuildFile; fileRef = 9426FF1609F489D200ECEDDC /* study.c */; }; + 94E4DA3B09BBB9E90046E6F4 /* sqMacDragDrop.c in Sources */ = {isa = PBXBuildFile; fileRef = 94E4DA3909BBB9E90046E6F4 /* sqMacDragDrop.c */; }; + 94E8D43C09AF5D4100D45FB8 /* sqMacUnixExternalPrims.c in Sources */ = {isa = PBXBuildFile; fileRef = 94E8D43909AF5D4100D45FB8 /* sqMacUnixExternalPrims.c */; }; + A21AB9CB0E99682000A432CA /* NSCursorWrappers.m in Sources */ = {isa = PBXBuildFile; fileRef = A21AB9CA0E99682000A432CA /* NSCursorWrappers.m */; }; + A21ABB4F0E9968A800A432CA /* AppKit.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = A21ABB4E0E9968A800A432CA /* AppKit.framework */; }; + A27729390CE7A8D300ABAFCA /* AsynchFilePlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27728EE0CE7A8D300ABAFCA /* AsynchFilePlugin.c */; }; + A277293A0CE7A8D300ABAFCA /* B2DPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27728F00CE7A8D300ABAFCA /* B2DPlugin.c */; }; + A277293C0CE7A8D300ABAFCA /* BitBltPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27728F40CE7A8D300ABAFCA /* BitBltPlugin.c */; }; + A277293D0CE7A8D300ABAFCA /* BMPReadWriterPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27728F60CE7A8D300ABAFCA /* BMPReadWriterPlugin.c */; }; + A277293F0CE7A8D300ABAFCA /* DropPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27728FA0CE7A8D300ABAFCA /* DropPlugin.c */; }; + A27729400CE7A8D300ABAFCA /* DSAPrims.c in Sources */ = {isa = PBXBuildFile; fileRef = A27728FC0CE7A8D300ABAFCA /* DSAPrims.c */; }; + A27729430CE7A8D300ABAFCA /* FilePlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729020CE7A8D300ABAFCA /* FilePlugin.c */; }; + A277294A0CE7A8D300ABAFCA /* JPEGReaderPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729100CE7A8D300ABAFCA /* JPEGReaderPlugin.c */; }; + A277294B0CE7A8D300ABAFCA /* JPEGReadWriter2Plugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729120CE7A8D300ABAFCA /* JPEGReadWriter2Plugin.c */; }; + A277294D0CE7A8D300ABAFCA /* LargeIntegers.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729160CE7A8D300ABAFCA /* LargeIntegers.c */; }; + A27729500CE7A8D300ABAFCA /* Matrix2x3Plugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A277291C0CE7A8D300ABAFCA /* Matrix2x3Plugin.c */; }; + A27729520CE7A8D300ABAFCA /* MiscPrimitivePlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729200CE7A8D300ABAFCA /* MiscPrimitivePlugin.c */; }; + A27729530CE7A8D300ABAFCA /* RePlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729220CE7A8D300ABAFCA /* RePlugin.c */; }; + A27729540CE7A8D300ABAFCA /* SecurityPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729240CE7A8D300ABAFCA /* SecurityPlugin.c */; }; + A27729560CE7A8D300ABAFCA /* SocketPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729280CE7A8D300ABAFCA /* SocketPlugin.c */; }; + A277295B0CE7A8D300ABAFCA /* UUIDPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729330CE7A8D300ABAFCA /* UUIDPlugin.c */; }; + A277295D0CE7A8D300ABAFCA /* ZipPlugin.c in Sources */ = {isa = PBXBuildFile; fileRef = A27729370CE7A8D300ABAFCA /* ZipPlugin.c */; }; + A27729A80CE7AFBE00ABAFCA /* SystemConfiguration.framework in Frameworks */ = {isa = PBXBuildFile; fileRef = A27729A70CE7AFBE00ABAFCA /* SystemConfiguration.framework */; }; + A2835CFF0E07A13300308978 /* sqHeapMap.c in Sources */ = {isa = PBXBuildFile; fileRef = A2835CFE0E07A13300308978 /* sqHeapMap.c */; }; + A2C08F430EA3E0FD0036416C /* dispdbg.h in Headers */ = {isa = PBXBuildFile; fileRef = A2C08F420EA3E0FD0036416C /* dispdbg.h */; }; + A2F27E691087169800F905FB /* nsPoolManagement.h in Headers */ = {isa = PBXBuildFile; fileRef = A2F27E671087169800F905FB /* nsPoolManagement.h */; }; + A2F27E6A1087169800F905FB /* nsPoolManagement.m in Sources */ = {isa = PBXBuildFile; fileRef = A2F27E681087169800F905FB /* nsPoolManagement.m */; }; + A2FB6B590CCD71B000A29088 /* sqMacLocaleCarbon.c in Sources */ = {isa = PBXBuildFile; fileRef = A2FB6B570CCD71B000A29088 /* sqMacLocaleCarbon.c */; }; + A2FB6B5A0CCD71B000A29088 /* sqMacLocaleCarbon.h in Headers */ = {isa = PBXBuildFile; fileRef = A2FB6B580CCD71B000A29088 /* sqMacLocaleCarbon.h */; }; + DA6061C40AA515470009E25D /* sqMacMain.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AEF402EB4E0A0100013C /* sqMacMain.c */; }; + DA6061CA0AA5155E0009E25D /* sqNamedPrims.c in Sources */ = {isa = PBXBuildFile; fileRef = F5F8AFDD02EB4E0A0100013C /* sqNamedPrims.c */; }; + DAFA08940AA64625008DF459 /* Newspeak Virtual Machine.icns in Resources */ = {isa = PBXBuildFile; fileRef = DAFA08930AA64625008DF459 /* Newspeak Virtual Machine.icns */; }; +/* End PBXBuildFile section */ + +/* Begin PBXBuildRule section */ + A23738BF107FC08B00AB4620 /* PBXBuildRule */ = { + isa = PBXBuildRule; + compilerSpec = com.apple.compilers.gcc.4_2; + fileType = sourcecode.c; + isEditable = 1; + outputFiles = ( + ); + }; +/* End PBXBuildRule section */ + +/* Begin PBXFileReference section */ + 0192233A00CCBFCBC0A80109 /* AGL.framework */ = {isa = PBXFileReference; lastKnownFileType = wrapper.framework; name = AGL.framework; path = /System/Library/Frameworks/AGL.framework; sourceTree = "<absolute>"; }; + 05DD6BB000CCC66FC0A80109 /* QuickTime.framework */ = {isa = PBXFileReference; lastKnownFileType = wrapper.framework; name = QuickTime.framework; path = /System/Library/Frameworks/QuickTime.framework; sourceTree = "<absolute>"; }; + 087740A300C6A47FC0A80109 /* CoreFoundation.framework */ = {isa = PBXFileReference; lastKnownFileType = wrapper.framework; name = CoreFoundation.framework; path = /System/Library/Frameworks/CoreFoundation.framework; sourceTree = "<absolute>"; }; + 087740A400C6A47FC0A80109 /* Carbon.framework */ = {isa = PBXFileReference; lastKnownFileType = wrapper.framework; name = Carbon.framework; path = /System/Library/Frameworks/Carbon.framework; sourceTree = "<absolute>"; }; + 087740A700C6A4EDC0A80109 /* OpenGL.framework */ = {isa = PBXFileReference; lastKnownFileType = wrapper.framework; name = OpenGL.framework; path = /System/Library/Frameworks/OpenGL.framework; sourceTree = "<absolute>"; }; + 664A73DB0300584000A80109 /* Squeak VM.r */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.rez; name = "Squeak VM.r"; path = "resources/ProjectBuilder/Squeak VM.r"; sourceTree = "<group>"; }; + 664A73DC0300584000A80109 /* Squeak.icns */ = {isa = PBXFileReference; lastKnownFileType = image.icns; name = Squeak.icns; path = resources/ProjectBuilder/Squeak.icns; sourceTree = "<group>"; }; + 664A73DD0300584000A80109 /* SqueakChanges.icns */ = {isa = PBXFileReference; lastKnownFileType = image.icns; name = SqueakChanges.icns; path = resources/ProjectBuilder/SqueakChanges.icns; sourceTree = "<group>"; }; + 664A73DE0300584000A80109 /* SqueakImage.icns */ = {isa = PBXFileReference; lastKnownFileType = image.icns; name = SqueakImage.icns; path = resources/ProjectBuilder/SqueakImage.icns; sourceTree = "<group>"; }; + 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>"; }; + 730DA7FD1379F4C9004985EC /* sqMacHostWindow.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = sqMacHostWindow.c; path = HostWindowPlugin/sqMacHostWindow.c; sourceTree = "<group>"; }; + 7339705F137A1CE2001B0C43 /* acos.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = acos.c; path = FloatMathPlugin/acos.c; sourceTree = "<group>"; }; + 73397060137A1CE2001B0C43 /* acosh.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = acosh.c; path = FloatMathPlugin/acosh.c; sourceTree = "<group>"; }; + 73397061137A1CE2001B0C43 /* asin.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = asin.c; path = FloatMathPlugin/asin.c; sourceTree = "<group>"; }; + 73397062137A1CE2001B0C43 /* asinh.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = asinh.c; path = FloatMathPlugin/asinh.c; sourceTree = "<group>"; }; + 73397063137A1CE2001B0C43 /* atan.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = atan.c; path = FloatMathPlugin/atan.c; sourceTree = "<group>"; }; + 73397064137A1CE2001B0C43 /* atan2.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = atan2.c; path = FloatMathPlugin/atan2.c; sourceTree = "<group>"; }; + 73397065137A1CE2001B0C43 /* atanh.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = atanh.c; path = FloatMathPlugin/atanh.c; sourceTree = "<group>"; }; + 73397066137A1CE2001B0C43 /* copysign.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = copysign.c; path = FloatMathPlugin/copysign.c; sourceTree = "<group>"; }; + 73397067137A1CE2001B0C43 /* cos.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = cos.c; path = FloatMathPlugin/cos.c; sourceTree = "<group>"; }; + 73397068137A1CE2001B0C43 /* cosh.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = cosh.c; path = FloatMathPlugin/cosh.c; sourceTree = "<group>"; }; + 73397069137A1CE2001B0C43 /* exp.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = exp.c; path = FloatMathPlugin/exp.c; sourceTree = "<group>"; }; + 7339706A137A1CE2001B0C43 /* expm1.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = expm1.c; path = FloatMathPlugin/expm1.c; sourceTree = "<group>"; }; + 7339706B137A1CE2001B0C43 /* fdlibm.h */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.h; name = fdlibm.h; path = FloatMathPlugin/fdlibm/fdlibm.h; sourceTree = "<group>"; }; + 7339706C137A1CE2001B0C43 /* finite.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = finite.c; path = FloatMathPlugin/finite.c; sourceTree = "<group>"; }; + 7339706D137A1CE2001B0C43 /* fmod.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = fmod.c; path = FloatMathPlugin/fmod.c; sourceTree = "<group>"; }; + 7339706E137A1CE2001B0C43 /* hypot.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = hypot.c; path = FloatMathPlugin/hypot.c; sourceTree = "<group>"; }; + 7339706F137A1CE2001B0C43 /* k_cos.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = k_cos.c; path = FloatMathPlugin/k_cos.c; sourceTree = "<group>"; }; + 73397070137A1CE2001B0C43 /* k_rem_pio2.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = k_rem_pio2.c; path = FloatMathPlugin/k_rem_pio2.c; sourceTree = "<group>"; }; + 73397071137A1CE2001B0C43 /* k_sin.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = k_sin.c; path = FloatMathPlugin/k_sin.c; sourceTree = "<group>"; }; + 73397072137A1CE2001B0C43 /* k_tan.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = k_tan.c; path = FloatMathPlugin/k_tan.c; sourceTree = "<group>"; }; + 73397073137A1CE2001B0C43 /* ldexp.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = ldexp.c; path = FloatMathPlugin/ldexp.c; sourceTree = "<group>"; }; + 73397074137A1CE2001B0C43 /* log.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = log.c; path = FloatMathPlugin/log.c; sourceTree = "<group>"; }; + 73397075137A1CE2001B0C43 /* log1p.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = log1p.c; path = FloatMathPlugin/log1p.c; sourceTree = "<group>"; }; + 73397076137A1CE2001B0C43 /* log10.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = log10.c; path = FloatMathPlugin/log10.c; sourceTree = "<group>"; }; + 73397077137A1CE2001B0C43 /* modf.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = modf.c; path = FloatMathPlugin/modf.c; sourceTree = "<group>"; }; + 73397078137A1CE2001B0C43 /* pow.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = pow.c; path = FloatMathPlugin/pow.c; sourceTree = "<group>"; }; + 73397079137A1CE2001B0C43 /* rem_pio2.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = rem_pio2.c; path = FloatMathPlugin/rem_pio2.c; sourceTree = "<group>"; }; + 7339707A137A1CE2001B0C43 /* rint.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = rint.c; path = FloatMathPlugin/rint.c; sourceTree = "<group>"; }; + 7339707B137A1CE2001B0C43 /* scalb.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = scalb.c; path = FloatMathPlugin/scalb.c; sourceTree = "<group>"; }; + 7339707C137A1CE2001B0C43 /* scalbn.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = scalbn.c; path = FloatMathPlugin/scalbn.c; sourceTree = "<group>"; }; + 7339707D137A1CE2001B0C43 /* sin.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = sin.c; path = FloatMathPlugin/sin.c; sourceTree = "<group>"; }; + 7339707E137A1CE2001B0C43 /* sinh.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = sinh.c; path = FloatMathPlugin/sinh.c; sourceTree = "<group>"; }; + 7339707F137A1CE2001B0C43 /* sqrt.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = sqrt.c; path = FloatMathPlugin/sqrt.c; sourceTree = "<group>"; }; + 73397080137A1CE2001B0C43 /* tan.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = tan.c; path = FloatMathPlugin/tan.c; sourceTree = "<group>"; }; + 73397081137A1CE2001B0C43 /* tanh.c */ = {isa = PBXFileReference; fileEncoding = 4; lastKnownFileType = sourcecode.c.c; name = tanh.c; path = FloatMathPlugin/tanh.c; sourceTree = "<group>"; }; + 733AC8DA0FEAAC4F007C6206 /* version.c */ = {isa = PBXFileReference; fileEncoding = 30; lastKnownFileType = sourcecode.c.c; path = version.c; sourceTree = "<group>"; }; @@ Diff output truncated at 50000 characters. @@

1 0

[commit][2863] Update timestamp in UnixOSProcessPlugin.
by commits＠squeakvm.org 31 Jan '14

31 Jan '14

Revision: 2863 Author: eliot Date: 2014-01-31 10:04:04 -0800 (Fri, 31 Jan 2014) Log Message: ----------- Update timestamp in UnixOSProcessPlugin. Modified Paths: -------------- branches/Cog/nscogsrc/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c branches/Cog/src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c Modified: branches/Cog/nscogsrc/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c =================================================================== --- branches/Cog/nscogsrc/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c 2014-01-31 01:44:08 UTC (rev 2862) +++ branches/Cog/nscogsrc/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c 2014-01-31 18:04:04 UTC (rev 2863) @@ -1,9 +1,9 @@ /* Automatically generated by - VMPluginCodeGenerator VMMaker.oscog-eem.597 uuid: c9a71dd4-c394-4a8f-aa4d-a6d4dc3ff220 + VMPluginCodeGenerator VMMaker.oscog-eem.598 uuid: b85d7330-2ddc-4d90-8592-4e37234f4ac2 from - UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 uuid: 7e7b595f-3783-417f-b514-4f5323e0a3c1 + UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 uuid: 5ede26ca-4333-4d0a-8d3c-856b68975986 */ -static char __buildInfo[] = "UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 uuid: 7e7b595f-3783-417f-b514-4f5323e0a3c1 " __DATE__ ; +static char __buildInfo[] = "UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 uuid: 5ede26ca-4333-4d0a-8d3c-856b68975986 " __DATE__ ; /* D T Lewis - UnixOSProcessPlugin.c translated from class UnixOSProcessPlugin of OSProcessPlugin version 4.3.3 Cog */ @@ -318,9 +318,9 @@ struct VirtualMachine* interpreterProxy; static const char *moduleName = #ifdef SQUEAK_BUILTIN_PLUGIN - "UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 (i)" + "UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 (i)" #else - "UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 (e)" + "UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 (e)" #endif ; static void *originalSigHandlers[NSIG]; Modified: branches/Cog/src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c =================================================================== --- branches/Cog/src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c 2014-01-31 01:44:08 UTC (rev 2862) +++ branches/Cog/src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c 2014-01-31 18:04:04 UTC (rev 2863) @@ -1,9 +1,9 @@ /* Automatically generated by - VMPluginCodeGenerator VMMaker.oscog-eem.597 uuid: c9a71dd4-c394-4a8f-aa4d-a6d4dc3ff220 + VMPluginCodeGenerator VMMaker.oscog-eem.598 uuid: b85d7330-2ddc-4d90-8592-4e37234f4ac2 from - UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 uuid: 7e7b595f-3783-417f-b514-4f5323e0a3c1 + UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 uuid: 5ede26ca-4333-4d0a-8d3c-856b68975986 */ -static char __buildInfo[] = "UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 uuid: 7e7b595f-3783-417f-b514-4f5323e0a3c1 " __DATE__ ; +static char __buildInfo[] = "UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 uuid: 5ede26ca-4333-4d0a-8d3c-856b68975986 " __DATE__ ; /* D T Lewis - UnixOSProcessPlugin.c translated from class UnixOSProcessPlugin of OSProcessPlugin version 4.3.3 Cog */ @@ -318,9 +318,9 @@ struct VirtualMachine* interpreterProxy; static const char *moduleName = #ifdef SQUEAK_BUILTIN_PLUGIN - "UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 (i)" + "UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 (i)" #else - "UnixOSProcessPlugin * VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 (e)" + "UnixOSProcessPlugin VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 (e)" #endif ; static void *originalSigHandlers[NSIG];

1 0

[Vm-dev] OSProcessPlugin: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 31 Jan '14

31 Jan '14

Eliot Miranda uploaded a new version of VMConstruction-Plugins-OSProcessPlugin to project OSProcessPlugin: http://www.squeaksource.com/OSProcessPlugin/VMConstruction-Plugins-OSProces… ==================== Summary ==================== Name: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.46 Author: eem Time: 31 January 2014, 10:01:57.496 am UUID: 5ede26ca-4333-4d0a-8d3c-856b68975986 Ancestors: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.45 Eliminate unnecessary isIntegerObject: tests from forkAndExecInDirectory:

1 0

[commit][2862] And omit the date diplication.
by commits＠squeakvm.org 31 Jan '14

31 Jan '14

Revision: 2862 Author: eliot Date: 2014-01-30 17:44:08 -0800 (Thu, 30 Jan 2014) Log Message: ----------- And omit the date diplication. Modified Paths: -------------- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h Property Changed: ---------------- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h Modified: branches/Cog/platforms/Cross/vm/sqSCCSVersion.h =================================================================== --- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h 2014-01-31 01:42:13 UTC (rev 2861) +++ branches/Cog/platforms/Cross/vm/sqSCCSVersion.h 2014-01-31 01:44:08 UTC (rev 2862) @@ -45,9 +45,9 @@ static char * revisionDateAsString() { - char *maybe_space = strchr(DATE_START,' '); - if (maybe_space) - *maybe_space = 0; + char *maybe_paren = strchr(DATE_START,'('); + if (maybe_paren) + *(maybe_paren - 1) = 0; return DATE_START; } Property changes on: branches/Cog/platforms/Cross/vm/sqSCCSVersion.h ___________________________________________________________________ Modified: checkindate - Thu Jan 30 17:41:47 PST 2014 + Thu Jan 30 17:43:49 PST 2014

1 0

[commit][2861] And add Date as one of platforms/Cross/vm/sqSCCSVersion.h' s svn:keywords (sigh).
by commits＠squeakvm.org 31 Jan '14

31 Jan '14

Revision: 2861 Author: eliot Date: 2014-01-30 17:42:13 -0800 (Thu, 30 Jan 2014) Log Message: ----------- And add Date as one of platforms/Cross/vm/sqSCCSVersion.h's svn:keywords (sigh). Property Changed: ---------------- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h Property changes on: branches/Cog/platforms/Cross/vm/sqSCCSVersion.h ___________________________________________________________________ Modified: svn:keywords - URL Rev + URL Rev Date Modified: checkindate - Thu Jan 30 17:35:33 PST 2014 + Thu Jan 30 17:41:47 PST 2014

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev January 2014