The Trunk: Kernel-ul.1011.mcz

Levente Uzonyi uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ul.1011.mcz

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

Name: Kernel-ul.1011
Author: ul
Time: 2 April 2016, 9:22:40.391347 pm
UUID: 924b2c29-5e11-4abb-aeb5-355380a4e56a
Ancestors: Kernel-ul.1010

Normalize the created LargePositiveInteger in Random >> #nextLargeInt:.

=============== Diff against Kernel-ul.1010 ===============

Item was changed:
  ----- Method: Random>>nextLargeInt: (in category 'accessing') -----
  nextLargeInt: anInteger
  "Answer a random integer value from the interval [1, anInteger]. This method works for arbitrarily large integers."
 
  | byteCount bigRandom result firstDigit |
  byteCount := anInteger digitLength + 4. "Extend the space with at least 32 bits for a fairer distribution."
  bigRandom := LargePositiveInteger new: byteCount.
  self nextBytes: byteCount into: bigRandom startingAt: 1.
+ bigRandom := bigRandom normalize. "Make sure that there are no leading zero bytes."
  result := anInteger * bigRandom bitShift: -8 * byteCount.
  "Avoid using LargeInteger arithmetic for +1 in most cases."
  result isLarge ifFalse: [ ^result + 1 ].
  (firstDigit := result digitAt: 1) = 255 ifTrue: [ ^result + 1 ].
  result digitAt: 1 put: firstDigit + 1.
  ^result
  !