cpu.x86.bootstrap: add safepoint to jit-epilog
parent
98fa51f0e0
commit
4be5eadb34
|
@ -359,6 +359,9 @@ IN: bootstrap.x86
|
|||
EAX EDX [] MOV
|
||||
jit-jump-quot ;
|
||||
|
||||
: jit-safepoint ( -- )
|
||||
0 [] EAX MOV rc-absolute rel-safepoint ;
|
||||
|
||||
[
|
||||
jit-start-context-and-delete
|
||||
] \ (start-context-and-delete) define-sub-primitive
|
||||
|
|
|
@ -313,6 +313,9 @@ IN: bootstrap.x86
|
|||
jit-push-param
|
||||
jit-jump-quot ;
|
||||
|
||||
: jit-safepoint ( -- )
|
||||
0 [RIP+] EAX MOV rc-relative rel-safepoint ;
|
||||
|
||||
[
|
||||
jit-start-context-and-delete
|
||||
] \ (start-context-and-delete) define-sub-primitive
|
||||
|
|
|
@ -198,6 +198,7 @@ big-endian off
|
|||
] jit-execute jit-define
|
||||
|
||||
[
|
||||
jit-safepoint
|
||||
stack-reg stack-frame-size bootstrap-cell - ADD
|
||||
] jit-epilog jit-define
|
||||
|
||||
|
|
Loading…
Reference in New Issue