From 49058f2b7228a57db0e7430e7030f8761c66d81f Mon Sep 17 00:00:00 2001 From: vsc Date: Tue, 26 Feb 2002 17:50:33 +0000 Subject: [PATCH] fix inconsistency git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@380 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/cdmgr.c | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/C/cdmgr.c b/C/cdmgr.c index b23fd24f0..5632ee5c1 100644 --- a/C/cdmgr.c +++ b/C/cdmgr.c @@ -1900,26 +1900,7 @@ do_toggle_static_predicates_in_use(int mask) while (b_ptr > (choiceptr)env_ptr) { PredEntry *pe = EnvPreg(env_ptr[E_CP]); -<<<<<<< cdmgr.c mark_pred(mask, pe); -======= - if (pe != NULL && FALSE) { - op_numbers op = op_from_opcode(ENV_ToOp(env_ptr[E_CP])); - if (pe->ArityOfPE) - YP_fprintf(YP_stderr,"ENV %p %s/%d %s\n", env_ptr, RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, op_names[op]); - else - YP_fprintf(YP_stderr,"ENV %p %s %s\n", env_ptr, RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, op_names[op]); - if (env_ptr == 0x21d0b24) { - CELL *next_ee = (CELL *)(env_ptr[E_E]); - do { - YP_fprintf(YP_stderr,"looking for parent %p with CP %x value %x\n", next_ee, next_ee[E_CP], EnvPreg(next_ee[E_CP])); - next_ee = (CELL *)(next_ee[E_E]); - } while (next_ee != 0x21d0f28); - } - - mark_pred(mask, pe); - } ->>>>>>> 1.22 env_ptr = (CELL *)(env_ptr[E_E]); } /* now mark the choicepoint */