From b5d57af1ee74dbaf42ecc33b08a88a7caf26526d Mon Sep 17 00:00:00 2001 From: vsc Date: Wed, 6 Jul 2005 17:54:40 +0000 Subject: [PATCH] avoid debug dependency git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1340 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/heapgc.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/C/heapgc.c b/C/heapgc.c index 022a5926b..9211617e8 100644 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -1470,7 +1470,11 @@ mark_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap) if (size < 0) { PredEntry *pe = EnvPreg(gc_ENV[E_CP]); op_numbers op = Yap_op_from_opcode(ENV_ToOp(gc_ENV[E_CP])); +#if defined(ANALYST) || defined(DEBUG) fprintf(Yap_stderr,"ENV %p-%p(%d) %s\n", gc_ENV, pvbmap, size-EnvSizeInCells, Yap_op_names[op]); +#else + fprintf(Yap_stderr,"ENV %p-%p(%d) %d\n", gc_ENV, pvbmap, size-EnvSizeInCells, (int)op); +#endif if (pe->ArityOfPE) fprintf(Yap_stderr," %s/%d\n", RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE); else