cpu.x86: don't clobber src in %dispatch
parent
b61b47922f
commit
fc6c9e2dfd
|
@ -29,10 +29,10 @@ M: x86.32 temp-reg-2 EDX ;
|
||||||
|
|
||||||
M:: x86.32 %dispatch ( src temp -- )
|
M:: x86.32 %dispatch ( src temp -- )
|
||||||
! Load jump table base.
|
! Load jump table base.
|
||||||
src HEX: ffffffff ADD
|
temp src HEX: ffffffff [+] LEA
|
||||||
0 rc-absolute-cell rel-here
|
0 rc-absolute-cell rel-here
|
||||||
! Go
|
! Go
|
||||||
src HEX: 7f [+] JMP
|
temp HEX: 7f [+] JMP
|
||||||
! Fix up the displacement above
|
! Fix up the displacement above
|
||||||
cell code-alignment
|
cell code-alignment
|
||||||
[ 7 + building get dup pop* push ]
|
[ 7 + building get dup pop* push ]
|
||||||
|
|
|
@ -27,8 +27,8 @@ M:: x86.64 %dispatch ( src temp -- )
|
||||||
temp HEX: ffffffff MOV
|
temp HEX: ffffffff MOV
|
||||||
0 rc-absolute-cell rel-here
|
0 rc-absolute-cell rel-here
|
||||||
! Add jump table base
|
! Add jump table base
|
||||||
src temp ADD
|
temp src ADD
|
||||||
src HEX: 7f [+] JMP
|
temp HEX: 7f [+] JMP
|
||||||
! Fix up the displacement above
|
! Fix up the displacement above
|
||||||
cell code-alignment
|
cell code-alignment
|
||||||
[ 15 + building get dup pop* push ]
|
[ 15 + building get dup pop* push ]
|
||||||
|
|
Loading…
Reference in New Issue