implemented a stack trace profiler

This commit is contained in:
Araq 2012-09-15 00:21:10 +02:00
commit 214c7a2ebd
11 changed files with 241 additions and 65 deletions

View file

@ -294,6 +294,7 @@ proc crcFromRopeAux(r: PRope, startVal: TCrc32): TCrc32 =
result = crcFromRopeAux(r.right, result)
proc newCrcFromRopeAux(r: PRope, startVal: TCrc32): TCrc32 =
# XXX profiling shows this is actually expensive
var stack: TRopeSeq = @[r]
result = startVal
while len(stack) > 0: