From fa190a8329f9d8bec8ee1148af73a3bc5033cd44 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Fri, 22 May 2015 17:16:00 +0200
Subject: [PATCH] bootstrap.ppc: untested fix for #1319 for ppc
---
basis/bootstrap/assembler/ppc.factor | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/basis/bootstrap/assembler/ppc.factor b/basis/bootstrap/assembler/ppc.factor
index 469bd0e9e8..f05e4abdbb 100644
--- 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 ;
[