Packages November 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: System-eem.502.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.502.mcz ==================== Summary ==================== Name: System-eem.502 Author: eem Time: 12 November 2012, 9:56:10.047 am UUID: 90c6fd20-ddae-4282-9928-80869f63d8f9 Ancestors: System-eem.500, System-cwp.501 Fix merge slip with System-cwp.501. Include temp names in methods installed by BreakpointManager (i.e. toggle break on entry). =============== Diff against System-cwp.501 =============== Item was changed: ----- Method: BreakpointManager class>>compilePrototype:in: (in category 'private') ----- compilePrototype: aSymbol in: aClass "Compile and return a new method containing a break statement" | source node method | source := self breakpointMethodSourceFor: aSymbol in: aClass. node := aClass newCompiler + compile: source + in: aClass + notifying: nil + ifFail: [self error: '[breakpoint] unable to install breakpoint']. - compile: source - in: aClass - notifying: nil - ifFail: [self error: '[breakpoint] unable to install breakpoint']. node isNil ifTrue: [^nil]. + method := node generateWithTempNames. - "dunno what the arguments mean..." - method := node generate. ^method!

1 0

The Trunk: System-eem.502.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

1 0

The Trunk: System-eem.502.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

1 0

The Trunk: Tools-eem.427.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.427.mcz ==================== Summary ==================== Name: Tools-eem.427 Author: eem Time: 12 November 2012, 9:50:37.504 am UUID: 119e2ba2-1a30-49db-bc40-043007618b42 Ancestors: Tools-ul.425 Include class comments when filing out recent changes =============== Diff against Tools-ul.425 =============== Item was changed: ----- Method: MessageSet>>fileOutMessage (in category 'message functions') ----- fileOutMessage "Put a description of the selected method on a file, or all methods if none selected." | fileName | self selectedMessageName ifNotNil: [^super fileOutMessage]. + fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. - fileName := self request: 'File out on which file?' initialAnswer: 'methods'. Cursor write showWhile: [| internalStream | internalStream := WriteStream on: (String new: 1000). internalStream header; timeStamp. messageList do: [:methodRef| + methodRef methodSymbol == #Comment + ifTrue: + [methodRef actualClass organization + putCommentOnFile: internalStream + numbered: 1 + moveSource: false + forClass: methodRef actualClass] + ifFalse: + [methodRef actualClass + printMethodChunk: methodRef methodSymbol + withPreamble: true + on: internalStream + moveSource: false + toFile: nil]]. - methodRef actualClass - printMethodChunk: methodRef methodSymbol - withPreamble: true - on: internalStream - moveSource: false - toFile: nil]. FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!

1 0

The Trunk: Tools-eem.427.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

1 0

The Trunk: Tools-eem.427.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

1 0

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

09 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.242.mcz ==================== Summary ==================== Name: Compiler-eem.242 Author: eem Time: 9 November 2012, 2:22:42.152 pm UUID: 1f233dff-53b6-4ddd-977f-66550a4f0269 Ancestors: Compiler-eem.241 Further fix decompilation of to:do: loops now they return their receiver. Fixes the case where the loop is the last statement in an ifTrue:ifFalse: branch, e.g. the recompilation of Object>>#veryDeepCopyWith:. =============== Diff against Compiler-eem.241 =============== 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]) ifTrue: [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]. 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...]. + The complication here is that limitVar := limitExpr's value may be used, in which case it'll + be statements last, or may not be used, in which case it'll be statements nextToLast." - startExpr to: limitExpr by: incConst do: [:var | ...statements...]" statements size < 2 ifTrue: [^ self]. + limitStmt := statements last. - limitStmt := statements at: statements size-1. ((limitStmt isMemberOf: AssignmentNode) and: [limitStmt variable isTemp + and: [limitStmt variable == toDoStmt arguments first]]) ifFalse: + [limitStmt := statements at: statements size-1. + ((limitStmt isMemberOf: AssignmentNode) + and: [limitStmt variable isTemp + and: [limitStmt variable == toDoStmt arguments first]]) ifFalse: + [^self]]. + + (self blockScopeRefersOnlyOnceToTemp: limitStmt variable fieldOffset) ifFalse: + [^self]. - 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 last == limitStmt + ifTrue: [statements removeLast] + ifFalse: [statements removeLast; removeLast; addLast: toDoStmt]! - statements removeLast; removeLast; addLast: toDoStmt - - !

1 0

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

09 Nov '12

1 0

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

09 Nov '12

1 0

The Trunk: System-cwp.501.mcz
by commits＠source.squeak.org 08 Nov '12

08 Nov '12

Colin Putney uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cwp.501.mcz ==================== Summary ==================== Name: System-cwp.501 Author: cwp Time: 7 November 2012, 10:06:06.385 pm UUID: 6cc43c45-80fd-43fd-bf05-13adf4e37864 Ancestors: System-dtl.500 When removing a class from the system, catch AttemptToWriteReadOnlyGlobal, and proceed with the modification. =============== Diff against System-dtl.500 =============== Item was changed: ----- Method: SystemDictionary>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool "Delete the class, aClass, from the system. Note that this doesn't do everything required to dispose of a class - to do that use Class>>removeFromSystem." aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. aClass isObsolete ifFalse: [ (self associationAt: aClass name ifAbsent: [ nil ]) ifNotNil: [ :oldBinding | | newBinding | newBinding := oldBinding shallowCopy. self replaceBinding: oldBinding in: aClass with: newBinding. (self isThisBindingReferred: oldBinding) ifTrue: [ + [oldBinding value: nil] + on: AttemptToWriteReadOnlyGlobal + do: [:ex | true]. - oldBinding value: nil. Undeclared add: oldBinding ] ] ]. self removeKey: aClass name ifAbsent: []. self flushClassNameCache!

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