From 3355fa480993e19a68686f622f5767cedd20b72f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 30 Jun 2009 18:11:45 -0500 Subject: [PATCH] compiler.cfg.stack-analysis: enable global optimization --- basis/compiler/cfg/stack-analysis/stack-analysis.factor | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/basis/compiler/cfg/stack-analysis/stack-analysis.factor b/basis/compiler/cfg/stack-analysis/stack-analysis.factor index 5679d8bd11..1e7f33c7e0 100644 --- a/basis/compiler/cfg/stack-analysis/stack-analysis.factor +++ b/basis/compiler/cfg/stack-analysis/stack-analysis.factor @@ -59,17 +59,12 @@ UNION: sync-if-back-edge ##dispatch ##loop-entry ; -SYMBOL: local-only? - -t local-only? set-global - : back-edge? ( from to -- ? ) [ number>> ] bi@ > ; : sync-state? ( -- ? ) basic-block get successors>> - [ [ predecessors>> ] keep '[ _ back-edge? ] any? ] any? - local-only? get or ; + [ [ predecessors>> ] keep '[ _ back-edge? ] any? ] any? ; M: sync-if-back-edge visit sync-state? [ sync-state ] when , ;