Packages March 2018

packages@lists.squeakfoundation.org

1 participants
71 discussions

The Trunk: Compiler-eem.380.mcz
by commits＠source.squeak.org 20 Mar '18

20 Mar '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.380.mcz ==================== Summary ==================== Name: Compiler-eem.380 Author: eem Time: 20 March 2018, 3:30:10.256928 pm UUID: 3133d60f-54b2-410e-92ae-ef5cc782ab9c Ancestors: Compiler-eem.379 Rename Encoder's addedSelectorAndMethodClassLiterals, a name which is now misleading given the new full block support, to addedExtraLiterals. Requires Compiler-eem.379. =============== Diff against Compiler-eem.379 =============== Item was changed: ----- Method: BytecodeEncoder>>allLiteralsForBlockMethod (in category 'results') ----- allLiteralsForBlockMethod + addedExtraLiterals ifFalse: + [addedExtraLiterals := true. - "N.B. addedSelectorAndMethodClassLiterals is a misnomer. It should be something like - addedImplicitLiterals or addedExtraLiterals." - addedSelectorAndMethodClassLiterals ifFalse: - [addedSelectorAndMethodClassLiterals := true. "Put the optimized selectors in literals so as to browse senders more easily" optimizedSelectors := optimizedSelectors reject: [:e| literalStream originalContents hasLiteral: e]. optimizedSelectors isEmpty ifFalse: [ "Use one entry per literal if enough room, else make anArray" literalStream position + optimizedSelectors size + 2 >= self maxNumLiterals ifTrue: [self litIndex: optimizedSelectors asArray] ifFalse: [optimizedSelectors do: [:e | self litIndex: e]]]. "Add a slot for outerCode" self litIndex: nil]. ^literalStream contents! Item was changed: ----- Method: BytecodeEncoder>>resetForFullBlockGeneration (in category 'code generation') ----- resetForFullBlockGeneration literalStream := WriteStream on: (Array new: 8). + addedExtraLiterals := false. - addedSelectorAndMethodClassLiterals := addedExtraLiterals := false. optimizedSelectors := Set new! Item was changed: ----- Method: BytecodeEncoder>>resetLiteralStreamForFullBlock (in category 'code generation') ----- resetLiteralStreamForFullBlock literalStream := WriteStream on: (Array new: 32). + addedExtraLiterals := false. - addedSelectorAndMethodClassLiterals := addedExtraLiterals := false. optimizedSelectors := Set new! Item was changed: ParseNode subclass: #Encoder + instanceVariableNames: 'scopeTable nTemps supered requestor class selector literalStream selectorSet litIndSet litSet sourceRanges globalSourceRanges addedExtraLiterals optimizedSelectors cue' - instanceVariableNames: 'scopeTable nTemps supered requestor class selector literalStream selectorSet litIndSet litSet sourceRanges globalSourceRanges addedSelectorAndMethodClassLiterals optimizedSelectors cue' classVariableNames: '' poolDictionaries: '' category: 'Compiler-Kernel'! !Encoder commentStamp: 'cwp 12/26/2012 23:29' prior: 0! I encode names and literals into tree nodes with byte codes for the compiler. Byte codes for literals are not assigned until the tree-sizing pass of the compiler, because only then is it known which literals are actually needed. I also keep track of sourceCode ranges during parsing and code generation so I can provide an inverse map for the debugger.! Item was changed: ----- Method: Encoder>>allLiterals (in category 'results') ----- allLiterals + addedExtraLiterals ifFalse: + [addedExtraLiterals := true. - addedSelectorAndMethodClassLiterals ifFalse: - [addedSelectorAndMethodClassLiterals := true. "Put the optimized selectors in literals so as to browse senders more easily" optimizedSelectors := optimizedSelectors reject: [:e| literalStream originalContents hasLiteral: e]. optimizedSelectors isEmpty ifFalse: [ "Use one entry per literal if enough room, else make anArray" literalStream position + optimizedSelectors size + 2 >= self maxNumLiterals ifTrue: [self litIndex: optimizedSelectors asArray] ifFalse: [optimizedSelectors do: [:e | self litIndex: e]]]. "Add a slot for selector or MethodProperties" self litIndex: nil. self litIndex: self associationForClass]. ^literalStream contents! Item was changed: ----- Method: Encoder>>initScopeAndLiteralTables (in category 'initialize-release') ----- initScopeAndLiteralTables scopeTable := StdVariables copy. litSet := StdLiterals copy. "comments can be left hanging on nodes from previous compilations. probably better than this hack fix is to create the nodes afresh on each compilation." scopeTable do: [:varNode| varNode comment: nil]. litSet do: [:varNode| varNode comment: nil]. selectorSet := StdSelectors copy. litIndSet := Dictionary new: 16. literalStream := WriteStream on: (Array new: 32). + addedExtraLiterals := false. - addedSelectorAndMethodClassLiterals := addedExtraLiterals := false. optimizedSelectors := Set new!

1 0

The Trunk: Compiler-eem.379.mcz
by commits＠source.squeak.org 20 Mar '18

20 Mar '18

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.379.mcz ==================== Summary ==================== Name: Compiler-eem.379 Author: eem Time: 20 March 2018, 3:27:27.12646 pm UUID: b3856f24-9d98-478a-936f-c6d24d667be4 Ancestors: Compiler-eem.378 Add initialization of the Undeclared variable addedExtraLiterals which is soon to be a replacement for Encoder's addedSelectorAndMethodClassLiterals, a name which is now misleading given the new full block support. By adding the initialization of the Undeclared variable the compiler is not broken as the instance variable is renamed and Encoder's methods are recompiled. =============== Diff against Compiler-eem.378 =============== Item was changed: ----- Method: BytecodeEncoder>>resetForFullBlockGeneration (in category 'code generation') ----- resetForFullBlockGeneration literalStream := WriteStream on: (Array new: 8). + addedSelectorAndMethodClassLiterals := addedExtraLiterals := false. - addedSelectorAndMethodClassLiterals := false. optimizedSelectors := Set new! Item was changed: ----- Method: BytecodeEncoder>>resetLiteralStreamForFullBlock (in category 'code generation') ----- resetLiteralStreamForFullBlock literalStream := WriteStream on: (Array new: 32). + addedSelectorAndMethodClassLiterals := addedExtraLiterals := false. - addedSelectorAndMethodClassLiterals := false. optimizedSelectors := Set new! Item was changed: ----- Method: Encoder>>initScopeAndLiteralTables (in category 'initialize-release') ----- initScopeAndLiteralTables scopeTable := StdVariables copy. litSet := StdLiterals copy. "comments can be left hanging on nodes from previous compilations. probably better than this hack fix is to create the nodes afresh on each compilation." scopeTable do: [:varNode| varNode comment: nil]. litSet do: [:varNode| varNode comment: nil]. selectorSet := StdSelectors copy. litIndSet := Dictionary new: 16. literalStream := WriteStream on: (Array new: 32). + addedSelectorAndMethodClassLiterals := addedExtraLiterals := false. - addedSelectorAndMethodClassLiterals := false. optimizedSelectors := Set new!

1 0

The Trunk: Kernel-dtl.1162.mcz
by commits＠source.squeak.org 17 Mar '18

17 Mar '18

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1162.mcz ==================== Summary ==================== Name: Kernel-dtl.1162 Author: dtl Time: 17 March 2018, 3:11:04.807847 pm UUID: 46f46dde-06c6-4189-a8e6-4a07eda959bf Ancestors: Kernel-eem.1161 Use #rootClasses introduced in Environments-fbs.27 =============== Diff against Kernel-eem.1161 =============== Item was changed: ----- Method: Class class>>rootsOfTheWorld (in category 'inquiries') ----- rootsOfTheWorld "return a collection of classes which have a nil superclass" + ^Smalltalk globals rootClasses! - ^(Smalltalk globals select: [:each | each isBehavior and: [each superclass isNil]]) asOrderedCollection!

1 0

The Trunk: Environments-dtl.72.mcz
by commits＠source.squeak.org 17 Mar '18

17 Mar '18

David T. Lewis uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-dtl.72.mcz ==================== Summary ==================== Name: Environments-dtl.72 Author: dtl Time: 17 March 2018, 3:09:49.564301 pm UUID: e9aed004-8798-41c0-83f9-a04f5963dd55 Ancestors: Environments-jr.71, Environments-fbs.27 Merge Environments-fbs.27 =============== Diff against Environments-jr.71 =============== Item was added: + ----- Method: Environment>>rootClasses (in category 'accessing') ----- + rootClasses + "return a collection of classes which have a nil superclass" + ^ (self select: [:each | each isBehavior and: [each superclass isNil]]) asOrderedCollection.!

1 0

The Trunk: Environments-fbs.27.mcz
by commits＠source.squeak.org 17 Mar '18

17 Mar '18

David T. Lewis uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-fbs.27.mcz ==================== Summary ==================== Name: Environments-fbs.27 Author: fbs Time: 9 May 2013, 10:39:28.736 pm UUID: 8fe75259-bf86-4dfd-82f5-e57c4fbbca68 Ancestors: Environments-fbs.26 Like what Class rootsOfTheWorld does, only just for one Environment. =============== Diff against Environments-fbs.26 =============== Item was added: + ----- Method: Environment>>rootClasses (in category 'accessing') ----- + rootClasses + "return a collection of classes which have a nil superclass" + ^ (self select: [:each | each isBehavior and: [each superclass isNil]]) asOrderedCollection.!

1 0

The Trunk: MorphicExtras-kfr.225.mcz
by commits＠source.squeak.org 17 Mar '18

17 Mar '18

Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-kfr.225.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.225 Author: kfr Time: 17 March 2018, 5:17:23.487749 pm UUID: 78480405-7131-4243-8b61-5dbe706cfb8c Ancestors: MorphicExtras-topa.224 Fix for EnvelopeEditorMorph so it can open =============== Diff against MorphicExtras-topa.224 =============== Item was changed: ----- Method: EnvelopeEditorMorph>>buildScalesIn: (in category 'editing') ----- buildScalesIn: frame | env | env := envelope. pixPerTick := graphArea width // (self maxTime//10) max: 1. "hminortick := ( 1 + ( self maxTime // 800 ) ) * 10. hmajortick := ( 1 + ( self maxTime // 800 ) ) * 100." hScale := (Morph newBounds: ((graphArea left)@(frame top) corner: (self xFromMs: self maxTime)@(graphArea top - 1))) color: Color lightGreen. " hScale := (ScaleMorph newBounds: ((graphArea left)@(frame top) corner: (self xFromMs: self maxTime)@(graphArea top - 1))) start: 0 stop: self maxTime minorTick: hminortick minorTickLength: 3 majorTick: hmajortick majorTickLength: 10 caption: 'milliseconds' tickPrintBlock: [:v | v printString]. " self addMorph: hScale. vScale := (Morph newBounds: (0@0 extent: (graphArea height)@(graphArea left - frame left))) color: Color lightGreen. "vScale := ScaleMorph newBounds: (0@0 extent: (graphArea height)@(graphArea left - frame left))." + "env name = 'pitch' - env name = 'pitch' ifTrue: [env scale >= 2.0 ifTrue: [vScale start: 0 stop: env scale minorTick: env scale / 24 minorTickLength: 3 majorTick: env scale / 2.0 majorTickLength: 10 caption: 'pitch (octaves)' tickPrintBlock: [:v | (v-(env scale/2)) asInteger printString]] ifFalse: [vScale start: 0 stop: env scale minorTick: 1.0/48.0 minorTickLength: 3 majorTick: 1.0/12.0 majorTickLength: 10 caption: 'pitch (half-steps)' tickPrintBlock: [:v | (v-(env scale/2)*12) rounded printString]]] ifFalse: [ env name = 'random pitch:' ifTrue: [ vScale start: 0.9 stop: 1.1 minorTick: 0.2 / 50.0 minorTickLength: 3 majorTick: 0.2 / 5.0 majorTickLength: 10 caption: env name tickPrintBlock: [:v | v printString]] ifFalse: [ vScale start: 0 stop: env scale minorTick: env scale / 50.0 minorTickLength: 3 majorTick: env scale / 5.0 majorTickLength: 10 caption: env name tickPrintBlock: [:v | v printString]]. + ]." - ]. vScale := TransformationMorph new asFlexOf: vScale. vScale angle: Float pi / 2.0. self addMorph: vScale. vScale position: (frame left)@(graphArea top-1) - (3@1). !

1 0

The Trunk: Balloon-dtl.32.mcz
by commits＠source.squeak.org 16 Mar '18

16 Mar '18

David T. Lewis uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-dtl.32.mcz ==================== Summary ==================== Name: Balloon-dtl.32 Author: dtl Time: 16 March 2018, 10:16:40.975411 am UUID: 555cd6b2-1e3e-47ba-b48f-32f3534e16f0 Ancestors: Balloon-nice.31, Balloon-tfel.26 Merge from inbox. Note, original Balloon-tfel.26 is moved to treated inbox to avoid file name conflict in trunk. Name: Balloon-tfel.26 Author: tfel Time: 12 February 2015, 3:28:04.366 pm UUID: 94ab88a7-1f0f-0048-b15f-1a604dc5601a Ancestors: Balloon-tfel.22, Balloon-bf.25 Instead of failing hard, return default values from Balloon primitive methods, for VMs without plugin (i.e., RSqueakVM) =============== Diff against Balloon-nice.31 =============== Item was changed: ----- Method: BalloonEngine>>primAddActiveEdgeTableEntryFrom: (in category 'primitives-incremental') ----- primAddActiveEdgeTableEntryFrom: edgeEntry "Add edge entry to the AET." <primitive: 'primitiveAddActiveEdgeEntry' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddActiveEdgeTableEntryFrom: edgeEntry ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddBezierFrom:to:via:leftFillIndex:rightFillIndex: (in category 'primitives-adding') ----- primAddBezierFrom: start to: end via: via leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex <primitive: 'primitiveAddBezier' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddBezierFrom: start to: end via: via leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddBezierShape:segments:fill:lineWidth:lineFill: (in category 'primitives-adding') ----- primAddBezierShape: points segments: nSegments fill: fillStyle lineWidth: lineWidth lineFill: lineFill <primitive: 'primitiveAddBezierShape' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddBezierShape: points segments: nSegments fill: fillStyle lineWidth: lineWidth lineFill: lineFill ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddBitmapFill:colormap:tile:from:along:normal:xIndex: (in category 'primitives-adding') ----- primAddBitmapFill: form colormap: cmap tile: tileFlag from: origin along: direction normal: normal xIndex: xIndex <primitive: 'primitiveAddBitmapFill' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddBitmapFill: form colormap: cmap tile: tileFlag from: origin along: direction normal: normal xIndex: xIndex ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddCompressedShape:segments:leftFills:rightFills:lineWidths:lineFills:fillIndexList: (in category 'primitives-adding') ----- primAddCompressedShape: points segments: nSegments leftFills: leftFills rightFills: rightFills lineWidths: lineWidths lineFills: lineFills fillIndexList: fillIndexList <primitive: 'primitiveAddCompressedShape' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddCompressedShape: points segments: nSegments leftFills: leftFills rightFills: rightFills lineWidths: lineWidths lineFills: lineFills fillIndexList: fillIndexList ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddExternalEdge:initialX:initialY:initialZ:leftFillIndex:rightFillIndex: (in category 'primitives-adding') ----- primAddExternalEdge: index initialX: initialX initialY: initialY initialZ: initialZ leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex <primitive: 'primitiveRegisterExternalEdge' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddExternalEdge: index initialX: initialX initialY: initialY initialZ: initialZ leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddExternalFill: (in category 'primitives-adding') ----- primAddExternalFill: index <primitive: 'primitiveRegisterExternalFill' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddExternalFill: index ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddGradientFill:from:along:normal:radial: (in category 'primitives-adding') ----- primAddGradientFill: colorRamp from: origin along: direction normal: normal radial: isRadial <primitive: 'primitiveAddGradientFill' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddGradientFill: colorRamp from: origin along: direction normal: normal radial: isRadial ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddLineFrom:to:leftFillIndex:rightFillIndex: (in category 'primitives-adding') ----- primAddLineFrom: start to: end leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex <primitive: 'primitiveAddLine' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddLineFrom: start to: end leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddOvalFrom:to:fillIndex:borderWidth:borderColor: (in category 'primitives-adding') ----- primAddOvalFrom: start to: end fillIndex: fillIndex borderWidth: width borderColor: pixelValue32 <primitive: 'primitiveAddOval' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddOvalFrom: start to: end fillIndex: fillIndex borderWidth: width borderColor: pixelValue32 ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddPolygon:segments:fill:lineWidth:lineFill: (in category 'primitives-adding') ----- primAddPolygon: points segments: nSegments fill: fillStyle lineWidth: lineWidth lineFill: lineFill <primitive: 'primitiveAddPolygon' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddPolygon: points segments: nSegments fill: fillStyle lineWidth: lineWidth lineFill: lineFill ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddRectFrom:to:fillIndex:borderWidth:borderColor: (in category 'primitives-adding') ----- primAddRectFrom: start to: end fillIndex: fillIndex borderWidth: width borderColor: pixelValue32 <primitive: 'primitiveAddRect' module: 'B2DPlugin' error: errorCode> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddRectFrom: start to: end fillIndex: fillIndex borderWidth: width borderColor: pixelValue32 ]. + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primChangeActiveEdgeTableEntryFrom: (in category 'primitives-incremental') ----- primChangeActiveEdgeTableEntryFrom: edgeEntry "Change the entry in the active edge table from edgeEntry" <primitive: 'primitiveChangedActiveEdgeEntry' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primClipRectInto: (in category 'primitives-access') ----- primClipRectInto: rect <primitive: 'primitiveGetClipRect' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primCopyBufferFrom:to: (in category 'primitives-misc') ----- primCopyBufferFrom: oldBuffer to: newBuffer "Copy the contents of oldBuffer into the (larger) newBuffer" <primitive: 'primitiveCopyBuffer' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primDisplaySpanBuffer (in category 'primitives-incremental') ----- primDisplaySpanBuffer "Display the current scan line if necessary" <primitive: 'primitiveDisplaySpanBuffer' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primFinishedProcessing (in category 'primitives-incremental') ----- primFinishedProcessing "Return true if there are no more entries in AET and GET and the last scan line has been displayed" <primitive: 'primitiveFinishedProcessing' module: 'B2DPlugin' error: errorCode> + ^ true! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primFlushNeeded (in category 'primitives-access') ----- primFlushNeeded <primitive: 'primitiveNeedsFlush' module: 'B2DPlugin' error: errorCode> + ^ false! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primFlushNeeded: (in category 'primitives-access') ----- primFlushNeeded: aBoolean <primitive: 'primitiveNeedsFlushPut' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetAALevel (in category 'primitives-access') ----- primGetAALevel "Set the AA level" <primitive: 'primitiveGetAALevel' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetBezierStats: (in category 'primitives-access') ----- primGetBezierStats: statsArray <primitive: 'primitiveGetBezierStats' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetClipRect: (in category 'primitives-access') ----- primGetClipRect: rect <primitive: 'primitiveGetClipRect' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetCounts: (in category 'primitives-access') ----- primGetCounts: statsArray <primitive: 'primitiveGetCounts' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetDepth (in category 'primitives-access') ----- primGetDepth <primitive: 'primitiveGetDepth' module: 'B2DPlugin' error: errorCode> + ^ 32! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetOffset (in category 'primitives-access') ----- primGetOffset <primitive: 'primitiveGetOffset' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetTimes: (in category 'primitives-access') ----- primGetTimes: statsArray <primitive: 'primitiveGetTimes' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primInitializeBuffer: (in category 'primitives-misc') ----- primInitializeBuffer: buffer <primitive: 'primitiveInitializeBuffer' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primInitializeProcessing (in category 'primitives-incremental') ----- primInitializeProcessing "Initialize processing in the GE. Create the active edge table and sort it." <primitive: 'primitiveInitializeProcessing' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primMergeFill:from: (in category 'primitives-incremental') ----- primMergeFill: fillBitmap from: fill "Merge the filled bitmap into the current output buffer." <primitive: 'primitiveMergeFillFrom' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primNextActiveEdgeEntryInto: (in category 'primitives-incremental') ----- primNextActiveEdgeEntryInto: edgeEntry "Store the next entry of the AET at the current y-value in edgeEntry. Return false if there is no entry, true otherwise." <primitive: 'primitiveNextActiveEdgeEntry' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primNextFillEntryInto: (in category 'primitives-incremental') ----- primNextFillEntryInto: fillEntry "Store the next fill entry of the active edge table in fillEntry. Return false if there is no such entry, true otherwise" <primitive: 'primitiveNextFillEntry' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primNextGlobalEdgeEntryInto: (in category 'primitives-incremental') ----- primNextGlobalEdgeEntryInto: edgeEntry "Store the next entry of the GET at the current y-value in edgeEntry. Return false if there is no entry, true otherwise." <primitive: 'primitiveNextGlobalEdgeEntry' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primRenderImage:with: (in category 'primitives-incremental') ----- primRenderImage: edge with: fill "Start/Proceed rendering the current scan line" <primitive: 'primitiveRenderImage' module: 'B2DPlugin' error: errorCode> + ^0 ! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primRenderScanline:with: (in category 'primitives-incremental') ----- primRenderScanline: edge with: fill "Start/Proceed rendering the current scan line" <primitive: 'primitiveRenderScanline' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetAALevel: (in category 'primitives-access') ----- primSetAALevel: level "Set the AA level" <primitive: 'primitiveSetAALevel' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetClipRect: (in category 'primitives-access') ----- primSetClipRect: rect <primitive: 'primitiveSetClipRect' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetColorTransform: (in category 'primitives-access') ----- primSetColorTransform: transform <primitive: 'primitiveSetColorTransform' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetDepth: (in category 'primitives-access') ----- primSetDepth: depth <primitive: 'primitiveSetDepth' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetEdgeTransform: (in category 'primitives-access') ----- primSetEdgeTransform: transform <primitive: 'primitiveSetEdgeTransform' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetOffset: (in category 'primitives-access') ----- primSetOffset: point <primitive: 'primitiveSetOffset' module: 'B2DPlugin' error: errorCode> + ^ 0! - ^self primitiveFailed!

1 0

The Trunk: Tools-tcj.801.mcz
by commits＠source.squeak.org 16 Mar '18

16 Mar '18

David T. Lewis uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tcj.801.mcz ==================== Summary ==================== Name: Tools-tcj.801 Author: tcj Time: 14 March 2018, 9:23:29.964076 pm UUID: a2b6925f-cc1b-41ed-a14d-b2341f1eb942 Ancestors: Tools-eem.800 Remove deprecated method from MethodFinder's list of sent messages. Fix typo in InspectorBrowser class comment. =============== Diff against Tools-eem.800 =============== Item was changed: Inspector subclass: #InspectorBrowser instanceVariableNames: 'fieldList msgList msgListIndex' classVariableNames: '' poolDictionaries: '' category: 'Tools-Inspector'! + !InspectorBrowser commentStamp: 'tcj 3/12/2018 07:55' prior: 0! + I am an inspector that also shows all messages the inspected objects can understand. I combine inspector and code browser. - !InspectorBrowser commentStamp: 'mt 4/12/2016 17:29' prior: 0! - I am an inspector that also shows all messages the inspected objects can understand. I combine inspetor and code browser. InspectorBrowser openOn: Smalltalk! Item was changed: ----- Method: MethodFinder>>initialize (in category 'initialize') ----- (excessive size, no diff calculated)

1 0

The Trunk: Graphics-tcj.394.mcz
by commits＠source.squeak.org 16 Mar '18

16 Mar '18

David T. Lewis uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tcj.394.mcz ==================== Summary ==================== Name: Graphics-tcj.394 Author: tcj Time: 14 March 2018, 7:45:50.629337 pm UUID: 320ef8b2-0718-4507-89d6-e89306c51fa2 Ancestors: Graphics-ul.393 Fix example usage comment in GIFReadWriter =============== Diff against Graphics-ul.393 =============== Item was changed: ----- Method: GIFReadWriter class>>grabScreenAndSaveOnDisk (in category 'examples') ----- grabScreenAndSaveOnDisk + "GIFReadWriter grabScreenAndSaveOnDisk" - "GIFReaderWriter grabScreenAndSaveOnDisk" | form fileName | form := Form fromUser. form bits size = 0 ifTrue: [^Beeper beep]. fileName := FileDirectory default nextNameFor: 'Squeak' extension: 'gif'. UIManager default informUser: 'Writing ' , fileName during: [GIFReadWriter putForm: form onFileNamed: fileName]!

1 0

The Trunk: Kernel-eem.1161.mcz
by commits＠source.squeak.org 15 Mar '18

15 Mar '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1161.mcz ==================== Summary ==================== Name: Kernel-eem.1161 Author: eem Time: 14 March 2018, 7:16:26.289237 pm UUID: 53deb012-ffaa-41f5-a0d0-7e8ddfb4bbb1 Ancestors: Kernel-eem.1160 Reimplement CompiledMethod>>messages[Do:] so that they function in the full blocks regime (i.e. they include messages in block methods). =============== Diff against Kernel-eem.1160 =============== Item was added: + ----- Method: CompiledCode>>messages (in category 'scanning') ----- + messages + "Answer a Set of all the message selectors sent by this method." + + | encoderClass scanner aSet | + encoderClass := self encoderClass. + aSet := Set new. + scanner := InstructionStream on: self. + scanner scanFor: [ :x | + | selector | + (selector := encoderClass selectorToSendOrItselfFor: scanner in: self at: scanner pc) == scanner + ifFalse: + [aSet add: selector] + ifTrue: + [(encoderClass blockMethodOrNilFor: scanner in: self at: scanner pc) ifNotNil: + [:blockMethod| aSet addAll: blockMethod messages]]. + false "keep scanning" ]. + ^aSet! Item was added: + ----- Method: CompiledCode>>messagesDo:encoderClass:visitedSet: (in category 'private') ----- + messagesDo: aBlock encoderClass: encoderClass visitedSet: visitedSet + "The inner engine for messagesDo:" + + | scanner | + scanner := InstructionStream on: self. + scanner scanFor: [ :x | + | selector | + (selector := encoderClass selectorToSendOrItselfFor: scanner in: self at: scanner pc) == scanner + ifFalse: + [(visitedSet ifAbsentAdd: selector) ifTrue: + [aBlock value: selector]] + ifTrue: + [(encoderClass blockMethodOrNilFor: scanner in: self at: scanner pc) ifNotNil: + [:blockMethod| + blockMethod messagesDo: aBlock encoderClass: encoderClass visitedSet: visitedSet]]. + false "keep scanning" ]! Item was changed: ----- Method: CompiledCode>>refersTo:bytecodeScanner:thorough: (in category 'literals') ----- refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough "Answer if the receiver refers to the literal. If the scan block is non-nil, then use it to find the literal in bytecode. If thorough is true, dive down into literal arrays and method properties to locate references to the literal there-in." 2 to: ((self isCompiledBlock or: [thorough]) + ifTrue: [self numLiterals] "exclude outerCode or methodClass" + ifFalse: [self numLiterals - 1]) "exclude selector/properties and methodClass" - ifTrue: [self numLiterals ] "exclude outerCode or methodClass" - ifFalse: [self numLiterals - 1]) "exclude selector/properties and methodClass" do: [:i| | lit | lit := self objectAt: i. (literal == lit or: [literal literalEqual: lit]) ifTrue: [^true]. "== for Float bindingOf: #NaN since NaN ~= NaN" lit isCompiledCode ifTrue: [(lit refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough) ifTrue: [^true]] ifFalse: [thorough ifTrue: [lit isVariableBinding ifTrue: [literal == lit key ifTrue: [^true]] ifFalse: [(lit isArray and: [(lit hasLiteral: literal) or: [literal isVariableBinding and: [literal key isSymbol and: [lit hasLiteral: literal key]]]]) ifTrue: [^true]]]]]. scanBlockOrNil ifNotNil: [(self scanFor: scanBlockOrNil) ifTrue: [^true]]. ^false! Item was changed: ----- Method: CompiledMethod>>messagesDo: (in category 'scanning') ----- messagesDo: aBlock "Evaluate aBlock exactly once with all the message selectors sent by me." + self isQuick ifFalse: + [self messagesDo: aBlock + encoderClass: self encoderClass + visitedSet: IdentitySet new]! - | scanner aSet | - self isQuick ifTrue: [ ^self ]. - scanner := InstructionStream on: self. - scanner scanFor: [ :x | - | selector | - (selector := scanner selectorToSendOrSelf) == scanner ifFalse: [ - ((aSet ifNil: [ aSet := IdentitySet new ]) ifAbsentAdd: selector) ifTrue: [ - aBlock value: selector ] ]. - false "keep scanning" ]! Item was added: + ----- Method: InstructionStream>>blockMethodOrNil (in category 'scanning') ----- + blockMethodOrNil + "If this instruction is a full block creation, answer the block's method, otherwise nil." + + | method | + method := self method. + ^method encoderClass blockMethodOrNilFor: self in: method at: pc!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2018