cpu.x86: remove useless crap from c-to-factor sub-primitive
parent
ce42aea6a4
commit
8f0487f1c3
|
@ -91,21 +91,11 @@ IN: bootstrap.x86
|
|||
jit-load-context
|
||||
jit-restore-context
|
||||
|
||||
! save C callstack pointer
|
||||
ctx-reg context-callstack-save-offset [+] ESP MOV
|
||||
|
||||
! load Factor callstack pointer
|
||||
ESP ctx-reg context-callstack-bottom-offset [+] MOV
|
||||
ESP 4 ADD
|
||||
|
||||
jit-call-quot
|
||||
|
||||
jit-load-vm
|
||||
jit-save-context
|
||||
|
||||
! load C callstack pointer
|
||||
ESP ctx-reg context-callstack-save-offset [+] MOV
|
||||
|
||||
ESP [] vm-reg MOV
|
||||
"end_callback" jit-call
|
||||
] \ c-to-factor define-sub-primitive
|
||||
|
|
|
@ -82,22 +82,12 @@ IN: bootstrap.x86
|
|||
|
||||
jit-restore-context
|
||||
|
||||
! save C callstack pointer
|
||||
ctx-reg context-callstack-save-offset [+] stack-reg MOV
|
||||
|
||||
! load Factor callstack pointer
|
||||
stack-reg ctx-reg context-callstack-bottom-offset [+] MOV
|
||||
stack-reg 8 ADD
|
||||
|
||||
! call the quotation
|
||||
arg1 nv-reg MOV
|
||||
jit-call-quot
|
||||
|
||||
jit-save-context
|
||||
|
||||
! load C callstack pointer
|
||||
stack-reg ctx-reg context-callstack-save-offset [+] MOV
|
||||
|
||||
arg1 vm-reg MOV
|
||||
"end_callback" jit-call
|
||||
] \ c-to-factor define-sub-primitive
|
||||
|
|
Loading…
Reference in New Issue