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

On second thought, linearization will be done after SSA destruction so live-in is accurate

db4
Slava Pestov 2009-05-29 05:45:40 -05:00
parent 743550f19c
commit 280736ab00
1 changed files with 5 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
basis/compiler/cfg/linearization/linearization.factor
View File

@ -13,37 +13,19 @@ IN: compiler.cfg.linearization
GENERIC: linearize-insn ( basic-block insn -- ) GENERIC: linearize-insn ( basic-block insn -- )
: linearize-insns ( bb insns -- ) : linearize-insns ( bb insns -- )
[ linearize-insn ] with each ; dup instructions>> [ linearize-insn ] with each ;
: gc? ( bb -- ? ) : gc? ( bb -- ? )
instructions>> [ ##allocation? ] any? ; instructions>> [ ##allocation? ] any? ;
: object-pointer-regs ( basic-block -- vregs ) : object-pointer-regs ( basic-block -- vregs )
live-out keys [ reg-class>> int-regs eq? ] filter ; live-in keys [ reg-class>> int-regs eq? ] filter ;
: gc-check-position ( insns -- n )
#! We want to insert the GC check before the final branch in a basic block.
#! If there is a ##epilogue or ##loop-entry we want to insert it before that too.
dup length
dup 2 >= [
2 - swap nth [ ##loop-entry? ] [ ##epilogue? ] bi or
2 1 ?
] [ 2drop 1 ] if ;
: linearize-basic-block/gc ( bb -- )
dup instructions>> dup gc-check-position
[ head* linearize-insns ]
[ 2drop object-pointer-regs _gc ]
[ tail* linearize-insns ]
3tri ;
: linearize-basic-block ( bb -- ) : linearize-basic-block ( bb -- )
[ number>> _label ] [ number>> _label ]
[ [ dup gc? [ object-pointer-regs _gc ] [ drop ] if ]
dup gc? [ linearize-insns ]
[ linearize-basic-block/gc ] tri ;
[ dup instructions>> linearize-insns ] if
] bi ;
M: insn linearize-insn , drop ; M: insn linearize-insn , drop ;