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

oops

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2061 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-01-24 22:47:14 +00:00
parent 82508f287b
commit fd6b87e5cf
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/heapgc.c
View File

@ -2410,7 +2410,7 @@ sweep_trail(choiceptr gc_B, tr_fr_ptr old_TR)
gc may be called when executing a dynamic goal,
check PP to avoid deadlock
*/
PredEntry *ap = cl->ClPred;
PredEntry *ap = indx->ClPred;
if (ap != PP)
LOCK(ap->PELock);
#endif

5
C/tracer.c
View File

@ -150,6 +150,8 @@ check_area(void)
}
*/
PredEntry *old_p = NULL;
void
low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
{
@ -161,7 +163,8 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
LOCK(Yap_heap_regs->low_level_trace_lock);
sc = Yap_heap_regs;
vsc_count++;
if (FALSE && vsc_count < 59800LL) {
old_p = pred;
if (LCL0[-30]) {
UNLOCK(Yap_heap_regs->low_level_trace_lock);
return;
}