Packages September 2011

packages@lists.squeakfoundation.org

1 participants
201 discussions

The Trunk: Kernel-ul.630.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.630.mcz ==================== Summary ==================== Name: Kernel-ul.630 Author: ul Time: 27 September 2011, 6:09:18.907 pm UUID: 87434805-2f3c-c446-b12b-3af3c0043cea Ancestors: Kernel-nice.629 Fix for the recently introduced MethodDictionary bug reported by Mariano Martinez Peck on the Pharo list and some other things. - added MethodDictionary class >> #newForCapacity: to reduce the complexity of the various methods which create new instances with a given capacity (#grow, #rehash, #removeAll). These changes make some comments unnecessary. - fix: #sizeFor: should allow 75% load factor =============== Diff against Kernel-nice.629 =============== Item was changed: ----- Method: MethodDictionary class>>new (in category 'instance creation') ----- new + "Create a new instance with 32 slots, which can hold at most 24 methods before growing is necessary." - "Create a new instance with 32 slots. See the comment of #sizeFor: why the argument is 16." + ^self newForCapacity: 32! - ^self new: 16! Item was changed: ----- Method: MethodDictionary class>>new: (in category 'instance creation') ----- new: numberOfElements + "Create an instance large enough to hold numberOfElements methods without growing." - "Create an instance large enough to hold numberOfElements without growing. Note that the basic size must be a power of 2. It is VITAL (see grow) that size gets doubled if numberOfElements is a power of 2" + ^self newForCapacity: (self sizeFor: numberOfElements)! - | size | - size := self sizeFor: numberOfElements. - ^(self basicNew: size) initialize: size! Item was added: + ----- Method: MethodDictionary class>>newForCapacity: (in category 'private') ----- + newForCapacity: capacity + "Create an instance with the given capacity which must be a power of two." + + ^(self basicNew: capacity) initialize: capacity! Item was changed: ----- Method: MethodDictionary class>>sizeFor: (in category 'sizing') ----- sizeFor: numberOfElements "Return the minimum capacity of a dictionary that can hold numberOfElements elements. At least 25% of the array must be empty and the return value must be a power of 2." + ^(numberOfElements * 4 // 3) asLargerPowerOfTwo! - ^1 bitShift: (numberOfElements * 4 // 3) highBit! Item was changed: ----- Method: MethodDictionary>>grow (in category 'private') ----- grow | newSelf | + newSelf := self species newForCapacity: self basicSize * 2. - newSelf := self species new: self basicSize. "This will double the size" 1 to: self basicSize do: [ :i | (self basicAt: i) ifNotNil: [ :key | newSelf at: key put: (array at: i) ] ]. self become: newSelf! Item was changed: ----- Method: MethodDictionary>>rehash (in category 'private') ----- rehash | newInstance | + newInstance := self species newForCapacity: self basicSize. - newInstance := self species new: self basicSize - 1. "Make sure it has the same capacity" 1 to: self basicSize do: [ :index | (self basicAt: index) ifNotNil: [ :key | newInstance at: key put: (array at: index) ] ]. self copyFrom: newInstance! Item was changed: ----- Method: MethodDictionary>>removeAll (in category 'removing') ----- removeAll + "Remove all elements from this collection. Preserve the capacity" - "This provides a faster way than repeated become. - a single become is still in use to prevent system crash." | newSelf | tally = 0 ifTrue: [^self]. + newSelf := self species newForCapacity: self basicSize. - newSelf := self species new: self basicSize - 1. "This will preserve the capacity" self copyFrom: newSelf!

1 0

The Trunk: Kernel-ul.630.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

1 0

The Trunk: Kernel-ul.630.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

1 0

The Trunk: Tests-eem.132.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.132.mcz ==================== Summary ==================== Name: Tests-eem.132 Author: eem Time: 27 September 2011, 9:00:03.871 am UUID: c18d487c-8d36-45e6-bddf-1be0fe43e415 Ancestors: Tests-ul.131 Use the methodForDecompile in deocmpilation tests. =============== Diff against Tests-ul.131 =============== Item was changed: ----- Method: DecompilerTests>>checkDecompileMethod: (in category 'utilities') ----- checkDecompileMethod: oldMethod | cls selector oldMethodNode methodNode newMethod oldCodeString newCodeString | cls := oldMethod methodClass. selector := oldMethod selector. oldMethodNode := (cls decompilerClass new withTempNames: oldMethod methodNode schematicTempNamesString) + decompile: selector + in: cls + method: oldMethod methodForDecompile. - decompile: selector - in: cls - method: oldMethod. [oldMethodNode properties includesKey: #warning] whileTrue: [oldMethodNode properties removeKey: #warning]. oldCodeString := oldMethodNode decompileString. methodNode := [cls newCompiler compile: oldCodeString in: cls notifying: nil ifFail: []] on: SyntaxErrorNotification do: [:ex| ex errorMessage = 'Cannot store into' ifTrue: [ex return: #badStore]. ex pass]. "Ignore cannot store into block arg errors; they're not our issue." methodNode ~~ #badStore ifTrue: [newMethod := methodNode generate. newCodeString := ((cls decompilerClass new withTempNames: methodNode schematicTempNamesString) + decompile: selector + in: cls + method: newMethod methodForDecompile) decompileString. - decompile: selector - in: cls - method: newMethod) decompileString. "(StringHolder new textContents: (TextDiffBuilder buildDisplayPatchFrom: oldCodeString to: newCodeString)) openLabel: 'Decompilation Differences for ', cls name,'>>',selector" "(StringHolder new textContents: (TextDiffBuilder buildDisplayPatchFrom: oldMethod abstractSymbolic to: newMethod abstractSymbolic)) openLabel: 'Bytecode Differences for ', cls name,'>>',selector" self assert: oldCodeString = newCodeString description: cls name asString, ' ', selector asString resumable: true]!

1 0

The Trunk: Tests-eem.132.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

1 0

The Trunk: Tests-eem.132.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

1 0

The Trunk: Tools-eem.380.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.380.mcz ==================== Summary ==================== Name: Tools-eem.380 Author: eem Time: 27 September 2011, 8:58:20.236 am UUID: 087978c3-2b74-4746-8458-ec0de273fc01 Ancestors: Tools-eem.379 Use the methodForDecompile hook in CodeHolder>> decompiledSourceIntoContentsWithTempNames:. This fixes infinite recursion when decompiling installed wrapper methods. Needs Kernel-eem.630. =============== Diff against Tools-eem.379 =============== Item was changed: ----- Method: CodeHolder>>decompiledSourceIntoContentsWithTempNames: (in category 'message list') ----- decompiledSourceIntoContentsWithTempNames: showTempNames "Obtain a source string by decompiling the method's code, and place that source string into my contents. Also return the string. Get temps from source file if showTempNames is true." | tempNames class selector method | class := self selectedClassOrMetaClass. selector := self selectedMessageName. "Was method deleted while in another project?" method := class compiledMethodAt: selector ifAbsent: [^ '']. currentCompiledMethod := method. (showTempNames not + or: [method fileIndex > 0 and: [(SourceFiles at: method fileIndex) isNil]]) + ifTrue: - or: [method fileIndex > 0 - and: [(SourceFiles at: method fileIndex) isNil]]) - ifTrue: [ "Emergency or no source file -- decompile without temp names " + [contents := (class decompilerClass new + decompile: selector + in: class + method: method methodForDecompile) decompileString] + ifFalse: + [tempNames := (class newCompiler - contents := (class decompilerClass new - decompile: selector - in: class - method: method) decompileString] - ifFalse: [tempNames := (class newCompiler parse: method getSourceFromFile asString in: class notifying: nil) generate: CompiledMethodTrailer defaultMethodTrailer; schematicTempNamesString. contents := ((class decompilerClass new withTempNames: tempNames) + decompile: selector + in: class + method: method methodForDecompile) decompileString]. - decompile: selector - in: class - method: method) decompileString]. contents := contents asText makeSelectorBoldIn: class. ^ contents copy!

1 0

The Trunk: Tools-eem.380.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

1 0

The Trunk: Tools-eem.380.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

1 0

The Trunk: Compiler-eem.216.mcz
by commits＠source.squeak.org 27 Sep '11

27 Sep '11

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.216.mcz ==================== Summary ==================== Name: Compiler-eem.216 Author: eem Time: 27 September 2011, 8:55:43.391 am UUID: 6876b6f4-047e-4ed9-81e6-9f49c02fcd00 Ancestors: Compiler-eem.215 Use the methodForDecompile hook in decompile:in:. This fixes infinite recursion when decompiling installed wrapper methods. Needs Kernel-eem.630. =============== Diff against Compiler-eem.215 =============== Item was changed: ----- Method: Decompiler>>decompile:in: (in category 'public access') ----- decompile: aSelector in: aClass "See Decompiler|decompile:in:method:. The method is found by looking up the message, aSelector, in the method dictionary of the class, aClass." ^self decompile: aSelector in: aClass + method: (aClass compiledMethodAt: aSelector) methodForDecompile! - method: (aClass compiledMethodAt: aSelector)!

1 0

← Newer
1
2
3
4
5
6
7
...
21
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 September 2011