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

tools.memory: fix code-room. word, no more profiling stubs

char-rename
Björn Lindqvist 2016-12-09 11:37:37 +01:00
parent aa5334420c
commit 5a1cb3f81e
2 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/tools/memory/memory-tests.factor
View File

@ -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

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

@ -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. ;