The Trunk: Collections-cbc.650.mcz

Chris Muller uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-cbc.650.mcz

==================== Summary ====================

Name: Collections-cbc.650
Author: cbc
Time: 28 August 2015, 3:56:04.013 pm
UUID: 35dc53fb-613d-f84a-bd9d-ffc19957feb8
Ancestors: Collections-ul.649

Add ByteArray methods to deal with long64bit values.

=============== Diff against Collections-ul.649 ===============

Item was added:
+ ----- Method: ByteArray>>unsignedLong64At:bigEndian: (in category 'platform independent access') -----
+ unsignedLong64At: index bigEndian: aBool
+ | n1 n2 |
+ aBool
+ ifTrue: [
+ n2 := self unsignedLongAt: index  bigEndian: true.
+ n1 := self unsignedLongAt: index+4  bigEndian: true.
+ ]
+ ifFalse: [
+ n1 := self unsignedLongAt: index bigEndian: false.
+ n2 := self unsignedLongAt: index+4 bigEndian: false.
+ ].
+ ^(n2 bitShift: 32) + n1!

Item was added:
+ ----- Method: ByteArray>>unsignedLong64At:put:bigEndian: (in category 'platform independent access') -----
+ unsignedLong64At: index put: val bigEndian: aBool
+ aBool
+ ifTrue: [
+ self unsignedLongAt: index put: (val bitShift: -32) bigEndian: true.
+ self unsignedLongAt: index+4 put: (val bitAnd: 16rFFFFFFFF) bigEndian: true.
+ ]
+ ifFalse: [
+ self unsignedLongAt: index put: (val bitAnd: 16rFFFFFFFF) bigEndian: false.
+ self unsignedLongAt: index+4 put: (val bitShift: -32) bigEndian: false.
+ ].
+ ^val
+ !