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

fix unreachable code

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@503 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-05-28 17:27:27 +00:00
parent c360c44a11
commit 02a3bcec93
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/absmi.c
View File

@ -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

8
C/iopreds.c
View File

@ -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;