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

make sure to reset state after error.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-20 00:33:36 +01:00
parent a837a303d4
commit bf0844a2a0
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/arith2.c
View File

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

1
C/eval.c
View File

@ -437,6 +437,7 @@ Yap_EvalError(yap_error_number type, Term where, char *format,...)
va_list ap;
if (LOCAL_ArithError) {
LOCAL_ArithError = YAP_NO_ERROR;
return Yap_Error( LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage);
}