bootstrap.ppc: untested fix for #1319 for ppc

2015-05-22 17:16:00 +02:00 · 2015-05-22 17:16:00 +02:00 · fa190a8329
parent 8e1f3a0e51
commit fa190a8329
1 changed files with 7 additions and 3 deletions
--- a/basis/bootstrap/assembler/ppc.factor
+++ b/basis/bootstrap/assembler/ppc.factor
@ -828,12 +828,16 @@ IN: bootstrap.ppc
 ] \ (set-context-and-delete) define-sub-primitive

 : jit-start-context-and-delete ( -- )
-    jit-load-context
+    jit-save-context
+
    3 vm-reg MR
    "reset_context" jit-call
-    jit-pop-quot-and-param
+
    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 ;

 [