compiler.cfg.builder: safepoint loops and epilogs

diff --git a/basis/compiler/cfg/builder/builder.factor b/basis/compiler/cfg/builder/builder.factor
index 60f6f0acbfa8e762cd5601225db45625c9e29513..627eeafac22f93d93f9687f163096ea6de468186 100644 (file)
--- a/basis/compiler/cfg/builder/builder.factor
+++ b/basis/compiler/cfg/builder/builder.factor
@@ -75,6 +75,7 @@ GENERIC: emit-node ( node -- )
     ] keep ;
 
 : emit-loop-call ( basic-block -- )
+    ##safepoint
     ##branch
     basic-block get successors>> push
     end-basic-block ;
@@ -101,6 +102,7 @@ GENERIC: emit-node ( node -- )
     basic-block get swap loops get set-at ;
 
 : emit-loop ( node -- )
+    ##safepoint
     ##branch
     begin-basic-block
     [ label>> id>> remember-loop ] [ child>> emit-nodes ] bi ;
@@ -202,6 +204,7 @@ M: #shuffle emit-node
     ##branch
     begin-basic-block
     make-kill-block
+    ##safepoint
     ##epilogue
     ##return ;