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

64 bit cleanups.

Browse Source
This commit is contained in:
Vítor Santos Costa
2010-05-06 15:00:44 +01:00
parent c074076e89
commit 11641c5f94
15 changed files with 132 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/utilpreds.c
View File

@@ -71,8 +71,6 @@ 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)
{
@@ -92,7 +90,6 @@ 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);
@@ -144,7 +141,6 @@ 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;