cpu.x86.bootstrap: Rice the jit compiler -- SHR SHL -> AND.
parent
34aab78998
commit
4ee63bea7e
|
@ -4,7 +4,7 @@ USING: bootstrap.image.private compiler.constants
|
||||||
compiler.codegen.relocation compiler.units cpu.x86.assembler
|
compiler.codegen.relocation compiler.units cpu.x86.assembler
|
||||||
cpu.x86.assembler.operands kernel kernel.private layouts
|
cpu.x86.assembler.operands kernel kernel.private layouts
|
||||||
locals locals.backend make math math.private namespaces sequences
|
locals locals.backend make math math.private namespaces sequences
|
||||||
slots.private strings.private vocabs ;
|
slots.private strings.private vocabs math.bitwise ;
|
||||||
IN: bootstrap.x86
|
IN: bootstrap.x86
|
||||||
|
|
||||||
big-endian off
|
big-endian off
|
||||||
|
@ -341,8 +341,7 @@ big-endian off
|
||||||
! turn slot number into offset
|
! turn slot number into offset
|
||||||
fixnum>slot@
|
fixnum>slot@
|
||||||
! mask off tag
|
! mask off tag
|
||||||
temp1 tag-bits get SHR
|
temp1 tag-bits get on-bits bitnot AND
|
||||||
temp1 tag-bits get SHL
|
|
||||||
! load slot value
|
! load slot value
|
||||||
temp0 temp1 temp0 [+] MOV
|
temp0 temp1 temp0 [+] MOV
|
||||||
! push to stack
|
! push to stack
|
||||||
|
|
Loading…
Reference in New Issue