Packages February 2011

packages@lists.squeakfoundation.org

2 participants
337 discussions

The Trunk: Collections-ul.429.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.429.mcz ==================== Summary ==================== Name: Collections-ul.429 Author: ul Time: 28 February 2011, 7:46:37.501 am UUID: d06ca77f-a95d-134b-9474-847ce5c808b7 Ancestors: Collections-laza.428 String's #getInteger32: and #putInteger32:at: were moved to Nebraska. =============== Diff against Collections-laza.428 =============== Item was removed: - ----- Method: String>>getInteger32: (in category 'encoding') ----- - getInteger32: location - | integer | - <primitive: 'getInteger' module: 'IntegerPokerPlugin'> - "^IntegerPokerPlugin doPrimitive: #getInteger" - - "the following is about 7x faster than interpreting the plugin if not compiled" - - integer := - ((self at: location) asInteger bitShift: 24) + - ((self at: location+1) asInteger bitShift: 16) + - ((self at: location+2) asInteger bitShift: 8) + - (self at: location+3) asInteger. - - integer > 1073741824 ifTrue: [^1073741824 - integer ]. - ^integer - ! Item was removed: - ----- Method: String>>putInteger32:at: (in category 'encoding') ----- - putInteger32: anInteger at: location - | integer | - <primitive: 'putInteger' module: 'IntegerPokerPlugin'> - "IntegerPokerPlugin doPrimitive: #putInteger" - - "the following is close to 20x faster than the above if the primitive is not compiled" - "PUTCOUNTER := PUTCOUNTER + 1." - integer := anInteger. - integer < 0 ifTrue: [integer := 1073741824 - integer. ]. - self at: location+3 put: (Character value: (integer \\ 256)). - self at: location+2 put: (Character value: (integer bitShift: -8) \\ 256). - self at: location+1 put: (Character value: (integer bitShift: -16) \\ 256). - self at: location put: (Character value: (integer bitShift: -24) \\ 256). - - "Smalltalk at: #PUTCOUNTER put: 0"!

1 0

The Trunk: Nebraska-ul.32.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-ul.32.mcz ==================== Summary ==================== Name: Nebraska-ul.32 Author: ul Time: 28 February 2011, 7:42:18.721 am UUID: ee0e143b-7c07-0c49-9505-edac998570ca Ancestors: Nebraska-nice.31 Moved String's #getInteger32: and #putInteger32:at: to this package. The methods only make sense for ByteStrings. Both methods are rewritten to - avoid creation of LargeIntegers - use fast integer and string manipulation methods - use the stack optimally if possible The new methods are 2-15x faster than the previous implementations. Combining this with the speedup of Cog, the use of IntegerPokerPlugin is probably unnecessary (it's not present in current VMs). =============== Diff against Nebraska-nice.31 =============== Item was added: + ----- Method: ByteString>>getInteger32: (in category '*Nebraska') ----- + getInteger32: location + "Read a SmallInteger stored in the receiver using big-endian one's complement representation. Avoid creation of LargeIntegers." + + | firstByte | + (firstByte := self byteAt: location) < 64 ifTrue: [ + ^((((( + firstByte bitShift: 8) bitOr: + (self byteAt: location + 1)) bitShift: 8) bitOr: + (self byteAt: location + 2)) bitShift: 8) bitOr: + (self byteAt: location + 3) ]. + ^(64 - firstByte bitShift: 24) - ((((( + (self byteAt: location + 1)) bitShift: 8) bitOr: + (self byteAt: location + 2)) bitShift: 8) bitOr: + (self byteAt: location + 3)) + ! Item was added: + ----- Method: ByteString>>putInteger32:at: (in category '*Nebraska') ----- + putInteger32: anInteger at: location + "Store a SmallInteger in the receiver using big-endian one's complement representation. Avoid creation of LargeIntegers." + + | integer firstByte | + (integer := anInteger) >= 0 + ifTrue: [ firstByte := (anInteger bitShift: -24) bitAnd: 255 ] + ifFalse: [ + integer := 0 - integer. + firstByte := (integer bitShift: -24) + 64 bitAnd: 255 ]. + self + byteAt: location put: firstByte; + byteAt: location + 1 put: ((integer bitShift: -16) bitAnd: 255); + byteAt: location + 2 put: ((integer bitShift: -8) bitAnd: 255); + byteAt: location + 3 put: (integer bitAnd: 255) + !

1 0

The Trunk: Nebraska-ul.32.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

1 0

The Trunk: Nebraska-ul.32.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

1 0

The Trunk: Compiler-ul.193.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ul.193.mcz ==================== Summary ==================== Name: Compiler-ul.193 Author: ul Time: 28 February 2011, 7:27:29.293 am UUID: 2676a6c5-2140-814f-b508-e35126bd2c85 Ancestors: Compiler-nice.192 - removed guarding clauses from MessageNode's #checkBlock:as:from:maxArgs: and #transformCase: - removed all implementations of #canBeSpecialArgument =============== Diff against Compiler-nice.192 =============== Item was removed: - ----- Method: BlockNode>>canBeSpecialArgument (in category 'testing') ----- - canBeSpecialArgument - "Can I be an argument of (e.g.) ifTrue:?" - - ^arguments size = 0! Item was changed: ----- Method: MessageNode>>checkBlock:as:from:maxArgs: (in category 'private') ----- checkBlock: node as: nodeName from: encoder maxArgs: maxArgs "Answer true if node is a BlockNode with at most maxArgs arguments. This check is required in order to inline some special messages. Notify some undue usage of these special messages." + node isBlockNode ifFalse: [ ^false ]. + node numberOfArguments <= maxArgs ifTrue: [ ^true ]. + ^encoder notify: '<- ', nodeName , ' of ' , (MacroSelectors at: special) , ' has too many arguments'! - node isBlockNode - ifTrue: - [node numberOfArguments <= maxArgs - ifTrue: [^true] - ifFalse: [encoder notify: '<- ', nodeName , ' of ' , - (MacroSelectors at: special) , ' has too many arguments']]. - ^false! Item was changed: ----- Method: MessageNode>>transformCase: (in category 'macro transformations') ----- transformCase: encoder | caseNode | caseNode := arguments first. + (caseNode isMemberOf: BraceNode) ifFalse: [ ^false ]. + (caseNode blockAssociationCheck: encoder) ifFalse: [ ^false ]. + (arguments size = 1 or: [ + self checkBlock: arguments last as: 'otherwise arg' from: encoder ]) ifFalse: [ + ^false ]. + caseNode elements do: [ :messageNode | + messageNode receiver noteOptimizedIn: self. + messageNode arguments first noteOptimizedIn: self ]. + arguments size = 2 ifTrue: [ arguments last noteOptimizedIn: self ]. + ^true! - (caseNode isMemberOf: BraceNode) ifTrue: - [((caseNode blockAssociationCheck: encoder) - and: [arguments size = 1 - or: [self checkBlock: arguments last as: 'otherwise arg' from: encoder]]) ifFalse: - [^false]. - caseNode elements do: - [:messageNode| - messageNode receiver noteOptimizedIn: self. - messageNode arguments first noteOptimizedIn: self]. - arguments size = 2 ifTrue: - [arguments last noteOptimizedIn: self]. - ^true]. - ^false! Item was removed: - ----- Method: ParseNode>>canBeSpecialArgument (in category 'testing') ----- - canBeSpecialArgument - "Can I be an argument of (e.g.) ifTrue:?" - - ^false! Item was removed: - ----- Method: VariableNode>>canBeSpecialArgument (in category 'testing') ----- - canBeSpecialArgument - "Can I be an argument of (e.g.) ifTrue:?" - - ^code < LdNil!

1 0

The Trunk: Compiler-ul.193.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

1 0

The Trunk: Compiler-ul.193.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

1 0

The Trunk: Kernel-dtl.548.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.548.mcz ==================== Summary ==================== Name: Kernel-dtl.548 Author: dtl Time: 27 February 2011, 9:51:00.787 pm UUID: 3640676f-cde9-42ac-924b-f585949efb60 Ancestors: Kernel-cmm.547 Fix bug in Float>>printPaddedWith:To: by treating the format specifier as a string value, not as a float subject to numeric precision issues. =============== Diff against Kernel-cmm.547 =============== Item was changed: ----- Method: Float>>printPaddedWith:to: (in category 'printing') ----- printPaddedWith: aCharacter to: aNumber "Answer the string containing the ASCII representation of the receiver padded on the left with aCharacter to be at least on aNumber integerPart characters and padded the right with aCharacter to be at least anInteger fractionPart characters." | aStream digits fPadding fLen iPadding iLen curLen periodIndex | #Numeric. "2000/03/04 Harmon R. Added Date and Time support" aStream := WriteStream on: (String new: 10). self printOn: aStream. digits := aStream contents. periodIndex := digits indexOf: $.. curLen := periodIndex - 1. iLen := aNumber integerPart. curLen < iLen ifTrue: [iPadding := (String new: (iLen - curLen) asInteger) atAllPut: aCharacter; yourself] ifFalse: [iPadding := '']. curLen := digits size - periodIndex. + "n.b. Treat aNumber as a string format specifier rather than as a number, because + floating point truncation can produce incorrect results for the fraction part." + fLen := (aNumber asString copyAfterLast: $. ) + ifNotEmpty: [:s | s asInteger] + ifEmpty: [ 0 ]. - fLen := aNumber fractionPart. - [fLen fractionPart > 1e-6] whileTrue: - [fLen := fLen * 10.0]. - fLen := fLen asInteger. curLen < fLen ifTrue: [fPadding := (String new: fLen - curLen) atAllPut: aCharacter; yourself] ifFalse: [fPadding := '']. ^ iPadding , digits , fPadding!

1 0

The Trunk: Kernel-dtl.548.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

1 0

The Trunk: Kernel-dtl.548.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2011