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

compiler.cfg.builder: safepoint loops and epilogs

db4
Joe Groff 2011-10-19 10:35:33 -07:00
parent 0c022f2454
commit e449fef4e3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/compiler/cfg/builder/builder.factor
View File

@ -75,6 +75,7 @@ GENERIC: emit-node ( node -- )
] keep ; ] keep ;
: emit-loop-call ( basic-block -- ) : emit-loop-call ( basic-block -- )
##safepoint
##branch ##branch
basic-block get successors>> push basic-block get successors>> push
end-basic-block ; end-basic-block ;
@ -101,6 +102,7 @@ GENERIC: emit-node ( node -- )
basic-block get swap loops get set-at ; basic-block get swap loops get set-at ;
: emit-loop ( node -- ) : emit-loop ( node -- )
##safepoint
##branch ##branch
begin-basic-block begin-basic-block
[ label>> id>> remember-loop ] [ child>> emit-nodes ] bi ; [ label>> id>> remember-loop ] [ child>> emit-nodes ] bi ;
@ -202,6 +204,7 @@ M: #shuffle emit-node
##branch ##branch
begin-basic-block begin-basic-block
make-kill-block make-kill-block
##safepoint
##epilogue ##epilogue
##return ; ##return ;