Packages October 2015

packages@lists.squeakfoundation.org

1 participants
218 discussions

The Trunk: Kernel-nice.963.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.963.mcz ==================== Summary ==================== Name: Kernel-nice.963 Author: nice Time: 31 October 2015, 11:48:47.351 pm UUID: 251411b2-0110-4d17-8469-5b3aef45ebee Ancestors: Kernel-nice.962 Let's correct my fresh DataStream correction... The ugly 37777777 pattern may happen in octal, but 50 birthdays is well too young for practicing such sport correctly ;) <rant> if the MC commit window would not try and reformat the code (especially rewrite hexadecimal constants in decimal) - that would have given me one more chance to correct before committing... </rant> =============== Diff against Kernel-nice.962 =============== Item was changed: ----- Method: SmallInteger>>objectForDataStream: (in category 'objects from disk') ----- objectForDataStream: refStrm "In a 64bits sput VM, we may have to fake 32bits SmallInteger for compatibility" | large | + self > 16r3FFFFFFF ifTrue: [ - self > 16r37777777 ifTrue: [ large := LargePositiveInteger new: self digitLength neg: false. 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. ^large]. self < -16r40000000 ifTrue: [ large := LargeNegativeInteger new: self digitLength neg: true. 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. ^large]. ^ self !

1 0

The Trunk: Kernel-nice.963.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

1 0

The Trunk: System-nice.776.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.776.mcz ==================== Summary ==================== Name: System-nice.776 Author: nice Time: 31 October 2015, 11:35:30.653 pm UUID: d178a6bb-8b9a-47ed-9eff-8544ba286894 Ancestors: System-topa.775 Fix SmartRefStream for 64bits spur VM. The scenario is this one: a SmallInteger smaller than 32 bits VM minSmallInteger is being replaced with a fake LargeNegativeInteger. But the fake LargeNegativeInteger is not stored in references IdentityDictionary; consequently the class is NOT properly registered into the structures, and this creates an Error at materialization time... So let's reference the fake... =============== Diff against System-topa.775 =============== Item was changed: ----- Method: DataStream>>nextPut: (in category 'write and read') ----- nextPut: anObject "Write anObject to the receiver stream. Answer anObject." | typeID selector objectToStore | typeID := self typeIDFor: anObject. (self tryToPutReference: anObject typeID: typeID) ifTrue: [^ anObject]. objectToStore := (self objectIfBlocked: anObject) objectForDataStream: self. + objectToStore == anObject + ifFalse: + [typeID := self typeIDFor: objectToStore. + (self tryToPutReference: objectToStore typeID: typeID) + ifTrue: [^ anObject]]. - objectToStore == anObject ifFalse: [typeID := self typeIDFor: objectToStore]. byteStream nextPut: typeID. selector := #(writeNil: writeTrue: writeFalse: writeInteger: writeStringOld: writeSymbol: writeByteArray: writeArray: writeInstance: errorWriteReference: writeBitmap: writeClass: writeUser: writeFloat: writeRectangle: == "<-16 short inst" writeString: writeBitmap: writeBitmap: writeWordLike: writeInstance: "CompiledMethod") at: typeID. self perform: selector with: objectToStore. ^ anObject "NOTE: If anObject is a reference type (one that we write cross-references to) but its externalized form (result of objectForDataStream:) isn't (e.g. CompiledMethod and ViewState), then we should remember its externalized form but not add to 'references'. Putting that object again should just put its external form again. That's more compact and avoids seeks when reading. But we just do the simple thing here, allowing backward-references for non-reference types like nil. So objectAt: has to compensate. Objects that externalize nicely won't contain the likes of ViewStates, so this shouldn't hurt much. writeReference: -> errorWriteReference:."!

1 0

The Trunk: System-nice.776.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

1 0

The Trunk: Kernel-nice.962.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.962.mcz ==================== Summary ==================== Name: Kernel-nice.962 Author: nice Time: 31 October 2015, 7:24:30.118 pm UUID: 7437325d-9085-4d61-9960-368cd42f46fe Ancestors: Kernel-ul.961 Fix DataStream-serialization of SmallInteger in a 64bits spur VM. DataStream assumes each and every SmallInteger fits in 32bits which is no more true. If the SmallInteger is out of 32bits VM SmallInteger range, then use a fake LargeInteger. Also care to re-normalize LageIntegers at materialization time. =============== Diff against Kernel-ul.961 =============== Item was added: + ----- Method: LargePositiveInteger>>readDataFrom:size: (in category 'objects from disk') ----- + readDataFrom: aDataStream size: varsOnDisk + ^(super readDataFrom: aDataStream size: varsOnDisk) normalize + ! Item was added: + ----- Method: SmallInteger>>objectForDataStream: (in category 'objects from disk') ----- + objectForDataStream: refStrm + "In a 64bits sput VM, we may have to fake 32bits SmallInteger for compatibility" + + | large | + self > 16r37777777 ifTrue: [ + large := LargePositiveInteger new: self digitLength neg: false. + 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. + ^large]. + self < -16r40000000 ifTrue: [ + large := LargeNegativeInteger new: self digitLength neg: true. + 1 to: self digitLength do: [:i | large digitAt: i put: (self digitAt: i)]. + ^large]. + ^ self + !

1 0

The Trunk: Kernel-nice.962.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

1 0

The Trunk: KernelTests-nice.298.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.298.mcz ==================== Summary ==================== Name: KernelTests-nice.298 Author: nice Time: 31 October 2015, 6:49:35.522 pm UUID: bd6fa081-0481-4e5c-85d0-c1c8207c7f7f Ancestors: KernelTests-eem.297 Revise the tests relative to SmallInteger range for 64bits spur VM compatibility. =============== Diff against KernelTests-eem.297 =============== Item was changed: ----- Method: SmallIntegerTest>>testMaxVal (in category 'testing - Class Methods') ----- testMaxVal + self assert: (SmallInteger maxVal = 16r3FFFFFFF or: [SmallInteger maxVal = 16rFFFFFFFFFFFFFFF]).! - self assert: (SmallInteger maxVal = 16r3FFFFFFF).! Item was changed: ----- Method: SmallIntegerTest>>testMinVal (in category 'testing - Class Methods') ----- testMinVal + self assert: (SmallInteger minVal = -16r40000000 or: [SmallInteger minVal = -16r1000000000000000]).! - self assert: (SmallInteger minVal = -16r40000000).! Item was changed: ----- Method: SmallIntegerTest>>testPrintString (in category 'testing - printing') ----- testPrintString self assert: 1 printString = '1'. self assert: -1 printString = '-1'. + self assert: SmallInteger minVal printString = (Smalltalk wordSize = 8 ifTrue: [ '-1152921504606846976'] ifFalse: ['-1073741824']). + self assert: SmallInteger maxVal printString = (Smalltalk wordSize = 8 ifTrue: [ '1152921504606846975'] ifFalse: ['-1073741823']). - self assert: SmallInteger minVal printString = '-1073741824'. - self assert: SmallInteger maxVal printString = '1073741823'. self assert: 12345 printString = '12345'. self assert: -54321 printString = '-54321'. self assert: 0 decimalDigitLength = 1. self assert: 4 decimalDigitLength = 1. self assert: 12 decimalDigitLength = 2. self assert: 123 decimalDigitLength = 3. self assert: 1234 decimalDigitLength = 4. self assert: 56789 decimalDigitLength = 5. self assert: 657483 decimalDigitLength = 6. self assert: 6571483 decimalDigitLength = 7. self assert: 65174383 decimalDigitLength = 8. self assert: 625744831 decimalDigitLength = 9. self assert: 1000001111 decimalDigitLength = 10. + self assert: SmallInteger maxVal decimalDigitLength = (Smalltalk wordSize = 8 ifTrue: [19] ifFalse: [10]).! - self assert: SmallInteger maxVal decimalDigitLength = 10.!

1 0

The Trunk: KernelTests-nice.298.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

1 0

The Trunk: CollectionsTests-nice.255.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.255.mcz ==================== Summary ==================== Name: CollectionsTests-nice.255 Author: nice Time: 31 October 2015, 6:39:25.525 pm UUID: 4f5361b3-18c8-47f1-ba59-030004683963 Ancestors: CollectionsTests-ul.254 In a 64bits spur VM, not all SmallInteger can be stored in an IntegerArray, It's time to document it. =============== Diff against CollectionsTests-ul.254 =============== Item was changed: ----- Method: IntegerArrayTest>>testStoreSmallInteger (in category 'tests') ----- testStoreSmallInteger + "Any SmallInteger may be stored in an IntegerArray in a 32bits VM. + Not so true for a 64bits spur VM though..." - "Any SmallInteger may be stored in an IntegerArray." | ia val | ia := IntegerArray new: 1. + val := Smalltalk wordSize = 8 + ifTrue: [1 << 31 - 1] + ifFalse: [SmallInteger maxVal]. - val := SmallInteger maxVal. ia at: 1 put: val. self assert: ((ia at: 1) = val). + val := Smalltalk wordSize = 8 + ifTrue: [(1 << 31) negated] + ifFalse: [SmallInteger minVal]. - val := SmallInteger minVal. ia at: 1 put: val. self assert: ((ia at: 1) = val) !

1 0

The Trunk: CollectionsTests-nice.255.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

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 October 2015