Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.831.mcz
==================== Summary ====================
Name: System-ul.831 Author: ul Time: 19 May 2016, 10:43:32.712543 am UUID: 71e758e2-381c-4c5a-84b5-87e206f286a9 Ancestors: System-mt.830
- use #adoptInstance: instead of copying the ByteArray into a new LargeInteger in SecureHashAlgorithm >> #finalHash. This should be somewhat quicker and it should also avoid running the fallback code of LargePositiveInteger >> #replaceFrom:to:with:startingAt: with a ByteArray argument, which wouldn't work.
=============== Diff against System-mt.830 ===============
Item was changed: ----- Method: SecureHashAlgorithm>>finalHash (in category 'private') ----- finalHash "Concatenate the final totals to build the 160-bit integer result." "Details: If the primitives are supported, the results are in the totals array. Otherwise, they are in the instance variables totalA through totalE."
| result | result := ByteArray new: 20. totals ifNil: [ "compute final hash when not using primitives" result unsignedShortAt: 1 put: totalE low bigEndian: false; unsignedShortAt: 3 put: totalE hi bigEndian: false; unsignedShortAt: 5 put: totalD low bigEndian: false; unsignedShortAt: 7 put: totalD hi bigEndian: false; unsignedShortAt: 9 put: totalC low bigEndian: false; unsignedShortAt: 11 put: totalC hi bigEndian: false; unsignedShortAt: 13 put: totalB low bigEndian: false; unsignedShortAt: 15 put: totalB hi bigEndian: false; unsignedShortAt: 17 put: totalA low bigEndian: false; unsignedShortAt: 19 put: totalA hi bigEndian: false ] ifNotNil: [ "compute final hash when using primitives" result unsignedLongAt: 1 put: (totals at: 5) bigEndian: false; unsignedLongAt: 5 put: (totals at: 4) bigEndian: false; unsignedLongAt: 9 put: (totals at: 3) bigEndian: false; unsignedLongAt: 13 put: (totals at: 2) bigEndian: false; unsignedLongAt: 17 put: (totals at: 1) bigEndian: false ]. + LargePositiveInteger adoptInstance: result. + ^result normalize! - ^(LargePositiveInteger new: result size) - replaceFrom: 1 - to: result size - with: result - startingAt: 1; - normalize!