22 lines
668 B
Factor
22 lines
668 B
Factor
|
! Copyright (C) 2009 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors kernel sequences assocs
|
||
|
|
cpu.architecture compiler.cfg.rpo
|
||
|
|
compiler.cfg.liveness compiler.cfg.instructions ;
|
||
|
|
IN: compiler.cfg.gc-checks
|
||
|
|
|
||
|
|
: gc? ( bb -- ? )
|
||
|
|
instructions>> [ ##allocation? ] any? ;
|
||
|
|
|
||
|
|
: object-pointer-regs ( basic-block -- vregs )
|
||
|
|
live-in keys [ reg-class>> int-regs eq? ] filter ;
|
||
|
|
|
||
|
|
: insert-gc-check ( basic-block -- )
|
||
|
|
dup gc? [
|
||
|
|
dup
|
||
|
|
[ swap object-pointer-regs \ _gc new-insn suffix ]
|
||
|
|
change-instructions drop
|
||
|
|
] [ drop ] if ;
|
||
|
|
|
||
|
|
: insert-gc-checks ( cfg -- cfg' )
|
||
|
|
dup [ insert-gc-check ] each-basic-block ;
|