From 72b6bef19d0166983581ff1f4fe5c2784619b74e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 30 Jun 2009 23:03:25 -0500 Subject: [PATCH] compiler.cfg.builder: emit less crap after a #terminate node --- basis/compiler/cfg/builder/builder.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/compiler/cfg/builder/builder.factor b/basis/compiler/cfg/builder/builder.factor index 7b7adf848e..8cf141f3f4 100755 --- a/basis/compiler/cfg/builder/builder.factor +++ b/basis/compiler/cfg/builder/builder.factor @@ -67,14 +67,14 @@ GENERIC: emit-node ( node -- ) ] with-variable ] keep ; -: local-recursive-call ( basic-block -- ) +: emit-loop-call ( basic-block -- ) ##branch basic-block get successors>> push basic-block off ; : emit-call ( word -- ) dup loops get key? - [ loops get at local-recursive-call ] + [ loops get at emit-loop-call ] [ ##call ##branch begin-basic-block ] if ; @@ -177,7 +177,7 @@ M: #return-recursive emit-node [ ##epilogue ##return ] unless ; ! #terminate -M: #terminate emit-node drop ##no-tco ; +M: #terminate emit-node drop ##no-tco basic-block off ; ! FFI : return-size ( ctype -- n )