From b5aa0d077c62d9cf8b7db2c31aa8d9f116e87ab8 Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Tue, 20 Dec 2016 17:26:33 -0500
Subject: [PATCH] Fix bug in division.

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

diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index 83c26dba..0f538d08 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -722,6 +722,7 @@ static void build_subroutines(BuildCtx *ctx)
   |  lay RB, 0(RB, BASE)
   |  lay RC, 0(RC, BASE)
   |1:
+  |  llgc RA, PC_RA
   |  sllg RA, RA, 3(r0)
   |  lay RA, 0(RA, BASE)
   |  llgc CARG5, PC_OP			// Caveat: CARG5 == RD.