From 7f4fcf12168dbd5c7674669b0856018d132211b0 Mon Sep 17 00:00:00 2001
From: bellard <bellard>
Date: Sun, 17 Mar 2002 11:32:48 +0000
Subject: [PATCH] added tcc finite math function to avoid portability problems

---
 tcc.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/tcc.c b/tcc.c
index 3d8048fa..7ed803f6 100644
--- a/tcc.c
+++ b/tcc.c
@@ -672,6 +672,15 @@ unsigned long long __ldtoull(long double a)
 
 /********************************************************/
 
+/* we use our own 'finite' function to avoid potential problems with
+   non standard math libs */
+/* XXX: endianness dependant */
+int ieee_finite(double d)
+{
+    int *p = (int *)&d;
+    return ((unsigned)((p[1] | 0x800fffff) + 1)) >> 31;
+}
+
 /* copy a string and truncate it. */
 char *pstrcpy(char *buf, int buf_size, const char *s)
 {
@@ -3107,7 +3116,7 @@ void gen_opif(int op)
 
         /* NOTE: we only do constant propagation if finite number (not
            NaN or infinity) (ANSI spec) */
-        if (!finite(f1) || !finite(f2))
+        if (!ieee_finite(f1) || !ieee_finite(f2))
             goto general_case;
 
         switch(op) {