Better inlining for both-fixnums?
parent
a2404fad94
commit
bda8b2dda6
basis/compiler/tree
cleanup
propagation/known-words
|
@ -510,3 +510,8 @@ cell-bits 32 = [
|
|||
[ { array } declare 2 <groups> [ . . ] assoc-each ]
|
||||
\ nth-unsafe inlined?
|
||||
] unit-test
|
||||
|
||||
[ t ] [
|
||||
[ { fixnum fixnum } declare = ]
|
||||
\ both-fixnums? inlined?
|
||||
] unit-test
|
|
@ -199,8 +199,11 @@ generic-comparison-ops [
|
|||
] "outputs" set-word-prop
|
||||
|
||||
\ both-fixnums? [
|
||||
[ class>> fixnum classes-intersect? not ] either?
|
||||
f <literal-info> object-info ?
|
||||
[ class>> ] bi@ {
|
||||
{ [ 2dup [ fixnum classes-intersect? not ] either? ] [ f <literal-info> ] }
|
||||
{ [ 2dup [ fixnum class<= ] both? ] [ t <literal-info> ] }
|
||||
[ object-info ]
|
||||
} cond 2nip
|
||||
] "outputs" set-word-prop
|
||||
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue