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

tools.memory: add gc-stats. for viewing event statistics

db4
Slava Pestov 2009-10-30 02:45:16 -05:00
parent 5536003cf8
commit a3522554f3
1 changed files with 96 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
basis/tools/memory/memory.factor
View File

@ -1,24 +1,26 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences arrays generic assocs io math USING: accessors arrays assocs classes classes.struct
namespaces parser prettyprint strings io.styles words combinators combinators.smart continuations fry generalizations
system sorting splitting grouping math.parser classes memory generic grouping io io.styles kernel make math math.parser
combinators fry vm specialized-arrays accessors continuations math.statistics memory namespaces parser prettyprint sequences
classes.struct generalizations ; sorting specialized-arrays splitting strings system vm words ;
SPECIALIZED-ARRAY: gc-event SPECIALIZED-ARRAY: gc-event
IN: tools.memory IN: tools.memory
<PRIVATE <PRIVATE
: commas ( n -- str ) : commas ( n -- str )
dup 0 < [ neg commas "-" prepend ] [
number>string number>string
reverse 3 group "," join reverse ; reverse 3 group "," join reverse
] if ;
: kilobytes ( n -- str ) : kilobytes ( n -- str )
1024 /i commas " KB" append ; 1024 /i commas " KB" append ;
: micros>string ( n -- str ) : micros>string ( n -- str )
commas " microseconds" append ; commas " µs" append ;
: fancy-table. ( obj alist -- ) : fancy-table. ( obj alist -- )
[ [ nip first ] [ second call( obj -- str ) ] 2bi 2array ] with map [ [ nip first ] [ second call( obj -- str ) ] 2bi 2array ] with map
@ -102,19 +104,88 @@ PRIVATE>
enable-gc-events [ ] [ disable-gc-events drop ] cleanup enable-gc-events [ ] [ disable-gc-events drop ] cleanup
disable-gc-events byte-array>gc-event-array ; inline disable-gc-events byte-array>gc-event-array ; inline
<PRIVATE
: gc-op-string ( op -- string ) : gc-op-string ( op -- string )
{ {
{ collect-nursery-op [ "copying from nursery" ] } { collect-nursery-op [ "Copying from nursery" ] }
{ collect-aging-op [ "copying from aging" ] } { collect-aging-op [ "Copying from aging" ] }
{ collect-to-tenured-op [ "copying to tenured" ] } { collect-to-tenured-op [ "Copying to tenured" ] }
{ collect-full-op [ "mark and sweep" ] } { collect-full-op [ "Mark and sweep" ] }
{ collect-compact-op [ "mark and compact" ] } { collect-compact-op [ "Mark and compact" ] }
{ collect-growing-heap-op [ "grow heap" ] } { collect-growing-heap-op [ "Grow heap" ] }
} case ; } case ;
: (space-occupied) ( data-heap-room code-heap-room -- n )
[
[ [ nursery>> ] [ aging>> ] [ tenured>> ] tri [ occupied>> ] tri@ ]
[ occupied>> ]
bi*
] sum-outputs ;
: space-occupied-before ( event -- bytes )
[ data-heap-before>> ] [ code-heap-before>> ] bi (space-occupied) ;
: space-occupied-after ( event -- bytes )
[ data-heap-after>> ] [ code-heap-after>> ] bi (space-occupied) ;
: space-reclaimed ( event -- bytes ) : space-reclaimed ( event -- bytes )
[ data-heap-before>> ] [ data-heap-after>> ] bi [ space-occupied-before ] [ space-occupied-after ] bi - ;
[ [ nursery>> ] [ aging>> ] [ tenured>> ] tri [ occupied>> ] tri@ + + ] bi@ - ;
TUPLE: gc-stats collections times ;
: <gc-stats> ( -- stats )
gc-stats new
0 >>collections
V{ } clone >>times ; inline
: compute-gc-stats ( events -- stats )
V{ } clone [
'[
dup op>> _ [ drop <gc-stats> ] cache
[ 1 + ] change-collections
[ total-time>> ] dip times>> push
] each
] keep sort-keys ;
: gc-stats-table-row ( pair -- row )
[
[ first gc-op-string ] [
second
[ collections>> ]
[
times>> {
[ sum micros>string ]
[ mean >integer micros>string ]
[ median >integer micros>string ]
[ infimum micros>string ]
[ supremum micros>string ]
} cleave
] bi
] bi
] output>array ;
: gc-stats-table ( stats -- table )
[ gc-stats-table-row ] map
{ "" "Number" "Total" "Mean" "Median" "Min" "Max" } prefix ;
: heap-sizes ( events -- seq )
[
[
[ [ start-time>> ] [ space-occupied-before ] bi 2array , ]
[ [ [ start-time>> ] [ total-time>> ] bi + ] [ space-occupied-after ] bi 2array , ]
bi
] each
] { } make ;
: aggregate-stats-table ( stats -- table )
[ { "Total collections:" "Total GC time:" } ] dip
values
[ [ collections>> ] sigma ]
[ [ times>> sum ] sigma micros>string ]
bi 2array zip ;
PRIVATE>
: gc-event. ( event -- ) : gc-event. ( event -- )
{ {
@ -122,3 +193,12 @@ PRIVATE>
{ "Total time:" [ total-time>> micros>string ] } { "Total time:" [ total-time>> micros>string ] }
{ "Space reclaimed:" [ space-reclaimed kilobytes ] } { "Space reclaimed:" [ space-reclaimed kilobytes ] }
} fancy-table. ; } fancy-table. ;
: gc-stats. ( events -- )
compute-gc-stats
[ gc-stats-table simple-table. nl ]
[ aggregate-stats-table simple-table. ]
bi ;
: heap-sizes. ( events -- )
heap-sizes simple-table. ;