From faef0fb092115ac6153362f07e338220ca4da8fd Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Wed, 4 Jan 2017 15:54:21 -0500
Subject: [PATCH] Fix for __newindex metamethod.

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

diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index 51c60024..f411c439 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -791,7 +791,7 @@ static void build_subroutines(BuildCtx *ctx)
   |3:  // Call __newindex metamethod.
   |  // BASE = base, L->top = new base, stack = cont/func/t/k/(v)
   |  lg RA, L:RB->top
-  |  stg PC, -24(PC)			// [cont|PC]
+  |  stg PC, -24(RA)			// [cont|PC]
   |  llgc RC, PC_RA
   |  // Copy value to third argument.
   |  sllg RB, RC, 3(r0)