Packages August 2013

packages@lists.squeakfoundation.org

1 participants
153 discussions

The Trunk: Monticello-cmm.561.mcz
by commits＠source.squeak.org 16 Aug '13

16 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.561.mcz ==================== Summary ==================== Name: Monticello-cmm.561 Author: cmm Time: 16 August 2013, 3:02:36.937 pm UUID: ccf0e287-93b4-427f-ae5a-dafb4b86d1b8 Ancestors: Monticello-cmm.560 - If an ancestry is already trimmed with a proxy, don't wrap that proxy in yet another proxy if the user invokes flush twice in a row. - Allow flushing of versions without flushing ancestry. - Fix stubbing of merged packages. - Renamed MCWorkingCopyBrowser>>#flushAllCaches to #flushCachedVersions to match what it does. =============== Diff against Monticello-cmm.560 =============== Item was added: + ----- Method: MCAncestry>>isMCInfoProxy (in category 'testing') ----- + isMCInfoProxy + ^ false! Item was changed: ----- Method: MCAncestry>>stubAncestryFor:using: (in category 'initialize-release') ----- + stubAncestryFor: aMCWorkingCopy using: aMCRepository - stubAncestryFor: childInfo using: aMCRepository "childInfo was retrieved from aMCRepository. Replace my ancestry with a Proxy that can retrieve the full tree from these two elements." ancestors := ancestors collect: + [ : each | each isMCInfoProxy + ifTrue: [ each ] + ifFalse: + [ MCInfoProxy + info: each copyWithTrimmedAncestry + workingCopy: aMCWorkingCopy + repository: aMCRepository ] ]. - [ : each | MCInfoProxy - info: each copyWithTrimmedAncestry - child: childInfo - repository: aMCRepository ]. stepChildren := stepChildren collect: + [ : each | each isMCInfoProxy + ifTrue: [ each ] + ifFalse: + [ MCInfoProxy + info: each copyWithTrimmedAncestry + workingCopy: aMCWorkingCopy + repository: aMCRepository ] ]! - [ : each | MCInfoProxy - info: each copyWithTrimmedAncestry - child: childInfo - repository: aMCRepository ].! Item was changed: ProtoObject subclass: #MCInfoProxy + instanceVariableNames: 'info repository workingCopy' - instanceVariableNames: 'info repository childInfo' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Repositories'! !MCInfoProxy commentStamp: 'cmm 8/12/2013 21:51' prior: 0! A MCInfoProxy takes the place of a MCVersionInfo with a large tree of ancestors that consume memory in the image, but are almost never accessed. If they are, however, I will dynamically retrieve and become the Info from the original MC repository which includes the full ancestry tree.! Item was removed: - ----- Method: MCInfoProxy class>>info:child:repository: (in category 'create') ----- - info: aMCVersionInfo child: childInfo repository: aMCRepository - ^ self new - - setInfo: aMCVersionInfo - childInfo: childInfo - repository: aMCRepository! Item was removed: - ----- Method: MCInfoProxy class>>info:repository: (in category 'create') ----- - info: aMCVersionInfo repository: aMCRepository - ^ self new - - setInfo: aMCVersionInfo - repository: aMCRepository! Item was added: + ----- Method: MCInfoProxy class>>info:workingCopy:repository: (in category 'create') ----- + info: aMCVersionInfo workingCopy: aMCWorkingCopy repository: aMCRepository + ^ self new + setInfo: aMCVersionInfo + workingCopy: aMCWorkingCopy + repository: aMCRepository! Item was added: + ----- Method: MCInfoProxy>>isMCInfoProxy (in category 'testing') ----- + isMCInfoProxy + ^ true! Item was changed: ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- materializeInfo + workingCopy ancestry breadthFirstAncestorsDo: + [ : each | (repository versionWithInfo: each) ifNotNil: + [ : ver | ^ ver info allAncestorsDo: + [ : eachAncestor | eachAncestor = info ifTrue: [ ^ eachAncestor ] ] ] ]. + nil error: 'Expected ' , info asString , ' to be an ancestor of one of ' , workingCopy ancestors asString! - | persistentVersion | - [ (persistentVersion := repository versionWithInfo: childInfo) isNil ] whileTrue: [ Warning signal: 'Please copy ' , childInfo name , 'with id ' , childInfo id asString , ' back to ' , repository asString , ' and try again.' ]. - persistentVersion info allAncestorsDo: - [ : each | each = info ifTrue: [ ^ each ] ]. - nil error: 'Expected ' , info asString , ' to be an ancestor of ' , childInfo asString! Item was removed: - ----- Method: MCInfoProxy>>setInfo:childInfo:repository: (in category 'initialize-release') ----- - setInfo: aMCVersionInfo childInfo: childMCVersionInfo repository: aMCRepository - info := aMCVersionInfo. - childInfo := childMCVersionInfo. - repository := aMCRepository! Item was added: + ----- Method: MCInfoProxy>>setInfo:workingCopy:repository: (in category 'initialize-release') ----- + setInfo: aMCVersionInfo workingCopy: aMCWorkingCopy repository: aMCRepository + info := aMCVersionInfo. + workingCopy := aMCWorkingCopy. + repository := aMCRepository! Item was changed: ----- Method: MCWorkingCopy>>stubAncestry (in category 'operations') ----- stubAncestry "Stub all but the most recent 10 of my ancestry tree to save memory with a proxy which can be transparently accessed later, if necessary." self ancestors ifEmpty: [ ^ self ]. repositoryGroup ifNotNil: [ | tenAgo count | count := 0. ancestry ancestorsDoWhileTrue: [ : each | tenAgo := each. (count := count + 1) < 10 ]. tenAgo + stubAncestryFor: self - stubAncestryFor: self ancestors anyOne using: repositoryGroup ]! Item was removed: - ----- Method: MCWorkingCopyBrowser>>flushAllCaches (in category 'actions') ----- - flushAllCaches - | beforeBytes afterBytes beforeVersions afterVersions beforeInfos afterInfos | - Cursor wait showWhile: - [ beforeBytes := Smalltalk garbageCollect. - beforeVersions := MCVersion allSubInstances size. - beforeInfos := MCVersionInfo instanceCount. - MCFileBasedRepository flushAllCaches. - MCWorkingCopy stubAllAncestry. - afterBytes := Smalltalk garbageCollect. - afterVersions := MCVersion allSubInstances size. - afterInfos := MCVersionInfo instanceCount ]. - self inform: - (beforeVersions-afterVersions) asString, ' versions flushed', - String cr, (beforeInfos-afterInfos), ' infos flushed', - String cr, (afterBytes-beforeBytes) asBytesDescription, ' reclaimed'! Item was added: + ----- Method: MCWorkingCopyBrowser>>flushCachedVersions (in category 'actions') ----- + flushCachedVersions + | beforeBytes afterBytes beforeVersions afterVersions | + Cursor wait showWhile: [ + beforeBytes := Smalltalk garbageCollect. + beforeVersions := MCVersion allSubInstances size. + MCFileBasedRepository flushAllCaches. + afterBytes := Smalltalk garbageCollect. + afterVersions := MCVersion allSubInstances size. + ]. + ^self inform: (beforeVersions - afterVersions) asString, ' versions flushed', String cr, + (afterBytes - beforeBytes) asStringWithCommas, ' bytes reclaimed'! Item was added: + ----- Method: MCWorkingCopyBrowser>>flushCachedVersionsAncestry (in category 'actions') ----- + flushCachedVersionsAncestry + | beforeBytes afterBytes beforeVersions afterVersions beforeInfos afterInfos | + Cursor wait showWhile: + [ beforeBytes := Smalltalk garbageCollect. + beforeVersions := MCVersion allSubInstances size. + beforeInfos := MCVersionInfo instanceCount. + MCFileBasedRepository flushAllCaches. + MCWorkingCopy stubAllAncestry. + afterBytes := Smalltalk garbageCollect. + afterVersions := MCVersion allSubInstances size. + afterInfos := MCVersionInfo instanceCount ]. + self inform: + (beforeVersions-afterVersions) asString, ' versions flushed', + String cr, (beforeInfos-afterInfos), ' infos flushed', + String cr, (afterBytes-beforeBytes) asBytesDescription, ' reclaimed'! Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu "first add repository-specific commands" self repository ifNotNil: [self fillMenu: aMenu fromSpecs: #(('open repository' #openRepository) ('edit repository info' #editRepository) ('add to package...' #addRepositoryToPackage) ('remove repository' #removeRepository) ('copy image versions here' #copyImageVersions)). aMenu add: (self repository alwaysStoreDiffs ifTrue: ['store full versions'] ifFalse: ['store diffs']) target: self selector: #toggleDiffs; addLine]. "then the non-specific commands" ^self fillMenu: aMenu fromSpecs: #( ('load repositories' #loadRepositories) ('save repositories' #saveRepositories) + ('flush cached versions' #flushCachedVersions) + ('flush cached versions and ancestry' #flushCachedVersionsAncestry))! - ('flush cached versions' #flushAllCaches))!

1 0

The Trunk: Monticello-cmm.561.mcz
by commits＠source.squeak.org 16 Aug '13

16 Aug '13

1 0

The Trunk: Monticello-cmm.561.mcz
by commits＠source.squeak.org 16 Aug '13

16 Aug '13

1 0

The Trunk: Balloon-eem.23.mcz
by commits＠source.squeak.org 16 Aug '13

16 Aug '13

Eliot Miranda uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-eem.23.mcz ==================== Summary ==================== Name: Balloon-eem.23 Author: eem Time: 15 August 2013, 4:59:40.586 pm UUID: 393b19e2-0b3c-48b5-acd0-e9f9aa4b7961 Ancestors: Balloon-fbs.22, Balloon-ar.19 Merge changes from OpenQwaq (needed by Cog VM) =============== Diff against Balloon-fbs.22 =============== Item was changed: ----- Method: BalloonEngine class>>doProfileStats: (in category 'accessing') ----- doProfileStats: aBool "Note: On Macintosh systems turning on profiling can significantly degrade the performance of Balloon since we're using the high accuracy timer for measuring." "BalloonEngine doProfileStats: true" "BalloonEngine doProfileStats: false" + <primitive: 'primitiveDoProfileStats' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveDoProfileStats' module: 'B2DPlugin'> ^false! Item was changed: ----- Method: BalloonEngine class>>primitiveSetBitBltPlugin: (in category 'private') ----- primitiveSetBitBltPlugin: pluginName + <primitive: 'primitiveSetBitBltPlugin' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveSetBitBltPlugin' module: 'B2DPlugin'> ^nil! Item was changed: ----- Method: BalloonEngine>>bitBlt: (in category 'accessing') ----- bitBlt: aBitBlt + | destWidth | bitBlt := aBitBlt. bitBlt isNil ifTrue:[^self]. + destWidth := bitBlt destForm width. + destWidth > span size ifTrue:[span := Bitmap new: destWidth]. self class primitiveSetBitBltPlugin: bitBlt getPluginName. self clipRect: bitBlt clipRect. bitBlt sourceForm: (Form extent: span size @ 1 depth: 32 bits: span); sourceRect: (0@0 extent: 1@span size); colorMap: (Color colorMapIfNeededFrom: 32 to: bitBlt destForm depth); combinationRule: (bitBlt destForm depth >= 8 ifTrue:[34] ifFalse:[Form paint]).! Item was changed: ----- Method: BalloonEngine>>initialize (in category 'initialize') ----- initialize - | w | - w := Display width > 2048 ifTrue: [ 4096 ] ifFalse: [ 2048 ]. externals := OrderedCollection new: 100. + span := Bitmap new: 2048. - span := Bitmap new: w. bitBlt := nil. self bitBlt: ((BitBlt toForm: Display) destRect: Display boundingBox; yourself). forms := #(). deferred := false.! Item was changed: ----- Method: BalloonEngine>>primAddActiveEdgeTableEntryFrom: (in category 'primitives-incremental') ----- primAddActiveEdgeTableEntryFrom: edgeEntry "Add edge entry to the AET." + <primitive: 'primitiveAddActiveEdgeEntry' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveAddActiveEdgeEntry' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddActiveEdgeTableEntryFrom: edgeEntry ]. ^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> - <primitive: 'primitiveAddBezier' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddBezierFrom: start to: end via: via leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex ]. ^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> - <primitive: 'primitiveAddBezierShape' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddBezierShape: points segments: nSegments fill: fillStyle lineWidth: lineWidth lineFill: lineFill ]. ^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> - <primitive: 'primitiveAddBitmapFill' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddBitmapFill: form colormap: cmap tile: tileFlag from: origin along: direction normal: normal xIndex: xIndex ]. ^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> - <primitive: 'primitiveAddCompressedShape' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddCompressedShape: points segments: nSegments leftFills: leftFills rightFills: rightFills lineWidths: lineWidths lineFills: lineFills fillIndexList: fillIndexList ]. ^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> - <primitive: 'primitiveRegisterExternalEdge' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddExternalEdge: index initialX: initialX initialY: initialY initialZ: initialZ leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex ]. ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primAddExternalFill: (in category 'primitives-adding') ----- primAddExternalFill: index + <primitive: 'primitiveRegisterExternalFill' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveRegisterExternalFill' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddExternalFill: index ]. ^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> - <primitive: 'primitiveAddGradientFill' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddGradientFill: colorRamp from: origin along: direction normal: normal radial: isRadial ]. ^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> - <primitive: 'primitiveAddLine' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddLineFrom: start to: end leftFillIndex: leftFillIndex rightFillIndex: rightFillIndex ]. ^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> - <primitive: 'primitiveAddOval' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddOvalFrom: start to: end fillIndex: fillIndex borderWidth: width borderColor: pixelValue32 ]. ^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> - <primitive: 'primitiveAddPolygon' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddPolygon: points segments: nSegments fill: fillStyle lineWidth: lineWidth lineFill: lineFill ]. ^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> - <primitive: 'primitiveAddRect' module: 'B2DPlugin'> (self canProceedAfter: self primGetFailureReason) ifTrue:[ ^self primAddRectFrom: start to: end fillIndex: fillIndex borderWidth: width borderColor: pixelValue32 ]. ^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> - <primitive: 'primitiveChangedActiveEdgeEntry' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primClipRectInto: (in category 'primitives-access') ----- primClipRectInto: rect + <primitive: 'primitiveGetClipRect' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetClipRect' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveCopyBuffer' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveDisplaySpanBuffer' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveFinishedProcessing' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primFlushNeeded (in category 'primitives-access') ----- primFlushNeeded + <primitive: 'primitiveNeedsFlush' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveNeedsFlush' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primFlushNeeded: (in category 'primitives-access') ----- primFlushNeeded: aBoolean + <primitive: 'primitiveNeedsFlushPut' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveNeedsFlushPut' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetAALevel (in category 'primitives-access') ----- primGetAALevel "Set the AA level" + <primitive: 'primitiveGetAALevel' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetAALevel' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetBezierStats: (in category 'primitives-access') ----- primGetBezierStats: statsArray + <primitive: 'primitiveGetBezierStats' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetBezierStats' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetClipRect: (in category 'primitives-access') ----- primGetClipRect: rect + <primitive: 'primitiveGetClipRect' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetClipRect' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetCounts: (in category 'primitives-access') ----- primGetCounts: statsArray + <primitive: 'primitiveGetCounts' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetCounts' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetDepth (in category 'primitives-access') ----- primGetDepth + <primitive: 'primitiveGetDepth' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetDepth' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetFailureReason (in category 'primitives-access') ----- primGetFailureReason + <primitive: 'primitiveGetFailureReason' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetFailureReason' module: 'B2DPlugin'> ^0! Item was changed: ----- Method: BalloonEngine>>primGetOffset (in category 'primitives-access') ----- primGetOffset + <primitive: 'primitiveGetOffset' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetOffset' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primGetTimes: (in category 'primitives-access') ----- primGetTimes: statsArray + <primitive: 'primitiveGetTimes' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveGetTimes' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primInitializeBuffer: (in category 'primitives-misc') ----- primInitializeBuffer: buffer + <primitive: 'primitiveInitializeBuffer' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveInitializeBuffer' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveInitializeProcessing' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveMergeFillFrom' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveNextActiveEdgeEntry' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveNextFillEntry' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveNextGlobalEdgeEntry' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveRenderImage' module: 'B2DPlugin'> ^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> - <primitive: 'primitiveRenderScanline' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetAALevel: (in category 'primitives-access') ----- primSetAALevel: level "Set the AA level" + <primitive: 'primitiveSetAALevel' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveSetAALevel' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetClipRect: (in category 'primitives-access') ----- primSetClipRect: rect + <primitive: 'primitiveSetClipRect' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveSetClipRect' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetColorTransform: (in category 'primitives-access') ----- primSetColorTransform: transform + <primitive: 'primitiveSetColorTransform' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveSetColorTransform' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetDepth: (in category 'primitives-access') ----- primSetDepth: depth + <primitive: 'primitiveSetDepth' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveSetDepth' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetEdgeTransform: (in category 'primitives-access') ----- primSetEdgeTransform: transform + <primitive: 'primitiveSetEdgeTransform' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveSetEdgeTransform' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: ----- Method: BalloonEngine>>primSetOffset: (in category 'primitives-access') ----- primSetOffset: point + <primitive: 'primitiveSetOffset' module: 'B2DPlugin' error: errorCode> - <primitive: 'primitiveSetOffset' module: 'B2DPlugin'> ^self primitiveFailed! Item was changed: SharedPool subclass: #BalloonEngineConstants instanceVariableNames: '' + classVariableNames: 'BEAaLevelIndex BEBalloonEngineSize BEBitBltIndex BEClipRectIndex BEColorTransformIndex BEDeferredIndex BEDestOffsetIndex BEEdgeTransformIndex BEExternalsIndex BEFormsIndex BEPostFlushNeededIndex BESpanIndex BEWorkBufferIndex ETBalloonEdgeDataSize ETIndexIndex ETLinesIndex ETSourceIndex ETXValueIndex ETYValueIndex ETZValueIndex FTBalloonFillDataSize FTDestFormIndex FTIndexIndex FTMaxXIndex FTMinXIndex FTSourceIndex FTYValueIndex GBBaseSize GBBitmapDepth GBBitmapHeight GBBitmapRaster GBBitmapSize GBBitmapWidth GBColormapOffset GBColormapSize GBEndX GBEndY GBFinalX GBMBaseSize GBTileFlag GBUpdateDDX GBUpdateDDY GBUpdateDX GBUpdateDY GBUpdateData GBUpdateX GBUpdateY GBViaX GBViaY GBWideEntry GBWideExit GBWideExtent GBWideFill GBWideSize GBWideUpdateData GBWideWidth GEBaseEdgeSize GEBaseFillSize GEEdgeClipFlag GEEdgeFillsInvalid GEFAlreadyFailed GEFBadPoint GEFBitBltLoadFailed GEFClassMismatch GEFEdgeDataTooSmall GEFEngineIsInteger GEFEngineIsWords GEFEngineStopped GEFEngineTooSmall GEFEntityCheckFailed GEFEntityLoadFailed GEFFillDataTooSmall GEFFormLoadFailed GEFSizeMismatch GEFWorkBufferBadMagic GEFWorkBufferIsInteger GEFWorkBufferIsPointers GEFWorkBufferStartWrong GEFWorkBufferTooSmall GEFWorkBufferWrongSize GEFWorkTooBig GEFWrongEdge GEFWrongFill GEFWrongState GEFillIndexLeft GEFillIndexRight GENumLines GEObjectIndex GEObjectLength GEObjectType GEObjectUnused GEPrimitiveBezier GEPrimitiveClippedBitmapFill GEPrimitiveEdge GEPrimitiveEdgeMask GEPrimitiveFill GEPrimitiveFillMask GEPrimitiveLine GEPrimitiveLinearGradientFill GEPrimitiveRadialGradientFill GEPrimitiveRepeatedBitmapFill GEPrimitiveTypeMask GEPrimitiveUnknown GEPrimitiveWide GEPrimitiveWideBezier GEPrimitiveWideEdge GEPrimitiveWideLine GEPrimitiveWideMask GEStateAddingFromGET GEStateBlitBuffer GEStateCompleted GEStateScanningAET GEStateUnlocked GEStateUpdateEdges GEStateWaitingChange GEStateWaitingForEdge GEStateWaitingForFill GEXValue GEYValue GEZValue GErrorAETEntry GErrorBadState GErrorFillEntry GErrorGETEntry GErrorNeedFlush GErrorNoMoreSpace GFDirectionX GFDirectionY GFNormalX GFNormalY GFOriginX GFOriginY GFRampLength GFRampOffset GGBaseSize GLBaseSize GLEndX GLEndY GLError GLErrorAdjDown GLErrorAdjUp GLWideEntry GLWideExit GLWideExtent GLWideFill GLWideSize GLWideWidth GLXDirection GLXIncrement GLYDirection GWAAColorMask GWAAColorShift GWAAHalfPixel GWAALevel GWAAScanMask GWAAShift GWAETStart GWAETUsed GWBezierHeightSubdivisions GWBezierLineConversions GWBezierMonotonSubdivisions GWBezierOverflowSubdivisions GWBufferTop GWClearSpanBuffer GWClipMaxX GWClipMaxY GWClipMinX GWClipMinY GWColorTransform GWCountAddAETEntry GWCountChangeAETEntry GWCountDisplaySpan GWCountFinishTest GWCountInitializing GWCountMergeFill GWCountNextAETEntry GWCountNextFillEntry GWCountNextGETEntry GWCurrentY GWCurrentZ GWDestOffsetX GWDestOffsetY GWEdgeTransform GWFillMaxX GWFillMaxY GWFillMinX GWFillMinY GWFillOffsetX GWFillOffsetY GWGETStart GWGETUsed GWHasClipShapes GWHasColorTransform GWHasEdgeTransform GWHeaderSize GWLastExportedEdge GWLastExportedFill GWLastExportedLeftX GWLastExportedRightX GWMagicIndex GWMagicNumber GWMinimalSize GWNeedsFlush GWObjStart GWObjUsed GWPoint1 GWPoint2 GWPoint3 GWPoint4 GWPointListFirst GWSize GWSpanEnd GWSpanEndAA GWSpanSize GWSpanStart GWState GWStopReason GWTimeAddAETEntry GWTimeChangeAETEntry GWTimeDisplaySpan GWTimeFinishTest GWTimeInitializing GWTimeMergeFill GWTimeNextAETEntry GWTimeNextFillEntry GWTimeNextGETEntry' - classVariableNames: 'BEAaLevelIndex BEBalloonEngineSize BEBitBltIndex BEClipRectIndex BEColorTransformIndex BEDeferredIndex BEDestOffsetIndex BEEdgeTransformIndex BEExternalsIndex BEFormsIndex BEPostFlushNeededIndex BESpanIndex BEWorkBufferIndex ETBalloonEdgeDataSize ETIndexIndex ETLinesIndex ETSourceIndex ETXValueIndex ETYValueIndex ETZValueIndex FTBalloonFillDataSize FTDestFormIndex FTIndexIndex FTMaxXIndex FTMinXIndex FTSourceIndex FTYValueIndex GBBaseSize GBBitmapDepth GBBitmapHeight GBBitmapRaster GBBitmapSize GBBitmapWidth GBColormapOffset GBColormapSize GBEndX GBEndY GBFinalX GBMBaseSize GBTileFlag GBUpdateDDX GBUpdateDDY GBUpdateDX GBUpdateDY GBUpdateData GBUpdateX GBUpdateY GBViaX GBViaY GBWideEntry GBWideExit GBWideExtent GBWideFill GBWideSize GBWideUpdateData GBWideWidth GEBaseEdgeSize GEBaseFillSize GEEdgeClipFlag GEEdgeFillsInvalid GEFillIndexLeft GEFillIndexRight GENumLines GEObjectIndex GEObjectLength GEObjectType GEObjectUnused GEPrimitiveBezier GEPrimitiveClippedBitmapFill GEPrimitiveEdge GEPrimitiveEdgeMask GEPrimitiveFill GEPrimitiveFillMask GEPrimitiveLine GEPrimitiveLinearGradientFill GEPrimitiveRadialGradientFill GEPrimitiveRepeatedBitmapFill GEPrimitiveTypeMask GEPrimitiveUnknown GEPrimitiveWide GEPrimitiveWideBezier GEPrimitiveWideEdge GEPrimitiveWideLine GEPrimitiveWideMask GEStateAddingFromGET GEStateBlitBuffer GEStateCompleted GEStateScanningAET GEStateUnlocked GEStateUpdateEdges GEStateWaitingChange GEStateWaitingForEdge GEStateWaitingForFill GEXValue GEYValue GEZValue GErrorAETEntry GErrorBadState GErrorFillEntry GErrorGETEntry GErrorNeedFlush GErrorNoMoreSpace GFDirectionX GFDirectionY GFNormalX GFNormalY GFOriginX GFOriginY GFRampLength GFRampOffset GGBaseSize GLBaseSize GLEndX GLEndY GLError GLErrorAdjDown GLErrorAdjUp GLWideEntry GLWideExit GLWideExtent GLWideFill GLWideSize GLWideWidth GLXDirection GLXIncrement GLYDirection GWAAColorMask GWAAColorShift GWAAHalfPixel GWAALevel GWAAScanMask GWAAShift GWAETStart GWAETUsed GWBezierHeightSubdivisions GWBezierLineConversions GWBezierMonotonSubdivisions GWBezierOverflowSubdivisions GWBufferTop GWClearSpanBuffer GWClipMaxX GWClipMaxY GWClipMinX GWClipMinY GWColorTransform GWCountAddAETEntry GWCountChangeAETEntry GWCountDisplaySpan GWCountFinishTest GWCountInitializing GWCountMergeFill GWCountNextAETEntry GWCountNextFillEntry GWCountNextGETEntry GWCurrentY GWCurrentZ GWDestOffsetX GWDestOffsetY GWEdgeTransform GWFillMaxX GWFillMaxY GWFillMinX GWFillMinY GWFillOffsetX GWFillOffsetY GWGETStart GWGETUsed GWHasClipShapes GWHasColorTransform GWHasEdgeTransform GWHeaderSize GWLastExportedEdge GWLastExportedFill GWLastExportedLeftX GWLastExportedRightX GWMagicIndex GWMagicNumber GWMinimalSize GWNeedsFlush GWObjStart GWObjUsed GWPoint1 GWPoint2 GWPoint3 GWPoint4 GWPointListFirst GWSize GWSpanEnd GWSpanEndAA GWSpanSize GWSpanStart GWState GWStopReason GWTimeAddAETEntry GWTimeChangeAETEntry GWTimeDisplaySpan GWTimeFinishTest GWTimeInitializing GWTimeMergeFill GWTimeNextAETEntry GWTimeNextFillEntry GWTimeNextGETEntry' poolDictionaries: '' category: 'Balloon-Engine'! Item was changed: ----- Method: BalloonEngineConstants class>>initPrimitiveConstants (in category 'pool definition') ----- initPrimitiveConstants "Initialize the primitive constants" "Primitive type constants" GEPrimitiveUnknown := 0. GEPrimitiveEdgeMask := 16rFF. GEPrimitiveFillMask := 16rFF00. GEPrimitiveTypeMask := 16rFFFF. "General state constants (Note: could be compressed later)" GEObjectType := 0. "Type of object" GEObjectLength := 1. "Length of object" GEObjectIndex := 2. "Index into external objects" GEObjectUnused := 3. "Currently unused" + "Primitive failure codes" + GEFAlreadyFailed := 100. + + GEFEngineIsInteger := 101. + GEFEngineIsWords := 102. + GEFEngineTooSmall := 103. + GEFEngineStopped := 104. + + GEFWorkBufferIsInteger := 105. + GEFWorkBufferIsPointers := 106. + GEFWorkBufferTooSmall := 107. + GEFWorkBufferBadMagic := 108. + GEFWorkBufferWrongSize := 109. + GEFWorkBufferStartWrong := 110. + GEFWorkTooBig := 111. + + GEFEdgeDataTooSmall := 112. + GEFFillDataTooSmall := 113. + GEFClassMismatch := 114. + GEFSizeMismatch := 115. + GEFWrongState := 116. + GEFWrongFill := 117. + GEFWrongEdge := 118. + + GEFEntityLoadFailed := 119. + GEFEntityCheckFailed := 120. + GEFBadPoint := 121. + GEFBitBltLoadFailed := 122. + GEFFormLoadFailed := 123! - !

1 0

The Trunk: Balloon-eem.23.mcz
by commits＠source.squeak.org 16 Aug '13

16 Aug '13

1 0

The Trunk: Balloon-eem.23.mcz
by commits＠source.squeak.org 16 Aug '13

16 Aug '13

1 0

The Trunk: Monticello-cmm.560.mcz
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.560.mcz ==================== Summary ==================== Name: Monticello-cmm.560 Author: cmm Time: 15 August 2013, 4:06:17.456 pm UUID: 10b8124c-656a-43a2-8e7f-d5367bba04f1 Ancestors: Monticello-cmm.559 - The ancestry can be restored from the MCVersion's Info that's loaded in the image, it isn't necessary to restore it from an older file. This means not finding a version to recover ancestry is much less likely to happen. - If it does happen, the user is now given a chance to copy the file back to where it was loaded from and simply Proceed, rather than requiring them to close the debugger and "try again". - Stub the stepChildren too. =============== Diff against Monticello-cmm.559 =============== Item was added: + ----- Method: MCAncestry>>stubAncestryFor:using: (in category 'initialize-release') ----- + stubAncestryFor: childInfo using: aMCRepository + "childInfo was retrieved from aMCRepository. Replace my ancestry with a Proxy that can retrieve the full tree from these two elements." + ancestors := ancestors collect: + [ : each | MCInfoProxy + info: each copyWithTrimmedAncestry + child: childInfo + repository: aMCRepository ]. + stepChildren := stepChildren collect: + [ : each | MCInfoProxy + info: each copyWithTrimmedAncestry + child: childInfo + repository: aMCRepository ].! Item was removed: - ----- Method: MCAncestry>>stubAncestryUsing: (in category 'initialize-release') ----- - stubAncestryUsing: aMCRepository - ancestors := ancestors collect: - [ : each | MCInfoProxy - info: each copyWithTrimmedAncestry - repository: aMCRepository ]! Item was changed: ProtoObject subclass: #MCInfoProxy + instanceVariableNames: 'info repository childInfo' - instanceVariableNames: 'info repository' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Repositories'! !MCInfoProxy commentStamp: 'cmm 8/12/2013 21:51' prior: 0! A MCInfoProxy takes the place of a MCVersionInfo with a large tree of ancestors that consume memory in the image, but are almost never accessed. If they are, however, I will dynamically retrieve and become the Info from the original MC repository which includes the full ancestry tree.! Item was added: + ----- Method: MCInfoProxy class>>info:child:repository: (in category 'create') ----- + info: aMCVersionInfo child: childInfo repository: aMCRepository + ^ self new + + setInfo: aMCVersionInfo + childInfo: childInfo + repository: aMCRepository! Item was changed: ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- materializeInfo + | persistentVersion | + [ (persistentVersion := repository versionWithInfo: childInfo) isNil ] whileTrue: [ Warning signal: 'Please copy ' , childInfo name , 'with id ' , childInfo id asString , ' back to ' , repository asString , ' and try again.' ]. + persistentVersion info allAncestorsDo: + [ : each | each = info ifTrue: [ ^ each ] ]. + nil error: 'Expected ' , info asString , ' to be an ancestor of ' , childInfo asString! - ^ (repository versionWithInfo: info) - ifNil: - [ (MCRepositoryGroup default versionWithInfo: info) - ifNil: [ nil error: 'Please copy ' , info name , 'with id ' , info id asString , ' to ' , repository asString , ' and try again.' ] - ifNotNil: - [ : foundVersion | repository storeVersion: foundVersion. - foundVersion info ] ] - ifNotNil: - [ : version | version info ]! Item was added: + ----- Method: MCInfoProxy>>setInfo:childInfo:repository: (in category 'initialize-release') ----- + setInfo: aMCVersionInfo childInfo: childMCVersionInfo repository: aMCRepository + info := aMCVersionInfo. + childInfo := childMCVersionInfo. + repository := aMCRepository! Item was removed: - ----- Method: MCInfoProxy>>setInfo:repository: (in category 'initialize-release') ----- - setInfo: aMCVersionInfo repository: aMCRepository - info := aMCVersionInfo. - repository := aMCRepository! Item was changed: ----- Method: MCWorkingCopy>>stubAncestry (in category 'operations') ----- stubAncestry "Stub all but the most recent 10 of my ancestry tree to save memory with a proxy which can be transparently accessed later, if necessary." + self ancestors ifEmpty: [ ^ self ]. repositoryGroup ifNotNil: [ | tenAgo count | count := 0. ancestry ancestorsDoWhileTrue: [ : each | tenAgo := each. (count := count + 1) < 10 ]. + tenAgo + stubAncestryFor: self ancestors anyOne + using: repositoryGroup ]! - tenAgo stubAncestryUsing: repositoryGroup ]!

1 0

The Trunk: Monticello-cmm.560.mcz
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

1 0

The Trunk: Monticello-cmm.560.mcz
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

1 0

The Trunk: Monticello-cmm.559.mcz
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.559.mcz ==================== Summary ==================== Name: Monticello-cmm.559 Author: cmm Time: 15 August 2013, 11:59:03.275 am UUID: 922730f3-4bff-475b-84ea-c6d03d116b0d Ancestors: Monticello-cmm.558 Need to answer the info object from the RepositoryGroup when it wasn't found where it was supposed to be. =============== Diff against Monticello-cmm.558 =============== Item was changed: ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- materializeInfo ^ (repository versionWithInfo: info) ifNil: [ (MCRepositoryGroup default versionWithInfo: info) ifNil: [ nil error: 'Please copy ' , info name , 'with id ' , info id asString , ' to ' , repository asString , ' and try again.' ] ifNotNil: + [ : foundVersion | repository storeVersion: foundVersion. + foundVersion info ] ] + ifNotNil: + [ : version | version info ]! - [ : foundVersion | repository storeVersion: foundVersion ] ] - ifNotNil: [ : version | version info ]!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2013