The Trunk: Kernel-nice.963.mcz

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
  !