[squeak-dev] The Trunk: System-mt.697.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jan 28 08:03:34 UTC 2015


Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.697.mcz

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

Name: System-mt.697
Author: mt
Time: 27 January 2015, 5:53:38.431 pm
UUID: 9296f429-477d-0745-a878-6e11e7de5edd
Ancestors: System-cmm.696

Let message tally ignore #home but just use #sender to handle block closures correctly.

=============== Diff against System-cmm.696 ===============

Item was changed:
  ----- Method: MessageTally>>tally:by: (in category 'tallying') -----
  tally: context by: count
  	"Explicitly tally the specified context and its stack."
  	| sender |
  	
  	"Add to this node if appropriate"
  	context method == method ifTrue: [^self bumpBy: count].
  	
  	"No sender? Add new branch to the tree."
+ 	(sender :=  context sender) ifNil: [
- 	(sender :=  context home sender)ifNil: [
  		^ (self bumpBy: count) tallyPath: context by: count].
  	
  	"Find the node for the sending context (or add it if necessary)"
  	^ (self tally: sender by: count) tallyPath: context by: count!

Item was changed:
  ----- Method: MessageTally>>tally:in:by: (in category 'tallying') -----
  tally: context in: aProcess by: count
  	"Explicitly tally the specified context and its stack."
  	| sender |
  
  	"Add to this node if appropriate"
  	context method == method ifTrue: [^self bumpBy: count].
  	
  	"No sender? Add new branch to the tree."
+ 	(sender :=  context sender) ifNil: [
- 	(sender :=  context home sender) ifNil: [
  		^ (self bumpBy: count) tallyPath: context in: aProcess by: count].
  	
  	"Find the node for the sending context (or add it if necessary)"
  	^ (self tally: sender in: aProcess by: count) tallyPath: context in: aProcess by: count!



More information about the Squeak-dev mailing list