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

fix bug fix ;-).

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1717 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-11-10 11:42:42 +00:00
parent cbe55c9fbb
commit feca28c235
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/dbase.c
View File

@ -4125,11 +4125,8 @@ EraseLogUpdCl(LogUpdClause *clau)
ap->LastCallOfPred = LUCALL_RETRACT;
} else {
/* OK, there's noone left */
ap->TimeStampOfPred = 0L;
if (ap->cs.p_code.NOfClauses == 1) {
LogUpdClause *cl = ClauseCodeToLogUpdClause(ap->cs.p_code.FirstClause);
cl->ClTimeStart = 0;
cl->ClTimeEnd = ~0L;
if (ap->cs.p_code.NOfClauses == 0) {
ap->TimeStampOfPred = 0L;
}
/* fprintf(stderr,"- %x--%d--%ul\n",ap,ap->TimeStampOfPred,ap->ArityOfPE);*/
ap->LastCallOfPred = LUCALL_ASSERT;