The Trunk: Kernel-ul.1339.mcz

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

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

Name: Kernel-ul.1339
Author: ul
Time: 12 September 2020, 1:52:36.827997 pm
UUID: 11d71615-1cc2-4e25-9ac8-d637679f3abd
Ancestors: Kernel-ct.1338

- fixed Context >> #copyTo: which did not stop copying when aContext was reached
- fixed a typo in SmallInteger >> #scaledIdentityHash's comment

=============== Diff against Kernel-ct.1338 ===============

Item was changed:
  ----- Method: Context>>copyTo: (in category 'query') -----
  copyTo: aContext
  "Copy self and my sender chain down to, but not including, aContext. End of copied chain will have nil sender. Assume that there is no loop in the context chain."
 
  | currentContext senderContext copy |
  self == aContext ifTrue: [ ^nil ].
  currentContext := copy := self copy.
  [
+ senderContext := currentContext sender ifNil: [ ^copy ].
+ senderContext == aContext ifTrue: [
+ currentContext privSender: nil.
+ ^copy ].
+ senderContext := senderContext copy.
- senderContext := (currentContext sender ifNil: [ ^copy ]) copy.
  currentContext privSender: senderContext.
  currentContext := senderContext ] repeat!

Item was changed:
  ----- Method: SmallInteger>>scaledIdentityHash (in category 'comparing') -----
  scaledIdentityHash
  "For identityHash values returned by primitive 75, answer
+ such values times 2^8.  Otherwise, match the existing
- such values times 2^18.  Otherwise, match the existing
  identityHash implementation"
 
  ^self!