[Pkg] 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 Packages
mailing list