From 722b798507cf9d85bd2ff52db007d721b65ea5ac Mon Sep 17 00:00:00 2001 From: vsc Date: Fri, 3 May 2002 18:15:37 +0000 Subject: [PATCH] move tabling gc code to tabling git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@461 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/heapgc.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C/heapgc.c b/C/heapgc.c index 9e1a370fb..42ea848cc 100644 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -1381,7 +1381,6 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose) YP_fprintf(YP_stderr,"[GC] %s/%d marked %d (%s)\n", RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, total_marked, op_names[opnum]); } break; -#endif case _trie_retry_var: case _trie_trust_var: case _trie_retry_val: @@ -1394,6 +1393,7 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose) case _trie_trust_struct: YP_fprintf(YP_stderr,"[GC] marked %d (%s)\n", total_marked, op_names[opnum]); break; +#endif default: { PredEntry *pe = (PredEntry *)gc_B->cp_ap->u.ld.p;