Tweak inlining heuristic

2008-12-05 01:50:14 -06:00 · 2008-12-05 01:50:14 -06:00 · 6c7005d588
parent 0e0e79eb7e
commit 6c7005d588
1 changed files with 2 additions and 2 deletions
--- a/basis/compiler/tree/propagation/inlining/inlining.factor
+++ b/basis/compiler/tree/propagation/inlining/inlining.factor
@ -128,8 +128,8 @@ DEFER: (flat-length)
    45 node-count get [-] 8 /i ;

 : body-length-bias ( word -- n )
-    [ flat-length ] [ inlining-count get at 0 or 2/ 1+ ] bi *
-    24 swap [-] 4 /i ;
+    [ flat-length ] [ inlining-count get at 0 or ] bi
+    over 2 <= [ drop ] [ 2/ 1+ * ] if 24 swap [-] 4 /i ;

 : inlining-rank ( #call word -- n )
    [ classes-known? 2 0 ? ]