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

Regression: insufficient compiled usage recorded

db4
Slava Pestov 2008-08-29 17:52:43 -05:00
parent 1e69e739bf
commit c674dd9101
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/compiler/tree/cleanup/cleanup.factor
View File

@ -51,9 +51,11 @@ GENERIC: cleanup* ( node -- node/nodes )
tri prefix ; tri prefix ;
: cleanup-inlining ( #call -- nodes ) : cleanup-inlining ( #call -- nodes )
[ dup method>> [ drop ] [ word>> +inlined+ depends-on ] if ] [
[ body>> cleanup ] dup method>>
bi ; [ method>> dup word? [ +called+ depends-on ] [ drop ] if ]
[ word>> +inlined+ depends-on ] if
] [ body>> cleanup ] bi ;
! Removing overflow checks ! Removing overflow checks
: no-overflow-variant ( op -- fast-op ) : no-overflow-variant ( op -- fast-op )