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

fix (??) X^N, N< 0. When does this make sense?

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-07 23:42:16 -04:00
parent 21fa27526c
commit e4fdf5a1ff
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/arith2.c
View File

@ -633,9 +633,13 @@ p_exp(Term t1, Term t2)
Int i2 = IntegerOfTerm(t2); Int i2 = IntegerOfTerm(t2);
Int pow = ipow(i1,i2); Int pow = ipow(i1,i2);
if (i2 < 0) {
Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, t2,
"%d ^ %d", i1, i2);
}
#ifdef USE_GMP #ifdef USE_GMP
/* two integers */ /* two integers */
if (i1 && !pow) { if ((i1 && !pow)) {
/* overflow */ /* overflow */
return Yap_gmp_exp_ints(i1, i2); return Yap_gmp_exp_ints(i1, i2);
} }