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

fix recordifnot

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@336 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-30 00:26:43 +00:00
parent 28128ed29c
commit e5022b9c2a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/dbase.c
View File

@ -379,10 +379,10 @@ static CELL *linkcells(register CELL *to, Int n)
static Int cmpclls(CELL *a,CELL *b,Int n) static Int cmpclls(CELL *a,CELL *b,Int n)
{ {
while (n-- >= 0) while (n-- > 0) {
if(*a++ != *b++) return 0; if(*a++ != *b++) return FALSE;
}
return 1; return TRUE;
} }
int DBTrailOverflow(void) int DBTrailOverflow(void)
@ -1103,7 +1103,7 @@ check_if_wvars(DBRef p, unsigned int NOfCells, CELL *BTptr)
p = NextDBRef(p); p = NextDBRef(p);
if (p == NIL) if (p == NIL)
return (p); return (p);
memptr = CellPtr(p->Contents); memptr = CellPtr(&(p->Contents));
if (NOfCells == p->NOfCells if (NOfCells == p->NOfCells
&& cmpclls(memptr, BTptr, NOfCells)) && cmpclls(memptr, BTptr, NOfCells))
return (p); return (p);
@ -1120,7 +1120,7 @@ scheckcells(int NOfCells, register CELL *m1, register CELL *m2, link_entry *lp,
CELL base = Unsigned(m1 + 1); CELL base = Unsigned(m1 + 1);
link_entry *lp1; link_entry *lp1;
while (NOfCells-- >= 0) { while (NOfCells-- > 0) {
Register CELL r1, r2; Register CELL r1, r2;
r1 = *m1++; r1 = *m1++;