The Trunk: System-eem.700.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-eem.700.mcz

commits-2
Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.700.mcz

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

Name: System-eem.700
Author: eem
Time: 1 February 2015, 5:50:46.817 pm
UUID: f755aede-d893-40a4-92a3-bfbbff0e4c01
Ancestors: System-eem.699

MessageTally>>tally:by: should check block nesting.

=============== Diff against System-eem.699 ===============

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
+ and: [blockNesting = (self blockNestingCountOf: context)]) ifTrue:
+ [^self bumpBy: count].
+
+ ^context sender
+ ifNil: "No sender? Add new branch to the tree."
+ [(self bumpBy: count) tallyPath: context by: count]
+ ifNotNil: "Find the node for the sending context (or add it if necessary)"
+ [:sender|
+ (self tally: sender by: count) tallyPath: context by: count]!
- context method == method ifTrue: [^self bumpBy: count].
-
- "No sender? Add new branch to the tree."
- (sender :=  context 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!