partial fix to predicate_property trouble (obs from Nicos).

fix core dump when writing arrays without bignum support.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2217 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-04-14 17:30:18 +00:00
parent 4677a5ba10
commit 3c3d0de2de
3 changed files with 18 additions and 5 deletions

View File

@@ -475,8 +475,8 @@ writeTerm(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb)
case (CELL)FunctorLongInt:
wrputn(LongIntOfTerm(t),wglb->writewch);
return;
#ifdef USE_GMP
case (CELL)FunctorBigInt:
#ifdef USE_GMP
{
MP_INT *big = Yap_BigIntOfTerm(t);
char *s = (char *)TR;
@@ -498,8 +498,12 @@ writeTerm(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb)
mpz_get_str(s, 10, big);
wrputs(s,wglb->writewch);
}
return;
#else
{
wrputs("0",wglb->writewch);
}
#endif
return;
}
}
Arity = ArityOfFunctor(functor);