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

fix sub_atom, by Paulo Moura.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-22 16:22:38 +01:00
parent 61f5baf7a4
commit 1c3c0c6301
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/atomic.c
View File

@ -1831,6 +1831,10 @@ init_sub_atomic( int sub_atom USES_REGS )
return FALSE;
} else {
min = IntegerOfTerm(tbef);
if ((Int)min < 0) {
Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, tbef, "sub_string/5");
return FALSE;
};
mask |= SUB_ATOM_HAS_MIN;
bnds++;
}
@ -1841,6 +1845,10 @@ init_sub_atomic( int sub_atom USES_REGS )
return FALSE;
} else {
len = IntegerOfTerm(tsize);
if ((Int)len < 0) {
Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, tsize, "sub_string/5");
return FALSE;
};
mask |= SUB_ATOM_HAS_SIZE;
bnds++;
}
@ -1851,6 +1859,10 @@ init_sub_atomic( int sub_atom USES_REGS )
return FALSE;
} else {
after = IntegerOfTerm(tafter);
if ((Int)after < 0) {
Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, tafter, "sub_string/5");
return FALSE;
};
mask |= SUB_ATOM_HAS_AFTER;
bnds++;
}