ifix Yap_op_names
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1341 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
b5d57af1ee
commit
6d34ce46f3
10
C/heapgc.c
10
C/heapgc.c
@ -1722,6 +1722,7 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose)
|
|||||||
if (very_verbose) {
|
if (very_verbose) {
|
||||||
PredEntry *pe = Yap_PredForChoicePt(gc_B);
|
PredEntry *pe = Yap_PredForChoicePt(gc_B);
|
||||||
|
|
||||||
|
#if defined(ANALYST) || defined(DEBUG)
|
||||||
if (pe == NULL) {
|
if (pe == NULL) {
|
||||||
fprintf(Yap_stderr,"%% marked %ld (%s)\n", total_marked, Yap_op_names[opnum]);
|
fprintf(Yap_stderr,"%% marked %ld (%s)\n", total_marked, Yap_op_names[opnum]);
|
||||||
} else if (pe->ArityOfPE) {
|
} else if (pe->ArityOfPE) {
|
||||||
@ -1729,6 +1730,15 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose)
|
|||||||
} else {
|
} else {
|
||||||
fprintf(Yap_stderr,"%% %s marked %ld (%s)\n", RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, total_marked, Yap_op_names[opnum]);
|
fprintf(Yap_stderr,"%% %s marked %ld (%s)\n", RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, total_marked, Yap_op_names[opnum]);
|
||||||
}
|
}
|
||||||
|
#else
|
||||||
|
if (pe == NULL) {
|
||||||
|
fprintf(Yap_stderr,"%% marked %ld (%u)\n", total_marked, (unsigned int)opnum);
|
||||||
|
} else if (pe->ArityOfPE) {
|
||||||
|
fprintf(Yap_stderr,"%% %s/%d marked %ld (%u)\n", RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, total_marked, (unsigned int)opnum);
|
||||||
|
} else {
|
||||||
|
fprintf(Yap_stderr,"%% %s marked %ld (%u)\n", RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, total_marked, (unsigned int)opnum);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
}
|
}
|
||||||
{
|
{
|
||||||
/* find out how many cells are still alive in the trail */
|
/* find out how many cells are still alive in the trail */
|
||||||
|
Reference in New Issue
Block a user