diogo/yap-6.3
Archiviert
1
0
Fork 0
Code Issues Pull-Requests Pakete Projekte Releases Wiki Aktivität

don't complain big int in arg/3

Quellcode durchsuchen
Dieser Commit ist enthalten in:
Vítor Santos Costa 2014-02-14 22:47:16 +00:00
Ursprung 625c66015d
Commit e52d8f7d7e
2 geänderte Dateien mit 6 neuen und 1 gelöschten Zeilen
Statistiken anzeigen Patch-Datei herunterladen Vergleichs-Datei herunterladen Alle Dateien ausklappen Alle Dateien einklappen

4
C/absmi.c
Datei anzeigen

@ -11964,6 +11964,8 @@ Yap_absmi(int inp)
else if (IsLongIntTerm(d0)) {
d0 = LongIntOfTerm(d0);
} else {
if (IsBigIntTerm( d0 ))
FAIL();
saveregs();
Yap_Error(TYPE_ERROR_INTEGER,d0,"arg 1 of arg/3");
setregs();
@ -12151,6 +12153,8 @@ Yap_absmi(int inp)
else if (IsLongIntTerm(d0)) {
d0 = LongIntOfTerm(d0);
} else {
if (IsBigIntTerm( d0 ))
FAIL();
saveregs();
Yap_Error(TYPE_ERROR_INTEGER,d0,"arg 1 of arg/3");
setregs();

3
C/inlines.c
Datei anzeigen

@ -508,7 +508,8 @@ p_arg( USES_REGS1 )
else if (IsLongIntTerm(d0)) {
d0 = LongIntOfTerm(d0);
} else {
Yap_Error(TYPE_ERROR_INTEGER,d0,"arg 1 of arg/3");
if (!IsBigIntTerm( d0 ))
Yap_Error(TYPE_ERROR_INTEGER,d0,"arg 1 of arg/3");
return(FALSE);
}