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

Fix jit-dispatch on x86-64; was broken on windows

db4
Slava Pestov 2008-12-15 20:55:24 -06:00
parent 53e3568fa3
commit 5a45119252
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/cpu/x86/bootstrap.factor
View File

@ -79,9 +79,10 @@ big-endian off
! compute quotation location ! compute quotation location
temp0 temp1 ADD temp0 temp1 ADD
! load quotation ! load quotation
temp0 temp0 array-start-offset [+] MOV arg temp0 array-start-offset [+] MOV
! execute branch ! execute branch. the quot must be in arg, since it might
temp0 quot-xt-offset [+] JMP ! not be compiled yet
arg quot-xt-offset [+] JMP
] rc-absolute-cell rt-immediate 1 rex-length + jit-dispatch jit-define ] rc-absolute-cell rt-immediate 1 rex-length + jit-dispatch jit-define
: jit->r ( -- ) : jit->r ( -- )