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
tools.memory.private tools.test tools.time ;
USING: arrays assocs kernel math memory namespaces parser sequences
tools.memory tools.memory.private tools.test tools.time ;
IN: tools.memory.tests
{ } [ room. ] unit-test
@ -15,3 +15,14 @@ IN: tools.memory.tests
[ "resource:basis/tools/memory/memory.factor" run-file ] time
gc-events get [ space-reclaimed 0 < ] any?
] 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 ] }
} object-table. ;
SINGLETONS: +unoptimized+ +optimized+ +profiling+ +pic+ ;
SINGLETONS: +unoptimized+ +optimized+ +pic+ ;
TUPLE: code-block
{ owner read-only }
@ -218,7 +218,7 @@ TUPLE: code-blocks { blocks groups } { cache hashtable } ;
<PRIVATE
: code-block-type ( n -- type )
{ +unoptimized+ +optimized+ +profiling+ +pic+ } nth ;
{ +unoptimized+ +optimized+ +pic+ } nth ;
: <code-block> ( seq -- code-block )
6 firstn-unsafe {
@ -290,7 +290,6 @@ INSTANCE: code-blocks immutable-sequence
{ "Optimized code:" +optimized+ }
{ "Unoptimized code:" +unoptimized+ }
{ "Inline caches:" +pic+ }
{ "Profiling stubs:" +profiling+ }
}
] 2dip '[ _ _ code-block-table-row ] { } assoc>map
simple-table. ;