[squeak-dev] The Trunk: Kernel-ul.1339.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Sep 12 11:53:40 UTC 2020


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!



More information about the Squeak-dev mailing list