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

fix stupid use of ++ within macro.

Browse Source
This commit is contained in:
Vítor Santos Costa II 2010-03-15 16:20:47 +00:00
parent 4e052ba822
commit 3c67550975
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/utilpreds.c
View File

@ -71,6 +71,7 @@ clean_dirty_tr(tr_fr_ptr TR0) {
}
}
int show;
static int
copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf, CELL *HLow)
@ -91,6 +92,7 @@ copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf,
register CELL d0;
register CELL *ptd0;
++ pt0;
if (show) fprintf(stderr,"pt0=%p\n",pt0);
ptd0 = pt0;
d0 = *ptd0;
deref_head(d0, copy_term_unk);
@ -142,6 +144,7 @@ copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf,
register CELL *ap2;
/* store the terms to visit */
ap2 = RepAppl(d0);
if (show) fprintf(stderr,"d0=%lx %p %lx\n",d0,ap2,*ap2);
if (ap2 >= HB && ap2 <= H) {
/* If this is newer than the current term, just reuse */
*ptf++ = d0;
@ -275,7 +278,8 @@ copy_complex_term(CELL *pt0, CELL *pt0_end, int share, int newattvs, CELL *ptf,
goto trail_overflow;
}
}
Bind(ptd0, (CELL)ptf++);
Bind(ptd0, (CELL)ptf);
ptf++;
#ifdef COROUTINING
}
#endif