diff --git a/C/absmi.c b/C/absmi.c index b13cb6e86..f01b2b1a6 100644 --- a/C/absmi.c +++ b/C/absmi.c @@ -4737,8 +4737,8 @@ absmi(int inp) ENDD(d0); if (mpz_cmp(BigIntOfTerm(d0),BigIntOfTerm(PREG->u.oc.c))) FAIL(); -#endif PREG = NEXTOP(PREG, oc); +#endif #ifdef USE_GMP ENDP(pt0); #endif @@ -4784,8 +4784,8 @@ absmi(int inp) ENDD(d0); if (mpz_cmp(BigIntOfTerm(d0),BigIntOfTerm(PREG->u.oc.c))) FAIL(); -#endif PREG = NEXTOP(PREG, oc); +#endif #ifdef USE_GMP ENDP(pt0); #endif diff --git a/C/iopreds.c b/C/iopreds.c index a38888b8c..538d13142 100644 --- a/C/iopreds.c +++ b/C/iopreds.c @@ -2899,16 +2899,12 @@ p_read (void) if (ErrorMessage) { Error(SYNTAX_ERROR,syntax_error(tokstart),ErrorMessage); return(FALSE); + } else if (parser_error_style == FAIL_ON_PARSER_ERROR) { + return (FALSE); } else { Error(SYNTAX_ERROR,syntax_error(tokstart),"SYNTAX ERROR"); return(FALSE); } - if (parser_error_style == FAIL_ON_PARSER_ERROR) { - return (FALSE); - } else if (parser_error_style == EXCEPTION_ON_PARSER_ERROR) { - Error(SYSTEM_ERROR,TermNil,NULL); - return(FALSE); - } } else { /* parsing succeeded */ break;