From e611e1061aece3fd98806b0767429e2700e56367 Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Fri, 22 May 2009 19:09:18 -0500
Subject: [PATCH] 	fix annoying int cast problems (64 bit only)

---
 C/cmppreds.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/C/cmppreds.c b/C/cmppreds.c
index 52b1b1282..eb9e9ef89 100644
--- a/C/cmppreds.c
+++ b/C/cmppreds.c
@@ -511,13 +511,13 @@ p_compare(void)
   return Yap_unify_constant(ARG1, MkAtomTerm(p));
 }
 
-inline static int
+inline static Int
 int_cmp(Int dif)
 {
   return dif;
 }
 
-inline static int
+inline static Int
 flt_cmp(Float dif)
 {
   if (dif < 0.0)
@@ -528,7 +528,7 @@ flt_cmp(Float dif)
 }
 
 
-static inline int
+static inline Int
 a_cmp(Term t1, Term t2)
 {
   if (IsVarTerm(t1)) {
@@ -540,10 +540,10 @@ a_cmp(Term t1, Term t2)
     return FALSE;
   }
   if (IsFloatTerm(t1) && IsFloatTerm(t2)) {
-    return(flt_cmp(FloatOfTerm(t1)-FloatOfTerm(t2)));
+    return flt_cmp(FloatOfTerm(t1)-FloatOfTerm(t2));
   }
   if (IsIntegerTerm(t1) && IsIntegerTerm(t2)) {
-    return(int_cmp(IntegerOfTerm(t1)-IntegerOfTerm(t2)));
+    return int_cmp(IntegerOfTerm(t1)-IntegerOfTerm(t2));
   }
   t1 = Yap_Eval(t1);
   if (!t1) return FALSE;