From 8f5efb2c436373680385bb246b860a1cddde5f22 Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Tue, 5 Oct 2010 19:37:56 +0200
Subject: PPC: Use own implementation for math.floor/ceil() fast functions.

---
 src/buildvm_ppc.dasc | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/src/buildvm_ppc.dasc b/src/buildvm_ppc.dasc
index 373492e2..d36cdeda 100644
--- a/src/buildvm_ppc.dasc
+++ b/src/buildvm_ppc.dasc
@@ -1267,8 +1267,23 @@ static void build_subroutines(BuildCtx *ctx)
   |  b ->fff_restv
   |.endmacro
   |
-  |  math_extern floor
-  |  math_extern ceil
+  |.macro math_round, func
+  |  .ffunc math_ .. func
+  |  cmplwi NARGS8:RC, 8
+  |   evldd CARG2, 0(BASE)
+  |  blt ->fff_fallback
+  |  checknum CARG2
+  |   evmergehi CARG1, CARG2, CARG2
+  |  checkfail ->fff_fallback
+  |   lwz PC, FRAME_PC(BASE)
+  |  bl ->vm_..func.._hilo;
+  |  la RA, -8(BASE)
+  |  evstdd CRET2, 0(RA)
+  |  b ->fff_res1
+  |.endmacro
+  |
+  |  math_round floor
+  |  math_round ceil
   |
   |  math_extern sqrt
   |  math_extern log
-- 
cgit v1.2.3-55-g6feb