1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
|
/* NSC -- new Scala compiler
* Copyright 2005-2010 LAMP/EPFL
* @author Martin Odersky
*/
// $Id$
package scala.tools.nsc
package util
object Statistics {
var enabled = false
var phasesShown = List("parser", "typer", "erasure", "cleanup")
def currentTime() =
if (enabled) System.nanoTime() else 0L
private def showPercent(x: Double, base: Double) =
if (base == 0) "" else " ("+"%2.1f".format(x / base * 100)+"%)"
def incCounter(c: Counter) {
if (enabled) c.value += 1
}
def incCounter(c: Counter, delta: Int) {
if (enabled) c.value += delta
}
def startCounter(sc: SubCounter): IntPair =
if (enabled) sc.start() else null
def stopCounter(sc: SubCounter, start: IntPair) {
if (enabled) sc.stop(start)
}
def startTimer(tm: Timer): LongPair =
if (enabled) tm.start() else null
def stopTimer(tm: Timer, start: LongPair) {
if (enabled) tm.stop(start)
}
case class IntPair(x: Int, y: Int)
case class LongPair(x: Long, y: Long)
class Counter {
var value: Int = 0
override def toString = value.toString
}
class SubCounter(c: Counter) {
var value: Int = 0
def start(): IntPair =
if (enabled) IntPair(value, c.value) else null
def stop(prev: IntPair) {
if (enabled) {
val IntPair(value0, cvalue0) = prev
value = value0 + c.value - cvalue0
}
}
override def toString =
value+showPercent(value, c.value)
}
class Timer {
var nanos: Long = 0L
def start(): LongPair =
if (enabled) LongPair(nanos, System.nanoTime()) else null
def stop(prev: LongPair) {
if (enabled) {
val LongPair(nanos0, start) = prev
nanos = nanos0 + System.nanoTime() - start
}
}
override def toString = nanos.toString+"ns"
}
class ClassCounts extends scala.collection.mutable.HashMap[Class[_], Int] {
override def default(key: Class[_]) = 0
}
var nodeByType = new ClassCounts
val singletonBaseTypeSeqCount = new Counter
val compoundBaseTypeSeqCount = new Counter
val typerefBaseTypeSeqCount = new Counter
val findMemberCount = new Counter
val noMemberCount = new Counter
val multMemberCount = new Counter
val findMemberNanos = new Timer
val asSeenFromCount = new Counter
val asSeenFromNanos = new Timer
val subtypeCount = new Counter
val subtypeNanos = new Timer
val sametypeCount = new Counter
val rawTypeCount = new Counter
val rawTypeFailed = new SubCounter(rawTypeCount)
val findMemberFailed = new SubCounter(findMemberCount)
val subtypeFailed = new SubCounter(subtypeCount)
val rawTypeImpl = new SubCounter(rawTypeCount)
val findMemberImpl = new SubCounter(findMemberCount)
val subtypeImpl = new SubCounter(subtypeCount)
val baseTypeSeqCount = new Counter
val baseTypeSeqLenTotal = new Counter
val typeSymbolCount = new Counter
val classSymbolCount = new Counter
val typedApplyCount = new Counter
val typedIdentCount = new Counter
val typedSelectCount = new Counter
val typerNanos = new Timer
val classReadNanos = new Timer
val failedApplyNanos = new Timer
val failedOpEqNanos = new Timer
val failedSilentNanos = new Timer
val implicitSearchCount = new Counter
val implicitNanos = new Timer
val oftypeImplicitHits = new Counter
val inscopeImplicitHits = new Counter
val triedImplicits = new Counter
val plausiblyCompatibleImplicits = new Counter
val matchingImplicits = new Counter
val typedImplicits = new Counter
val foundImplicits = new Counter
val inscopeSucceedNanos = new Timer
val inscopeFailNanos = new Timer
val oftypeSucceedNanos = new Timer
val oftypeFailNanos = new Timer
val implicitCacheHits = new Counter
val implicitCacheMisses = new Counter
val improvesCount = new Counter
val subtypeAppInfos = new SubCounter(subtypeCount)
val subtypeImprovCount = new SubCounter(subtypeCount)
val subtypeETNanos = new Timer
val matchesPtNanos = new Timer
}
abstract class Statistics {
import Statistics._
val global: Global
import global._
def countNodes(tree: Tree, counts: ClassCounts) {
for (t <- tree) counts(t.getClass) += 1
counts
}
def showRelative(base: Long)(value: Long) =
value+showPercent(value, base)
def showRelTyper(timer: Timer) =
timer.nanos+"ns"+showPercent(timer.nanos, typerNanos.nanos)
def showCounts(counts: ClassCounts) =
counts.toSeq.sortWith(_._2 > _._2).map {
case (cls, cnt) =>
cls.toString.substring(cls.toString.lastIndexOf("$") + 1)+": "+cnt
}
def print(phase: Phase) = if (phasesShown contains phase.name) {
inform("*** Cumulative statistics at phase " + phase)
inform("#created tree nodes : " + nodeCount)
inform("#created tree nodes by type: "+showCounts(nodeByType))
if (phase.name != "parser") {
val counts = new ClassCounts
for (u <- currentRun.units; t <- u.body) counts(t.getClass) += 1
inform("#retained nodes : " + counts.valuesIterable.sum)
inform("#retained nodes by type : " + showCounts(counts))
inform("#typechecked identifiers : " + typedIdentCount)
inform("#typechecked selections : " + typedSelectCount)
inform("#typechecked applications: " + typedApplyCount)
inform("#raw type creations : " + rawTypeCount)
inform(" of which in failed : " + rawTypeFailed)
inform(" of which in implicits : " + rawTypeImpl)
inform("#unique types : " + uniqueTypeCount)
inform("#symbols : " + symbolCount)
inform(" of which type symbols : " + typeSymbolCount)
inform(" of which class symbols : " + classSymbolCount)
inform("#base type seqs : " + baseTypeSeqCount)
inform("avg base type seq length : " + baseTypeSeqLenTotal.value.toFloat / baseTypeSeqCount.value)
inform("#singleton base type seqs: " + singletonBaseTypeSeqCount)
inform("#compound base type seqs : " + compoundBaseTypeSeqCount)
inform("#typeref base type seqs : " + typerefBaseTypeSeqCount)
inform("#findMember ops : " + findMemberCount)
inform(" of which in failed : " + findMemberFailed)
inform(" of which in implicits : " + findMemberImpl)
inform("#notfound member : " + noMemberCount)
inform("#multiple member : " + multMemberCount)
inform("#asSeenFrom ops : " + asSeenFromCount)
inform("#subtype : " + subtypeCount)
inform(" of which in failed : " + subtypeFailed)
inform(" of which in implicits : " + subtypeImpl)
inform(" of which in app impl : " + subtypeAppInfos)
inform(" of which in improv : " + subtypeImprovCount)
inform("#sametype : " + sametypeCount)
inform("ms type-flow-analysis: " + analysis.timer.millis)
if (phase.name == "typer") {
inform("time spent typechecking : "+showRelTyper(typerNanos))
inform("time classfilereading : "+showRelTyper(classReadNanos))
inform("time spent in implicits : "+showRelTyper(implicitNanos))
inform(" successful in scope : "+showRelTyper(inscopeSucceedNanos))
inform(" failed in scope : "+showRelTyper(inscopeFailNanos))
inform(" successful of type : "+showRelTyper(oftypeSucceedNanos))
inform(" failed of type : "+showRelTyper(oftypeFailNanos))
inform(" assembling parts : "+showRelTyper(subtypeETNanos))
inform(" matchesPT : "+showRelTyper(matchesPtNanos))
inform("implicit cache hits : "+showRelative(implicitCacheHits.value + implicitCacheMisses.value)(implicitCacheHits.value))
inform("time spent in failed : "+showRelTyper(failedSilentNanos))
inform(" failed apply : "+showRelTyper(failedApplyNanos))
inform(" failed op= : "+showRelTyper(failedOpEqNanos))
inform("time spent in <:< : "+showRelTyper(subtypeNanos))
inform("time spent in findmember : "+showRelTyper(findMemberNanos))
inform("time spent in asSeenFrom : "+showRelTyper(asSeenFromNanos))
inform("#implicit searches : " + implicitSearchCount)
inform("#tried, plausible, matching, typed, found implicits: "+triedImplicits+", "+plausiblyCompatibleImplicits+", "+matchingImplicits+", "+typedImplicits+", "+foundImplicits)
inform("#implicit improves tests : " + improvesCount)
inform("#implicit inscope hits : " + inscopeImplicitHits)
inform("#implicit oftype hits : " + oftypeImplicitHits)
}
//for (t <- uniques.iterator) println("unique: "+t)
}
}
}
|
