From 8002871619b21ac97673d50a46070d2f9338ea85 Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Thu, 9 Apr 2015 18:48:03 +0200
Subject: [PATCH] PPC: Fix write barrier in BC_TSETR.

Thanks to Gustavo Serra Scalet.
---
 src/vm_ppc.dasc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/vm_ppc.dasc b/src/vm_ppc.dasc
index 2a7a7455..8e5278af 100644
--- a/src/vm_ppc.dasc
+++ b/src/vm_ppc.dasc
@@ -4289,13 +4289,13 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
     |  lwz TAB:CARG2, 4(RB)
     |.if DUALNUM
     |  add RC, BASE, RC
-    |    lbz TMP3, TAB:RB->marked
+    |    lbz TMP3, TAB:CARG2->marked
     |  lwz TMP0, TAB:CARG2->asize
     |  lwz CARG3, 4(RC)
     |   lwz TMP1, TAB:CARG2->array
     |.else
     |  lfdx f0, BASE, RC
-    |    lbz TMP3, TAB:RB->marked
+    |    lbz TMP3, TAB:CARG2->marked
     |  lwz TMP0, TAB:CARG2->asize
     |  toint CARG3, f0
     |   lwz TMP1, TAB:CARG2->array