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

Better inlining for both-fixnums?

db4
Slava Pestov 2009-02-26 14:11:26 -06:00
parent a2404fad94
commit bda8b2dda6
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/tree/cleanup/cleanup-tests.factor
View File

@ -510,3 +510,8 @@ cell-bits 32 = [
[ { array } declare 2 <groups> [ . . ] assoc-each ] [ { array } declare 2 <groups> [ . . ] assoc-each ]
\ nth-unsafe inlined? \ nth-unsafe inlined?
] unit-test ] unit-test
[ t ] [
[ { fixnum fixnum } declare = ]
\ both-fixnums? inlined?
] unit-test

7
basis/compiler/tree/propagation/known-words/known-words.factor
View File

@ -199,8 +199,11 @@ generic-comparison-ops [
] "outputs" set-word-prop ] "outputs" set-word-prop
\ both-fixnums? [ \ both-fixnums? [
[ class>> fixnum classes-intersect? not ] either? [ class>> ] bi@ {
f <literal-info> object-info ? { [ 2dup [ fixnum classes-intersect? not ] either? ] [ f <literal-info> ] }
{ [ 2dup [ fixnum class<= ] both? ] [ t <literal-info> ] }
[ object-info ]
} cond 2nip
] "outputs" set-word-prop ] "outputs" set-word-prop
{ {