Packages November 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Compiler-eem.241.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.241.mcz ==================== Summary ==================== Name: Compiler-eem.241 Author: eem Time: 6 November 2012, 1:59:52.95 pm UUID: 2a0df8c2-f597-4958-9851-e290b9ac05f5 Ancestors: Compiler-eem.240 Fix decompilation of to:do: loops now they return their receiver. =============== Diff against Compiler-eem.240 =============== Item was changed: ----- Method: Decompiler>>convertToDoLoop (in category 'private') ----- convertToDoLoop "If statements contains the pattern var := startExpr. [var <= limit] whileTrue: [...statements... var := var + incConst] then replace this by startExpr to: limit by: incConst do: [:var | ...statements...]" | initStmt toDoStmt limitStmt | + (stack notEmpty + and: [stack last isAssignmentNode]) - statements size < 2 ifTrue: + [initStmt := stack last. + (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: - [(statements size = 1 - and: [stack notEmpty - and: [stack last isAssignmentNode]]) ifFalse: [^self]. - initStmt := stack last. - (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: [^self]. stack removeLast; addLast: toDoStmt. statements removeLast] ifFalse: + [statements size < 2 ifTrue: + [^self]. + initStmt := statements at: statements size-1. + (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: + [^self]. - [initStmt := statements at: statements size-1. - (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: [^self]. statements removeLast; removeLast; addLast: toDoStmt]. initStmt variable scope: -1. "Flag arg as block temp" "Attempt further conversion of the pattern limitVar := limitExpr. startExpr to: limitVar by: incConst do: [:var | ...statements...] to startExpr to: limitExpr by: incConst do: [:var | ...statements...]" statements size < 2 ifTrue: [^ self]. limitStmt := statements at: statements size-1. ((limitStmt isMemberOf: AssignmentNode) and: [limitStmt variable isTemp and: [limitStmt variable == toDoStmt arguments first and: [self blockScopeRefersOnlyOnceToTemp: limitStmt variable fieldOffset]]]) ifFalse: [^ self]. toDoStmt arguments at: 1 put: limitStmt value. limitStmt variable scope: -2. "Flag limit var so it won't print" statements removeLast; removeLast; addLast: toDoStmt !

1 0

The Trunk: Compiler-eem.240.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.240.mcz ==================== Summary ==================== Name: Compiler-eem.240 Author: eem Time: 6 November 2012, 1:15:13.684 pm UUID: 7b6bc3de-112b-442d-8f73-3cafe5819fbc Ancestors: Compiler-eem.239 Have the decompiler map whileTrue/False: [] to whileTrue/False instead of relying on MethodNode. Fixes decompiler tests after fixing printing of whileTrue/False: [] to be side-effect free in Compiler-eem.239. =============== Diff against Compiler-eem.239 =============== Item was changed: ----- Method: Decompiler>>jump:if: (in category 'instruction decoding') ----- jump: dist if: condition | savePc sign elsePc elseStart end cond ifExpr thenBlock elseBlock + thenJump elseJump condHasValue isIfNil saveStack blockBody blockArgs | - thenJump elseJump condHasValue isIfNil saveStack blockBody | lastJumpIfPcStack addLast: lastPc. stack last == CascadeFlag ifTrue: [^ [self case: dist] ensure: [lastJumpIfPcStack removeLast]]. elsePc := lastPc. elseStart := pc + dist. end := limit. "Check for bfp-jmp to invert condition. Don't be fooled by a loop with a null body." sign := condition. savePc := pc. self interpretJump ifNotNil: [:elseDist| (elseDist >= 0 and: [elseStart = pc]) ifTrue: [sign := sign not. elseStart := pc + elseDist]]. pc := savePc. ifExpr := stack removeLast. (isIfNil := stack size > 0 and: [stack last == IfNilFlag]) ifTrue: [stack removeLast]. saveStack := stack. stack := OrderedCollection new. thenBlock := self blockTo: elseStart. condHasValue := hasValue or: [isIfNil]. "ensure jump is within block (in case thenExpr returns)" thenJump := exit <= end ifTrue: [exit] ifFalse: [elseStart]. "if jump goes back, then it's a loop" thenJump < elseStart ifTrue: ["Must be a while loop... thenJump will jump to the beginning of the while expr. In the case of while's with a block in the condition, the while expr should include more than just the last expression: find all the statements needed by re-decompiling." stack := saveStack. pc := thenJump. blockBody := self statementsTo: elsePc. "discard unwanted statements from block" blockBody size - 1 timesRepeat: [statements removeLast]. + blockArgs := thenBlock statements = constructor codeEmptyBlock statements + ifTrue: [#()] + ifFalse: [{ thenBlock }]. statements addLast: (constructor codeMessage: (constructor codeBlock: blockBody returns: false) selector: (constructor + codeSelector: (blockArgs isEmpty + ifTrue: + [sign + ifTrue: [#whileFalse] + ifFalse: [#whileTrue]] + ifFalse: + [sign + ifTrue: [#whileFalse:] + ifFalse: [#whileTrue:]]) - codeSelector: (sign - ifTrue: [#whileFalse:] - ifFalse: [#whileTrue:]) code: #macro) + arguments: blockArgs). - arguments: { thenBlock }). pc := elseStart. self convertToDoLoop] ifFalse: ["Must be a conditional..." elseBlock := self blockTo: thenJump. elseJump := exit. "if elseJump is backwards, it is not part of the elseExpr" elseJump < elsePc ifTrue: [pc := lastPc]. cond := isIfNil ifTrue: [constructor codeMessage: ifExpr ifNilReceiver selector: (constructor codeSelector: (sign ifTrue: [#ifNotNil:] ifFalse: [#ifNil:]) code: #macro) arguments: (Array with: thenBlock)] ifFalse: [constructor codeMessage: ifExpr selector: (constructor codeSelector: #ifTrue:ifFalse: code: #macro) arguments: (sign ifTrue: [{elseBlock. thenBlock}] ifFalse: [{thenBlock. elseBlock}])]. stack := saveStack. condHasValue ifTrue: [stack addLast: cond] ifFalse: [statements addLast: cond]]. lastJumpIfPcStack removeLast.!

1 0

The Trunk: Compiler-eem.240.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

1 0

The Trunk: Compiler-eem.240.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

1 0

The Trunk: Compiler-eem.239.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.239.mcz ==================== Summary ==================== Name: Compiler-eem.239 Author: eem Time: 5 November 2012, 3:09:13.298 pm UUID: 074c58f2-bc92-4c3f-adff-56c47d3884ef Ancestors: Compiler-eem.238 Eliminate horrible side-effect in printing whileTrue/whileFalse nodes that undid the tranformation to whileTrue:/whileFalse:. =============== Diff against Compiler-eem.238 =============== Item was changed: ----- Method: MessageNode>>printWhileOn:indent: (in category 'printing') ----- printWhileOn: aStream indent: level - self printReceiver: receiver on: aStream indent: level. + self + printKeywords: originalSelector + arguments: originalArguments - (arguments isEmpty not - and: [arguments first isJust: NodeNil]) ifTrue: - [selector := SelectorNode new - key: - (selector key == #whileTrue: - ifTrue: [#whileTrue] - ifFalse: [#whileFalse]) - code: #macro. - arguments := Array new]. - self printKeywords: selector key arguments: arguments on: aStream indent: level!

1 0

The Trunk: Compiler-eem.239.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

1 0

The Trunk: Compiler-eem.239.mcz
by commits＠source.squeak.org 06 Nov '12

06 Nov '12

1 0

The Trunk: Kernel-nice.716.mcz
by commits＠source.squeak.org 05 Nov '12

05 Nov '12

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.716.mcz ==================== Summary ==================== Name: Kernel-nice.716 Author: nice Time: 5 November 2012, 9:44:23.181 pm UUID: 2d5c476b-182b-4c53-a260-ed0da80e0bff Ancestors: Kernel-eem.715 Let (0.0 printShowingDecimalPlaces: 2) = '0.00' =============== Diff against Kernel-eem.715 =============== Item was changed: ----- Method: Float>>printOn:showingDecimalPlaces: (in category 'printing') ----- printOn: aStream showingDecimalPlaces: placesDesired "Refine super implementation in order to avoid any rounding error caused by rounded or roundTo:" self isFinite ifFalse: [^self printOn: aStream]. self > 0.0 ifTrue: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true] ifFalse: [self sign = -1 ifTrue: [aStream nextPutAll: '-']. self = 0.0 + ifTrue: + [aStream nextPut: $0. + placesDesired > 0 ifTrue: [aStream nextPut: $.; next: placesDesired put: $0]] - ifTrue: [aStream nextPutAll: '0.0'] ifFalse: [self absPrintExactlyOn: aStream base: 10 decimalPlaces: placesDesired showTrailingFractionalZeros: true]]!

1 0

The Trunk: Kernel-nice.716.mcz
by commits＠source.squeak.org 05 Nov '12

05 Nov '12

1 0

The Trunk: Kernel-nice.716.mcz
by commits＠source.squeak.org 05 Nov '12

05 Nov '12

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2012