The Trunk: ShoutCore-ct.71.mcz

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-ct.71.mcz

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

Name: ShoutCore-ct.71
Author: ct
Time: 3 September 2019, 2:20:09.991948 pm
UUID: 2635dce1-6bda-3a4d-a726-3f66bb7c6431
Ancestors: ShoutCore-ul.68

Use TimeStamps instead of deprecated #primUTCMicrosecondClock.

=============== Diff against ShoutCore-ul.68 ===============

Item was changed:
  ----- Method: SHParserST80 class>>benchmark (in category 'benchmarking') -----
  benchmark
 
  | methods methodCount totalTime averageTime min median percentile80 percentile95 percentile99 max |
  Smalltalk garbageCollect.
  methods := OrderedCollection new: 100000.
  CurrentReadOnlySourceFiles cacheDuring: [
  | parser |
  parser := SHParserST80 new.
  SystemNavigation default allSelectorsAndMethodsDo: [ :class :selector :method |
  | source start ranges |
  source := method getSource asString.
+ start := TimeStamp now.
- start := Time primUTCMicrosecondClock.
  ranges := parser
  rangesIn: source
  classOrMetaClass: class
  workspace: nil
  environment: nil.
+ methods addLast: { (TimeStamp now - start) asMicroSeconds. method. ranges size } ] ].
- methods addLast: { Time primUTCMicrosecondClock - start. method. ranges size } ] ].
  methods sort: #first asSortFunction.
  methodCount := methods size.
  totalTime := methods detectSum: #first.
  averageTime := (totalTime / methodCount) rounded.
 
  min := methods first.
  median := methods at: methodCount // 2.
  percentile80 := methods at: (methodCount * 0.8) floor.
  percentile95 := methods at: (methodCount * 0.95) floor.
  percentile99 := methods at: (methodCount * 0.99) floor.
  max := methods last.
  ^'
  Methods {1}
  Total {2}ms
  Average {3}ms
  Min {4}ms {5} range(s) ({6})
  Median {7}ms {8} ranges ({9})
  80th percentile {10}ms {11} ranges ({12})
  95th percentile {13}ms {14} ranges ({15})
  99th percentile {16}ms {17} ranges ({18})
  Max {19}ms {20} ranges ({21})' format: ({
  methodCount asString.
  totalTime.
  averageTime.
  min first.
  min third asString.
  min second reference.
  median first.
  median third asString.
  median second reference.
  percentile80 first.
  percentile80 third asString.
  percentile80 second reference.
  percentile95 first.
  percentile95 third asString.
  percentile95 second reference.
  percentile99 first.
  percentile99 third asString.
  percentile99 second reference.
  max first.
  max third asString.
  max second reference } replace: [ :each |
  each isNumber
  ifTrue: [ (each / 1000) printShowingDecimalPlaces: 3 ]
  ifFalse: [ each ] ])!