From 86e5e57f4c5410be60b4969b4868be7ff059c474 Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Tue, 3 Jan 2017 16:44:36 -0500
Subject: [PATCH] Add emptystr implementation and stub out co-routine
 functions.

---
 src/vm_s390x.dasc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index b987766b..ef5420f0 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -1358,12 +1358,16 @@ static void build_subroutines(BuildCtx *ctx)
   |.else
   |.ffunc coroutine_wrap_aux
   |.endif
+  |  stg r0, 0(r0)
+  |  stg r0, 0(r0)
   |.endmacro
   |
   |  coroutine_resume_wrap 1		// coroutine.resume
   |  coroutine_resume_wrap 0		// coroutine.wrap
   |
   |.ffunc coroutine_yield
+  |  stg r0, 0(r0)
+  |  stg r0, 0(r0)
   |
   |//-- Math library -------------------------------------------------------
   |
@@ -1600,7 +1604,8 @@ static void build_subroutines(BuildCtx *ctx)
   |  j <3
   |
   |->fff_emptystr:  // Range underflow.
-  |  stg r0, 0(r0)
+  |  lghi RD, 0
+  |  j <3
   |
   |.macro ffstring_op, name
   |  .ffunc_1 string_ .. name