From 17d45689c9c82bafdc1cd59f779ace5841ca8b96 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 4 Jan 2006 11:18:45 +0000
Subject: [PATCH] fix non-GMP bugs

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1496 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/arith1.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C/arith1.c b/C/arith1.c
index 569749113..8d1b9dad6 100644
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -52,9 +52,10 @@ float_to_int(Float v, union arith_ret *o)
 }
 #define RBIG_FL(v)  return(float_to_int(v,o))
 #else
-#define RBIG_FL(v)  (o)->Int = (Int)v; return long_int_e)
+#define RBIG_FL(v)  ((o)->Int = (Int)v; return long_int_e)
 #endif
 
+#if USE_GMP
 static void
 process_iso_error(MP_INT *big, Term t, char *operation)
 { /* iso */
@@ -71,7 +72,7 @@ process_iso_error(MP_INT *big, Term t, char *operation)
     P = (yamop *)FAILCODE;
   }
 }
-
+#endif
 
 inline static Functor
 AritFunctorOfTerm(Term t) {