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

tools.profiler.sampling: Don't use calendar because it pulls in ratios

db4
Doug Coleman 2011-11-30 22:55:42 -08:00
parent ab41dd556f
commit cab4dc6ba3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
! (c)2011 Joe Groff bsd license ! (c)2011 Joe Groff bsd license
USING: accessors assocs calendar combinators USING: accessors assocs combinators
combinators.short-circuit continuations fry generalizations combinators.short-circuit continuations fry generalizations
hashtables.identity io kernel kernel.private layouts locals hashtables.identity io kernel kernel.private layouts locals
math math.parser math.parser.private math.statistics math math.parser math.parser.private math.statistics
@ -41,8 +41,8 @@ PRIVATE>
: unclip-callstack ( sample -- sample' callstack-top ) : unclip-callstack ( sample -- sample' callstack-top )
clone 6 over [ unclip swap ] change-nth ; clone 6 over [ unclip swap ] change-nth ;
: samples>time ( samples -- time ) : samples>time ( samples -- seconds )
samples-per-second get-global / seconds ; samples-per-second get-global / ;
: total-time* ( profile-data -- n ) : total-time* ( profile-data -- n )
[ total-sample-count ] map-sum samples>time ; [ total-sample-count ] map-sum samples>time ;
@ -196,10 +196,10 @@ PRIVATE>
>alist [ second total-time>> ] inv-sort-with ; >alist [ second total-time>> ] inv-sort-with ;
: duration. ( duration -- ) : duration. ( duration -- )
duration>milliseconds >float "%9.1f" format-float write ; 1000 * >float "%9.1f" format-float write ;
: percentage. ( num denom -- ) : percentage. ( num denom -- )
[ duration>seconds ] bi@ [ 100 * ] dip /f "%6.2f" format-float write ; [ 100 * ] dip /f "%6.2f" format-float write ;
DEFER: (profile.) DEFER: (profile.)