tools.memory: fix code-room. word, no more profiling stubs
parent
aa5334420c
commit
5a1cb3f81e
|
@ -1,5 +1,5 @@
|
||||||
USING: arrays math memory namespaces parser sequences tools.memory
|
USING: arrays assocs kernel math memory namespaces parser sequences
|
||||||
tools.memory.private tools.test tools.time ;
|
tools.memory tools.memory.private tools.test tools.time ;
|
||||||
IN: tools.memory.tests
|
IN: tools.memory.tests
|
||||||
|
|
||||||
{ } [ room. ] unit-test
|
{ } [ room. ] unit-test
|
||||||
|
@ -15,3 +15,14 @@ IN: tools.memory.tests
|
||||||
[ "resource:basis/tools/memory/memory.factor" run-file ] time
|
[ "resource:basis/tools/memory/memory.factor" run-file ] time
|
||||||
gc-events get [ space-reclaimed 0 < ] any?
|
gc-events get [ space-reclaimed 0 < ] any?
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
{ +pic+ } [
|
||||||
|
2 code-block-type
|
||||||
|
] unit-test
|
||||||
|
|
||||||
|
{ t t t } [
|
||||||
|
get-code-blocks code-block-stats nip
|
||||||
|
[ +unoptimized+ of 0 > ]
|
||||||
|
[ +optimized+ of 0 > ]
|
||||||
|
[ +pic+ of 0 > ] tri
|
||||||
|
] unit-test
|
||||||
|
|
|
@ -203,7 +203,7 @@ SYMBOL: gc-events
|
||||||
{ "Data compaction time:" [ PHASE-DATA-COMPACTION sum-phase-times ] }
|
{ "Data compaction time:" [ PHASE-DATA-COMPACTION sum-phase-times ] }
|
||||||
} object-table. ;
|
} object-table. ;
|
||||||
|
|
||||||
SINGLETONS: +unoptimized+ +optimized+ +profiling+ +pic+ ;
|
SINGLETONS: +unoptimized+ +optimized+ +pic+ ;
|
||||||
|
|
||||||
TUPLE: code-block
|
TUPLE: code-block
|
||||||
{ owner read-only }
|
{ owner read-only }
|
||||||
|
@ -218,7 +218,7 @@ TUPLE: code-blocks { blocks groups } { cache hashtable } ;
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
: code-block-type ( n -- type )
|
: code-block-type ( n -- type )
|
||||||
{ +unoptimized+ +optimized+ +profiling+ +pic+ } nth ;
|
{ +unoptimized+ +optimized+ +pic+ } nth ;
|
||||||
|
|
||||||
: <code-block> ( seq -- code-block )
|
: <code-block> ( seq -- code-block )
|
||||||
6 firstn-unsafe {
|
6 firstn-unsafe {
|
||||||
|
@ -290,7 +290,6 @@ INSTANCE: code-blocks immutable-sequence
|
||||||
{ "Optimized code:" +optimized+ }
|
{ "Optimized code:" +optimized+ }
|
||||||
{ "Unoptimized code:" +unoptimized+ }
|
{ "Unoptimized code:" +unoptimized+ }
|
||||||
{ "Inline caches:" +pic+ }
|
{ "Inline caches:" +pic+ }
|
||||||
{ "Profiling stubs:" +profiling+ }
|
|
||||||
}
|
}
|
||||||
] 2dip '[ _ _ code-block-table-row ] { } assoc>map
|
] 2dip '[ _ _ code-block-table-row ] { } assoc>map
|
||||||
simple-table. ;
|
simple-table. ;
|
||||||
|
|
Loading…
Reference in New Issue