steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Tweak inlining heuristic

db4
Slava Pestov 2008-12-05 01:50:14 -06:00
parent 0e0e79eb7e
commit 6c7005d588
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/tree/propagation/inlining/inlining.factor
View File

@ -128,8 +128,8 @@ DEFER: (flat-length)
45 node-count get [-] 8 /i ; 45 node-count get [-] 8 /i ;
: body-length-bias ( word -- n ) : body-length-bias ( word -- n )
[ flat-length ] [ inlining-count get at 0 or 2/ 1+ ] bi * [ flat-length ] [ inlining-count get at 0 or ] bi
24 swap [-] 4 /i ; over 2 <= [ drop ] [ 2/ 1+ * ] if 24 swap [-] 4 /i ;
: inlining-rank ( #call word -- n ) : inlining-rank ( #call word -- n )
[ classes-known? 2 0 ? ] [ classes-known? 2 0 ? ]