From 2e05e7ca679366085fe3a2398e1e7679f7c342bd Mon Sep 17 00:00:00 2001
From: Michael Munday <munday@ca.ibm.com>
Date: Fri, 6 Jan 2017 11:16:33 -0500
Subject: [PATCH] Implement math.floor/math.ceil.

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

diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index 6b80f411..274ca11e 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -1611,6 +1611,15 @@ static void build_subroutines(BuildCtx *ctx)
   |
   |.macro math_round, func
   |  .ffunc math_ .. func
+  |  lg RB, 0(BASE)
+  |  ld f0, 0(BASE)
+  |  checknumx RB, ->fff_resRB, je
+  |  jh ->fff_fallback
+  |  brasl r14, ->vm_ .. func
+  |  cfdbr RB, 0, f0
+  |  jo ->fff_resf0
+  |  llgfr RB, RB
+  |  j ->fff_resi
   |.endmacro
   |
   |  math_round floor