diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

undo stasinos' changes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@378 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-26 17:48:14 +00:00
parent 97ea77853e
commit 78b05ee716
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/cdmgr.c
View File

@ -1876,12 +1876,12 @@ do_toggle_static_predicates_in_use(int mask)
YP_fprintf(YP_stderr,"ENV %p %s/%d %s\n", env_ptr, RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, op_names[op]); YP_fprintf(YP_stderr,"ENV %p %s/%d %s\n", env_ptr, RepAtom(NameOfFunctor(pe->FunctorOfPred))->StrOfAE, pe->ArityOfPE, op_names[op]);
else else
YP_fprintf(YP_stderr,"ENV %p %s %s\n", env_ptr, RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, op_names[op]); YP_fprintf(YP_stderr,"ENV %p %s %s\n", env_ptr, RepAtom((Atom)(pe->FunctorOfPred))->StrOfAE, op_names[op]);
if (env_ptr == (CELL *)0x21d0b24) { if (env_ptr == 0x21d0b24) {
CELL *next_ee = (CELL *)(env_ptr[E_E]); CELL *next_ee = (CELL *)(env_ptr[E_E]);
do { 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])); 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]); next_ee = (CELL *)(next_ee[E_E]);
} while (next_ee != (CELL *)0x21d0f28); } while (next_ee != 0x21d0f28);
} }
mark_pred(mask, pe); mark_pred(mask, pe);