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

fix -(2<<100).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2236 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-05-13 10:37:27 +00:00
parent 897224b36e
commit a25234a2da
5 changed files with 20 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
C/arith1.c
View File

@@ -217,7 +217,7 @@ p_uminus(Term t E_ARGS)
{
MP_INT *new = TMP_BIG();
MPZ_SET(new, Yap_BigIntOfTerm(t));
mpz_init_set(new, Yap_BigIntOfTerm(t));
mpz_neg(new, new);
RBIG(new);
}
@@ -233,9 +233,14 @@ p_uminus(Term t E_ARGS)
RFLOAT(-v.dbl);
#ifdef USE_GMP
case big_int_e:
mpz_neg(v.big, v.big);
fprintf(stderr,"Here I am %p\n", v.big);
RBIG(v.big);
{
MP_INT *new = TMP_BIG();
mpz_init_set(new, v.big);
mpz_neg(new, new);
mpz_clear(v.big);
RBIG(new);
}
#endif
default:
/* Error */
@@ -378,6 +383,7 @@ p_log(Term t E_ARGS)
dbl = v.dbl;
break;
#ifdef USE_GMP
case big_int_e:
dbl = mpz_get_d(v.big);
mpz_clear(v.big);
break;