From cf39051162767a36567cffefa4a6e121e3518b63 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Fri, 2 May 2014 01:44:07 +0100 Subject: [PATCH] fix gcc complaint. --- H/amiops.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/H/amiops.h b/H/amiops.h index 4ebf11302..4486529d0 100644 --- a/H/amiops.h +++ b/H/amiops.h @@ -373,21 +373,21 @@ Yap_unify_constant(register Term a, register Term cons) return(FALSE); if (IsExtensionFunctor(f)) { switch((CELL)f) { - case (CELL)FunctorDBRef: + case db_ref_e: return(a == cons); - case (CELL)FunctorLongInt: + case long_int_e: { CELL d0 = RepAppl(a)[1]; CELL d1 = RepAppl(cons)[1]; return d0 == d1; } - case (CELL)FunctorDouble: + case double_e: { Float d0 = FloatOfTerm(a); Float d1 = FloatOfTerm(cons); return d0 == d1; } - case (CELL)FunctorBigInt: + case big_int_e: #ifdef USE_GMP return (Yap_gmp_tcmp_big_big(a, cons) == 0); #endif /* USE_GMP */