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

cpu.x86.bootstrap: add safepoint to jit-epilog

db4
Joe Groff 2011-10-17 15:26:06 -07:00
parent 98fa51f0e0
commit 4be5eadb34
3 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/cpu/x86/32/bootstrap.factor
View File

@ -359,6 +359,9 @@ IN: bootstrap.x86
EAX EDX [] MOV EAX EDX [] MOV
jit-jump-quot ; jit-jump-quot ;
: jit-safepoint ( -- )
0 [] EAX MOV rc-absolute rel-safepoint ;
[ [
jit-start-context-and-delete jit-start-context-and-delete
] \ (start-context-and-delete) define-sub-primitive ] \ (start-context-and-delete) define-sub-primitive

3
basis/cpu/x86/64/bootstrap.factor
View File

@ -313,6 +313,9 @@ IN: bootstrap.x86
jit-push-param jit-push-param
jit-jump-quot ; jit-jump-quot ;
: jit-safepoint ( -- )
0 [RIP+] EAX MOV rc-relative rel-safepoint ;
[ [
jit-start-context-and-delete jit-start-context-and-delete
] \ (start-context-and-delete) define-sub-primitive ] \ (start-context-and-delete) define-sub-primitive

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

@ -198,6 +198,7 @@ big-endian off
] jit-execute jit-define ] jit-execute jit-define
[ [
jit-safepoint
stack-reg stack-frame-size bootstrap-cell - ADD stack-reg stack-frame-size bootstrap-cell - ADD
] jit-epilog jit-define ] jit-epilog jit-define