steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.profiler.sampling: fix top-down*.

db4
John Benediktsson 2013-03-01 09:20:48 -08:00
parent 24fe886946
commit c0f5bc8391
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/tools/profiler/sampling/sampling.factor
View File

@ -58,10 +58,13 @@ PRIVATE>
: total-time ( -- n )
most-recent-profile-data total-time* ;
: gc-time ( -- n )
most-recent-profile-data gc-time* ;
: foreign-time ( -- n )
most-recent-profile-data foreign-time* ;
: foreign-thread-time ( -- n )
most-recent-profile-data foreign-thread-time* ;
@ -127,7 +130,7 @@ PRIVATE>
most-recent-profile-data top-down-max-depth* ;
: top-down* ( profile-data -- tree )
most-positive-fixnum top-down-max-depth* ;
[ most-positive-fixnum ] dip top-down-max-depth* ;
: top-down ( -- tree )
most-positive-fixnum top-down-max-depth ;