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

bootstrap.ppc: untested fix for #1319 for ppc

db4
Björn Lindqvist 2015-05-22 17:16:00 +02:00 committed by Doug Coleman
parent 8e1f3a0e51
commit fa190a8329
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/bootstrap/assembler/ppc.factor
View File

@ -828,12 +828,16 @@ IN: bootstrap.ppc
] \ (set-context-and-delete) define-sub-primitive ] \ (set-context-and-delete) define-sub-primitive
: jit-start-context-and-delete ( -- ) : jit-start-context-and-delete ( -- )
jit-load-context jit-save-context
3 vm-reg MR 3 vm-reg MR
"reset_context" jit-call "reset_context" jit-call
jit-pop-quot-and-param
ctx-reg jit-switch-context ctx-reg jit-switch-context
jit-push-param
! Pops the quotation from the stack and puts it in register 3
3 ds-reg 0 jit-load-cell
ds-reg ds-reg cell-size SUBI
jit-jump-quot ; jit-jump-quot ;
[ [