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

fix bb entries

Browse Source 
comment development code for timestamp overflow.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1703 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-10-11 15:08:03 +00:00
parent d3dab0f5a1
commit 230c812a76
3 changed files with 19 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/dbase.c
View File

@@ -1808,12 +1808,14 @@ new_lu_db_entry(Term t, PredEntry *pe)
cl->ClPrev = cl->ClNext = NULL;
cl->ClSize = ((CODEADDR)&(x->Contents)-(CODEADDR)cl)+x->NOfCells*sizeof(CELL);
/* Support for timestamps */
if (pe->LastCallOfPred != LUCALL_ASSERT) {
if (pe && pe->LastCallOfPred != LUCALL_ASSERT) {
++pe->TimeStampOfPred;
/* fprintf(stderr,"+ %x--%d--%ul\n",pe,pe->TimeStampOfPred,pe->ArityOfPE);*/
pe->LastCallOfPred = LUCALL_ASSERT;
cl->ClTimeStart = pe->TimeStampOfPred;
} else {
cl->ClTimeStart = 0L;
}
cl->ClTimeStart = pe->TimeStampOfPred;
cl->ClTimeEnd = ~0L;
#if defined(YAPOR) || defined(THREADS)
INIT_LOCK(cl->ClLock);