diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make yap2swi compile without GMP (obs from Tony Wilson).

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-06-03 20:21:45 -05:00
parent b127d0c248
commit d42a2dc225
1 changed files with 2 additions and 0 deletions

2
library/yap2swi/yap2swi.c

@ -2198,6 +2198,7 @@ PL_eval_expression_to_int_64_ex(term_t t, int64_t *val)
if (IsIntegerTerm(res)) { if (IsIntegerTerm(res)) {
*val = IntegerOfTerm(res); *val = IntegerOfTerm(res);
return TRUE; return TRUE;
#if SIZEOF_LONG_INT==4 && USE_GMP
} else if (YAP_IsBigNumTerm(res)) { } else if (YAP_IsBigNumTerm(res)) {
MP_INT g; MP_INT g;
char s[64]; char s[64];
@ -2210,6 +2211,7 @@ PL_eval_expression_to_int_64_ex(term_t t, int64_t *val)
sscanf(s, "%lld", (long long int *)val); sscanf(s, "%lld", (long long int *)val);
return 1; return 1;
} }
#endif
PL_error(NULL,0,NULL, ERR_TYPE, AtomToSWIAtom(Yap_LookupAtom("integer_expression"))); PL_error(NULL,0,NULL, ERR_TYPE, AtomToSWIAtom(Yap_LookupAtom("integer_expression")));
return FALSE; return FALSE;
} }