compiler.tree.propagation.transforms: fix rem and mod custom inlining
parent
7a4ab74703
commit
3a0ffceed9
|
@ -24,7 +24,7 @@ IN: compiler.tree.propagation.transforms
|
|||
] "custom-inlining" set-word-prop
|
||||
|
||||
: rem-custom-inlining ( inputs -- quot/f )
|
||||
dup first value-info class integer class<= [
|
||||
dup first value-info class>> integer class<= [
|
||||
second value-info literal>> dup integer?
|
||||
[ power-of-2? [ 1 - bitand ] f ? ] [ drop f ] if
|
||||
] [ drop f ] if ;
|
||||
|
|
Loading…
Reference in New Issue