cpu.x86: don't have to pass VM pointer to quotations anymore
parent
47c6197799
commit
9508a5a083
|
@ -237,7 +237,6 @@ M: x86.32 %alien-indirect ( -- )
|
||||||
M: x86.32 %alien-callback ( quot -- )
|
M: x86.32 %alien-callback ( quot -- )
|
||||||
EAX EDX %restore-context
|
EAX EDX %restore-context
|
||||||
EAX swap %load-reference
|
EAX swap %load-reference
|
||||||
EDX %mov-vm-ptr
|
|
||||||
EAX quot-xt-offset [+] CALL
|
EAX quot-xt-offset [+] CALL
|
||||||
EAX EDX %save-context ;
|
EAX EDX %save-context ;
|
||||||
|
|
||||||
|
|
|
@ -225,7 +225,6 @@ M: x86.64 %alien-indirect ( -- )
|
||||||
M: x86.64 %alien-callback ( quot -- )
|
M: x86.64 %alien-callback ( quot -- )
|
||||||
param-reg-0 param-reg-1 %restore-context
|
param-reg-0 param-reg-1 %restore-context
|
||||||
param-reg-0 swap %load-reference
|
param-reg-0 swap %load-reference
|
||||||
param-reg-1 %mov-vm-ptr
|
|
||||||
param-reg-0 quot-xt-offset [+] CALL
|
param-reg-0 quot-xt-offset [+] CALL
|
||||||
param-reg-0 param-reg-1 %save-context ;
|
param-reg-0 param-reg-1 %save-context ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue