fix sse register issue
parent
f339de61a5
commit
95b908479e
|
@ -23,9 +23,12 @@ M: int-regs return-reg drop RAX ;
|
||||||
|
|
||||||
M: int-regs fastcall-regs drop { RDI RSI RDX RCX R8 R9 } ;
|
M: int-regs fastcall-regs drop { RDI RSI RDX RCX R8 R9 } ;
|
||||||
|
|
||||||
|
: reset-sse RAX RAX XOR ;
|
||||||
|
|
||||||
: compile-c-call ( symbol dll -- )
|
: compile-c-call ( symbol dll -- )
|
||||||
2dup dlsym 0 scratch swap MOV
|
reset-sse
|
||||||
rel-absolute-cell rel-dlsym 0 scratch CALL ;
|
2dup dlsym 1 scratch swap MOV
|
||||||
|
rel-absolute-cell rel-dlsym 1 scratch CALL ;
|
||||||
|
|
||||||
: compile-c-call* ( symbol dll args -- )
|
: compile-c-call* ( symbol dll args -- )
|
||||||
T{ int-regs } fastcall-regs
|
T{ int-regs } fastcall-regs
|
||||||
|
|
Loading…
Reference in New Issue