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;
}
} else if (setjres != 0) {
printf("at %d\n", vsc_index);
if (!Yap_growheap(FALSE, Yap_Error_Size, NULL)) {
Yap_Error(SYSTEM_ERROR, TermNil, Yap_ErrorMessage);
return FAILCODE;
@ -4364,16 +4363,10 @@ pop_path(path_stack_entry **spp, ClauseDef *clp, PredEntry *ap)
clp->Tag = sp->u.pce.tag;
if (sp->u.pce.pi_pc == NULL) {
*spp = sp;
if (Yap_Option['i' - 'a' + 1]) {
printf("%p\n", sp);
}
return NULL;
}
nipc = *(sp->u.pce.pi_pc);
*spp = cross_block(sp, sp->u.pce.pi_pc, ap);
if (Yap_Option['i' - 'a' + 1]) {
printf("%p\n",*spp);
}
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;
/* extern int gc_calls; */
#if THREADS
LOCK(heap_regs->low_level_trace_lock);
if (thread_trace &&
worker_id +1 != thread_trace) {
UNLOCK(heap_regs->low_level_trace_lock);
return;
}
#endif
vsc_count++;
#ifdef COMMENTED
// if (vsc_count == 218280)