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

debugging leftovers

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1011 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-02-29 01:40:51 +00:00
parent 01dec70e0a
commit 4eeceb6549
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/index.c
View File

@ -3408,7 +3408,6 @@ Yap_PredIsIndexable(PredEntry *ap)
return FAILCODE; return FAILCODE;
} }
} else if (setjres != 0) { } else if (setjres != 0) {
printf("at %d\n", vsc_index);
if (!Yap_growheap(FALSE, Yap_Error_Size, NULL)) { if (!Yap_growheap(FALSE, Yap_Error_Size, NULL)) {
Yap_Error(SYSTEM_ERROR, TermNil, Yap_ErrorMessage); Yap_Error(SYSTEM_ERROR, TermNil, Yap_ErrorMessage);
return FAILCODE; return FAILCODE;
@ -4364,16 +4363,10 @@ pop_path(path_stack_entry **spp, ClauseDef *clp, PredEntry *ap)
clp->Tag = sp->u.pce.tag; clp->Tag = sp->u.pce.tag;
if (sp->u.pce.pi_pc == NULL) { if (sp->u.pce.pi_pc == NULL) {
*spp = sp; *spp = sp;
if (Yap_Option['i' - 'a' + 1]) {
printf("%p\n", sp);
}
return NULL; return NULL;
} }
nipc = *(sp->u.pce.pi_pc); nipc = *(sp->u.pce.pi_pc);
*spp = cross_block(sp, sp->u.pce.pi_pc, ap); *spp = cross_block(sp, sp->u.pce.pi_pc, ap);
if (Yap_Option['i' - 'a' + 1]) {
printf("%p\n",*spp);
}
return nipc; return nipc;
} }

2
C/tracer.c
View File

@ -118,12 +118,14 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
Int arity; Int arity;
/* extern int gc_calls; */ /* extern int gc_calls; */
#if THREADS
LOCK(heap_regs->low_level_trace_lock); LOCK(heap_regs->low_level_trace_lock);
if (thread_trace && if (thread_trace &&
worker_id +1 != thread_trace) { worker_id +1 != thread_trace) {
UNLOCK(heap_regs->low_level_trace_lock); UNLOCK(heap_regs->low_level_trace_lock);
return; return;
} }
#endif
vsc_count++; vsc_count++;
#ifdef COMMENTED #ifdef COMMENTED
// if (vsc_count == 218280) // if (vsc_count == 218280)