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, gc may be called when executing a dynamic goal,
check PP to avoid deadlock check PP to avoid deadlock
*/ */
PredEntry *ap = cl->ClPred; PredEntry *ap = indx->ClPred;
if (ap != PP) if (ap != PP)
LOCK(ap->PELock); LOCK(ap->PELock);
#endif #endif

5
C/tracer.c
View File

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