From 2bdf3fcd505f5f97ebfa32973b09f3c37d2d3cfa Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Tue, 14 Sep 2010 01:20:01 +0200
Subject: [PATCH] PPC: Fix KBASE restore in BC_CALLT.

---
 src/buildvm_ppc.dasc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/buildvm_ppc.dasc b/src/buildvm_ppc.dasc
index e5ad8c46..56372527 100644
--- a/src/buildvm_ppc.dasc
+++ b/src/buildvm_ppc.dasc
@@ -2068,7 +2068,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
     |  lwz INS, -4(TMP1)
     |  decode_RA8 RA, INS
     |  sub TMP1, BASE, RA
-    |  lwz LFUNC:TMP1, FRAME_FUNC(TMP1)
+    |  lwz LFUNC:TMP1, FRAME_FUNC-8(TMP1)
     |  lwz TMP1, LFUNC:TMP1->pc
     |  lwz KBASE, PC2PROTO(k)(TMP1)	// Need to prepare KBASE.
     |  b <4