From 5dec8c22116cb5fab7c7549930dee75c16ee2403 Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Fri, 6 Jan 2017 13:53:31 -0500
Subject: [PATCH] Fix vm_tsetr (needed by table.remove).

The A argument was being loaded as 2-bytes instead of 1.
---
 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 a9bc10df..8fa928b7 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -815,7 +815,7 @@ static void build_subroutines(BuildCtx *ctx)
   |  brasl r14, extern lj_tab_setinth  // (lua_State *L, GCtab *t, int32_t key)
   |  // TValue * returned in r2 (CRET1).
   |  lgr RC, CRET1
-  |  llgh RA, PC_RA
+  |  llgc RA, PC_RA
   |  lgr BASE, RB			// Restore BASE.
   |  j ->BC_TSETR_Z
   |