Packages November 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

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

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

08 Nov '12

1 0

The Trunk: SystemReporter-dtl.20.mcz
by commits＠source.squeak.org 08 Nov '12

08 Nov '12

David T. Lewis uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-dtl.20.mcz ==================== Summary ==================== Name: SystemReporter-dtl.20 Author: dtl Time: 7 November 2012, 11:35:58.387 pm UUID: fb07b2ef-d22a-4054-a266-1e94e274f3ef Ancestors: SystemReporter-cmm.19 Display image format and word size in #reportImage: =============== Diff against SystemReporter-cmm.19 =============== Item was changed: ----- Method: SystemReporter>>reportImage: (in category 'reporting') ----- reportImage: aStream self header: 'Image' on: aStream. aStream nextPutAll: Smalltalk image imageName; cr; nextPutAll: SystemVersion current version; cr; nextPutAll: Smalltalk image lastUpdateString; cr; + nextPutAll: Smalltalk image currentChangeSetString; cr. + [ | imageFormat bitsPerWord | + imageFormat := Smalltalk image imageFormatVersion. + bitsPerWord := Smalltalk image wordSize * 8. + aStream nextPutAll: 'Image format '; + nextPutAll: imageFormat asString; + nextPutAll: ' ('; + nextPutAll: bitsPerWord asString; + nextPutAll: ' bit)'; cr] + on: Warning + do: ["primitive not present in VM"]. - nextPutAll: Smalltalk image currentChangeSetString; cr !

1 0

The Trunk: SystemReporter-dtl.20.mcz
by commits＠source.squeak.org 08 Nov '12

08 Nov '12

1 0

The Trunk: SystemReporter-dtl.20.mcz
by commits＠source.squeak.org 08 Nov '12

08 Nov '12

1 0

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

08 Nov '12

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.500.mcz ==================== Summary ==================== Name: System-dtl.500 Author: dtl Time: 7 November 2012, 11:34:11.125 pm UUID: 004afe3f-701a-441e-8b2a-b0288f54beb2 Ancestors: System-eem.499 In SmalltalkImage>>imageFormatVersion, if primitiveImageFormatVersion is not supported try vmParameterAt: 41 =============== Diff against System-eem.499 =============== Item was changed: ----- Method: SmalltalkImage>>imageFormatVersion (in category 'image') ----- imageFormatVersion "Answer an integer identifying the type of image in memory. The image version number may identify the format of the image (e.g. 32 or 64-bit word size) or specific requirements of the image (e.g. block closure support required). This invokes an optional primitive that may not be available on all virtual machines." "Smalltalk image imageFormatVersion" <primitive: 'primitiveImageFormatVersion'> + + "Cog provides a VM parameter" + ^[Smalltalk vm vmParameterAt: 41] + on: Error + do: [self notify: 'This virtual machine does not support the optional ', + 'primitive #primitiveImageFormatVersion' translated. + nil] + ! - self notify: 'This virtual machine does not support the optional primitive #primitiveImageFormatVersion' translated. - ^''!

1 0

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

08 Nov '12

1 0

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

08 Nov '12

1 0

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.241.mcz
by commits＠source.squeak.org 06 Nov '12

06 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