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

fix sign problems with arrays

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-01-02 21:59:02 +00:00
parent 233829ec52
commit f3e5639439
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/arrays.c
View File

@ -708,8 +708,8 @@ ResizeStaticArray(StaticArrayEntry *pp, size_t dim USES_REGS)
{ {
statarray_elements old_v = pp->ValueOfVE; statarray_elements old_v = pp->ValueOfVE;
static_array_types type = pp->ArrayType; static_array_types type = pp->ArrayType;
Int old_dim = - pp->ArrayEArity; size_t old_dim = pp->ArrayEArity;
Int mindim = (dim < old_dim ? dim : old_dim), i; size_t mindim = (dim < old_dim ? dim : old_dim), i;
/* change official size */ /* change official size */
if (pp->ArrayEArity == 0){ if (pp->ArrayEArity == 0){
@ -773,7 +773,7 @@ ClearStaticArray(StaticArrayEntry *pp)
{ {
statarray_elements old_v = pp->ValueOfVE; statarray_elements old_v = pp->ValueOfVE;
static_array_types type = pp->ArrayType; static_array_types type = pp->ArrayType;
Int dim = - pp->ArrayEArity, i; Int dim = pp->ArrayEArity, i;
/* change official size */ /* change official size */
if (pp->ArrayEArity == 0){ if (pp->ArrayEArity == 0){
@ -2260,7 +2260,7 @@ p_static_array_to_term( USES_REGS1 )
return (FALSE); return (FALSE);
} else { } else {
static_array_types tp = pp->ArrayType; static_array_types tp = pp->ArrayType;
Int dim = -pp->ArrayEArity, indx; Int dim = pp->ArrayEArity, indx;
CELL *base; CELL *base;
while (H+1+dim > ASP-1024) { while (H+1+dim > ASP-1024) {