From e739ffedce75119c72f6e10c44c27976f16678c9 Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Tue, 3 Jan 2017 16:36:34 -0500
Subject: [PATCH] Implement string.byte and string.char.

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

diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index 4ecc8249..b987766b 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -1516,10 +1516,24 @@ static void build_subroutines(BuildCtx *ctx)
   |//-- String library -----------------------------------------------------
   |
   |.ffunc string_byte			// Only handle the 1-arg case here.
-  |  stg r0, 0(r0)
+  |  chi NARGS:RD, 1+1;  jne ->fff_fallback
+  |  lg STR:RB, 0(BASE)
+  |  checkstr STR:RB, ->fff_fallback
+  |  lg PC, -8(BASE)
+  |  ltg TMPR2, STR:RB->len
+  |  je ->fff_res0			// Return no results for empty string.
+  |  llgc RB, STR:RB[1]
+  |  j ->fff_resi
   |
   |.ffunc string_char			// Only handle the 1-arg case here.
-  |  stg r0, 0(r0)
+  |  ffgccheck
+  |  chi NARGS:RD, 1+1;  jne ->fff_fallback	// *Exactly* 1 arg.
+  |  lg RB, 0(BASE)
+  |  checkint RB, ->fff_fallback
+  |  clfi RB, 255;  jh ->fff_fallback
+  |  strvh RB, TMP_STACK		// Store [c,0].
+  |  lghi TMPR1, 1
+  |  la RD, TMP_STACK			// Points to stack. Little-endian.
   |->fff_newstr:
   |  lg L:RB, SAVE_L
   |  stg BASE, L:RB->base