From c674dd91019dd7b5aba202ee77d2b10acb1dd25e Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 29 Aug 2008 17:52:43 -0500 Subject: [PATCH] Regression: insufficient compiled usage recorded --- basis/compiler/tree/cleanup/cleanup.factor | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/basis/compiler/tree/cleanup/cleanup.factor b/basis/compiler/tree/cleanup/cleanup.factor index c62c12eeef..003bd1cc69 100644 --- a/basis/compiler/tree/cleanup/cleanup.factor +++ b/basis/compiler/tree/cleanup/cleanup.factor @@ -51,9 +51,11 @@ GENERIC: cleanup* ( node -- node/nodes ) tri prefix ; : cleanup-inlining ( #call -- nodes ) - [ dup method>> [ drop ] [ word>> +inlined+ depends-on ] if ] - [ body>> cleanup ] - bi ; + [ + dup method>> + [ method>> dup word? [ +called+ depends-on ] [ drop ] if ] + [ word>> +inlined+ depends-on ] if + ] [ body>> cleanup ] bi ; ! Removing overflow checks : no-overflow-variant ( op -- fast-op )