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

issue #358: code-blocks -> get-code-blocks

db4
Doug Coleman 2012-06-21 00:00:51 -07:00
parent 1c3deddf61
commit 9275e88eff
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -247,12 +247,12 @@ M: code-blocks nth-unsafe
INSTANCE: code-blocks immutable-sequence INSTANCE: code-blocks immutable-sequence
: code-blocks ( -- blocks ) : get-code-blocks ( -- blocks )
(code-blocks) <code-blocks> ; (code-blocks) <code-blocks> ;
: with-code-blocks ( quot -- ) : with-code-blocks ( quot -- )
[ [
code-blocks get-code-blocks
[ \ code-blocks set ] [ \ code-blocks set ]
[ first entry-point>> code-heap-start set ] [ first entry-point>> code-heap-start set ]
[ last [ entry-point>> ] [ size>> ] bi + code-heap-end set ] tri [ last [ entry-point>> ] [ size>> ] bi + code-heap-end set ] tri
@ -294,7 +294,7 @@ PRIVATE>
: code-room. ( -- ) : code-room. ( -- )
"== Code heap ==" print nl "== Code heap ==" print nl
code-room mark-sweep-table. nl code-room mark-sweep-table. nl
code-blocks code-block-stats code-block-table. ; get-code-blocks code-block-stats code-block-table. ;
: room. ( -- ) : room. ( -- )
data-room. nl code-room. ; data-room. nl code-room. ;