From 3330f6adc27e489c18618ab2cab467679b3c1f19 Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Mon, 19 Dec 2016 10:49:21 -0500
Subject: [PATCH] Fix KSHORT destination slot address.

---
 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 0454e9c6..34e6843f 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -1197,7 +1197,7 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
     |  // Assumes DUALNUM.
     |  lhr RD, RD			// Sign-extend literal to 32-bits.
     |  setint RD
-    |  sllg TMPR1, RA, 3(r0)
+    |  sllg RA, RA, 3(r0)
     |  stg RD, 0(RA, BASE)
     |  ins_next
     break;