From 21073df0dcf364810197b45843c23b4fc02e8ebd Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Fri, 30 Dec 2016 12:27:08 -0500
Subject: [PATCH] Add FORL implementation (just fallthrough).

---
 src/vm_s390x.dasc | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index 2db41239..8e02c79d 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -3146,8 +3146,10 @@ static void build_ins(BuildCtx *ctx, BCOp op, int defop)
   |.define FOR_EXT,  24(RA)
 
   case BC_FORL:
-    |  stg r0, 0(r0)
-    |  stg r0, 0(r0)
+    |.if JIT
+    |  hotloop RB
+    |.endif
+    | // Fall through. Assumes BC_IFORL follows and ins_AJ is a no-op.
     break;
 
   case BC_JFORI: