Packages October 2010

packages@lists.squeakfoundation.org

2 participants
204 discussions

The Trunk: Collections-ul.392.mcz
by commits＠source.squeak.org 18 Oct '10

18 Oct '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.392.mcz ==================== Summary ==================== Name: Collections-ul.392 Author: ul Time: 18 October 2010, 4:55:37.186 am UUID: 470b7171-1481-5340-83fc-56706d276e33 Ancestors: Collections-ul.391 - sped up SharedQueue by implementing SharedQueue >> #makeRoomAtEnd properly. The array holding the objects is grown/shrunk when needed. =============== Diff against Collections-ul.391 =============== Item was changed: ----- Method: SharedQueue>>makeRoomAtEnd (in category 'private') ----- makeRoomAtEnd + | contentsSize | + contentsSize := writePosition - readPosition. + contentsSize * 2 > contentsArray size + ifTrue: [ + "grow" + contentsArray := (contentsArray class new: contentsArray size * 2) - readPosition = 1 - ifTrue: [contentsArray := contentsArray , (Array new: 10)] - ifFalse: - [contentsSize := writePosition - readPosition. - "BLT direction ok for this. Lots faster!!!!!!!!!!!! SqR!!!! 4/10/2000 10:47" - contentsArray replaceFrom: 1 to: contentsSize with: contentsArray + startingAt: readPosition; + yourself ] + ifFalse: [ + (contentsArray size > 10 and: [ contentsSize * 4 <= contentsArray size ]) + ifTrue: [ + "shrink" + contentsArray := (contentsArray class new: (contentsSize * 2 max: 10)) + replaceFrom: 1 + to: contentsSize + with: contentsArray + startingAt: readPosition; + yourself ] + ifFalse: [ + "just move the elements to the front" + contentsArray + replaceFrom: 1 + to: contentsSize + with: contentsArray + startingAt: readPosition. + contentsArray + from: contentsSize + 1 + to: contentsArray size + put: nil ] ]. + readPosition := 1. + writePosition := contentsSize + 1! - startingAt: readPosition. - "nil out remainder --bf 10/25/2005" - contentsArray - from: contentsSize+1 - to: contentsArray size - put: nil. - readPosition := 1. - writePosition := contentsSize + 1]!

1 0

The Trunk: Collections-ul.392.mcz
by commits＠source.squeak.org 18 Oct '10

18 Oct '10

1 0

The Trunk: System-ul.386.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.386.mcz ==================== Summary ==================== Name: System-ul.386 Author: ul Time: 17 October 2010, 3:47:32.279 am UUID: ab697adc-2dad-6d44-8fc3-7b1ce671f7a5 Ancestors: System-ul.385 - use blocks instead of symbols - compact the HashedCollections in the image segments instead of just rehashing them - don't use SortedCollection in SystemNavigation >> #allMethodsSelect:, it's very slow (O(n^2) time) when lots of methods are selected =============== Diff against System-ul.385 =============== Item was changed: ----- Method: ImageSegment>>rehashSets (in category 'fileIn/Out') ----- rehashSets "I have just been brought in and converted to live objects. Find all Sets and Dictionaries in the newly created objects and rehash them. Segment is near then end of memory, since is was newly brought in (and a new object created for it). Also, collect all classes of receivers of blocks. Return them. Caller will check if they have been reshaped." | object hashedCollections receiverClasses inSeg | object := segment. hashedCollections := OrderedCollection new. "have to collect them, because Dictionary makes a copy, and that winds up at the end of memory and gets rehashed and makes another one." receiverClasses := IdentitySet new. inSeg := true. [object := object nextObject. object == endMarker ifTrue: [inSeg := false]. "off end" object isInMemory ifTrue: [ (object isKindOf: HashedCollection) ifTrue: [hashedCollections add: object]. object isBlock ifTrue: [inSeg ifTrue: [ receiverClasses add: object receiver class]]. object class == MethodContext ifTrue: [inSeg ifTrue: [ receiverClasses add: object receiver class]]. ]. object == 0] whileFalse. + hashedCollections do: [ :each | each compact ]. "our purpose" - hashedCollections do: #rehash. "our purpose" ^ receiverClasses "our secondary job" ! Item was changed: ----- Method: ImageSegment>>restoreEndianness (in category 'fileIn/Out') ----- restoreEndianness "Fix endianness (byte order) of any objects not already fixed. Do this by discovering classes that need a startUp message sent to each instance, and sending it. I have just been brought in and converted to live objects. Find all Sets and Dictionaries in the newly created objects and rehash them. Segment is near then end of memory, since is was newly brought in (and a new object created for it). Also, collect all classes of receivers of blocks which refer to instance variables. Return them. Caller will check if they have been reshaped." | object hashedCollections receiverClasses inSeg noStartUpNeeded startUps cls msg | object := segment. hashedCollections := OrderedCollection new. "have to collect them, because Dictionary makes a copy, and that winds up at the end of memory and gets rehashed and makes another one." receiverClasses := IdentitySet new. noStartUpNeeded := IdentitySet new. "classes that don't have a per-instance startUp message" startUps := IdentityDictionary new. "class -> MessageSend of a startUp message" inSeg := true. [object := object nextObject. "all the way to the end of memory to catch remade objects" object == endMarker ifTrue: [inSeg := false]. "off end" object isInMemory ifTrue: [ (object isKindOf: HashedCollection) ifTrue: [hashedCollections add: object]. (object isKindOf: ContextPart) ifTrue: [ (inSeg and: [object hasInstVarRef]) ifTrue: [ receiverClasses add: object receiver class]]. inSeg ifTrue: [ (noStartUpNeeded includes: object class) ifFalse: [ cls := object class. (msg := startUps at: cls ifAbsent: [nil]) ifNil: [ msg := cls startUpFrom: self. "a Message, if we need to swap bytes this time" msg ifNil: [noStartUpNeeded add: cls] ifNotNil: [startUps at: cls put: msg]]. msg ifNotNil: [msg sentTo: object]]]]. object == 0] whileFalse. + hashedCollections do: [ :each | each compact ]. "our purpose" - hashedCollections do: #rehash. "our purpose" ^ receiverClasses "our secondary job" ! Item was changed: ----- Method: ObjectFinalizerCollection>>finalize (in category 'finalization') ----- finalize "Finalize all elements in this collection. The elements are expected to be ObjectFinalizers, but can be any object which understands #finalize." + self do: [ :each | each finalize ]! - self do: #finalize! Item was changed: ----- Method: SystemNavigation>>allMethodsSelect: (in category 'query') ----- allMethodsSelect: aBlock "Answer a SortedCollection of each method that, when used as the block argument to aBlock, gives a true result." | aCollection | + aCollection := OrderedCollection new. - aCollection := SortedCollection new. Cursor execute showWhile: [self allBehaviorsDo: [:class | class selectorsAndMethodsDo: [:sel :m | (aBlock value: m) ifTrue: [aCollection add: (MethodReference new setStandardClass: class methodSymbol: sel)]]]]. + ^ aCollection sort! - ^ aCollection!

1 0

The Trunk: System-ul.386.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

1 0

The Trunk: System-ul.386.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

1 0

The Trunk: Kernel-ul.507.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.507.mcz ==================== Summary ==================== Name: Kernel-ul.507 Author: ul Time: 17 October 2010, 3:44:06.845 am UUID: f2a1ac34-c8a3-ae48-b38c-271043354faa Ancestors: Kernel-nice.506 - use blocks instead of symbols - minor Monitor tweaks =============== Diff against Kernel-nice.506 =============== Item was changed: ----- Method: MethodDictionary class>>compactAllInstances (in category 'initialization') ----- compactAllInstances | instances newInstances | instances := self allInstances asArray. + newInstances := self allInstances collect: [ :each | + each compactWithoutBecome ]. - newInstances := self allInstances collect: #compactWithoutBecome. instances elementsExchangeIdentityWith: newInstances! Item was changed: ----- Method: MethodDictionary class>>rehashAllInstances (in category 'initialization') ----- rehashAllInstances | instances newInstances | instances := self allInstances asArray. + newInstances := self allInstances collect: [ :each | + each rehashWithoutBecome ]. - newInstances := self allInstances collect: #rehashWithoutBecome. instances elementsExchangeIdentityWith: newInstances! Item was changed: ----- Method: Monitor>>queueDict (in category 'private') ----- queueDict + + ^queueDict ifNil: [ queueDict := IdentityDictionary new ]! - queueDict ifNil: [queueDict := IdentityDictionary new]. - ^ queueDict.! Item was changed: ----- Method: Monitor>>signalAllInQueue: (in category 'private') ----- signalAllInQueue: anOrderedCollection + queuesMutex critical: [ + anOrderedCollection removeAllSuchThat: [ :each | + each signal. + true ] ]! - anOrderedCollection do: [:lock | lock signal]. - anOrderedCollection removeAllSuchThat: [:each | true]. - ].! Item was changed: ----- Method: Monitor>>signalQueue: (in category 'private') ----- signalQueue: anOrderedCollection + queuesMutex critical: [ + anOrderedCollection isEmpty ifFalse: [ + anOrderedCollection removeFirst signal ] ]! - anOrderedCollection isEmpty ifTrue: [^ self]. - anOrderedCollection removeFirst signal. - ].!

1 0

The Trunk: Kernel-ul.507.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

1 0

The Trunk: Kernel-ul.507.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

1 0

The Trunk: Installer-Core-ul.341.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

Levente Uzonyi uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-ul.341.mcz ==================== Summary ==================== Name: Installer-Core-ul.341 Author: ul Time: 17 October 2010, 3:44:36.323 am UUID: 76252046-fc47-1e44-b16e-9436e2471e84 Ancestors: Installer-Core-spd.340 - use blocks instead of symbols =============== Diff against Installer-Core-spd.340 =============== Item was changed: ----- Method: InstallerMonticello>>basicBrowse (in category 'basic interface') ----- basicBrowse "Installer ss project: 'Installer'; browse: 'Installer-Core'." | it | it := self mcThing. (it class includesSelector: #browse) ifTrue: [ ^ it browse ]. + (it instVarNamed: 'versions') do: [ :each | each browse ].! - (it instVarNamed: 'versions') do: #browse.! Item was changed: ----- Method: InstallerMonticello>>basicView (in category 'basic interface') ----- basicView "Installer ss project: 'Installer'; view: 'Installer-Core'. " | it | packages isEmptyOrNil ifTrue: [ self mc morphicOpen: nil ]. it := self mcThing. (it respondsTo: #open) ifTrue: [ ^ it open ]. "in case an old mc doesnt have #open" + (it instVarNamed: 'versions') do: [ :each | each open ]. - (it instVarNamed: 'versions') do: #open. !

1 0

The Trunk: Installer-Core-ul.341.mcz
by commits＠source.squeak.org 17 Oct '10

17 Oct '10

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
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 October 2010