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

getting better

Browse Source
This commit is contained in:
Vitor Santos Costa 2019-05-25 11:19:29 +01:00
parent 60adbb9a75
commit 8f8da92603
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C/write.c
View File

@ -431,9 +431,10 @@ static inline bool was_visited(Term t, wglbs *wg, Term *ta ) {
return true;
}
}
*ta = *tp;
wg->visited[0] = *tp;
*tp = MkAtomTerm( (Atom)wg->visited );
wg->visited_top++;
wg->visited++;
return false;
}
@ -441,7 +442,7 @@ static inline bool was_visited(Term t, wglbs *wg, Term *ta ) {
static inline Term visited_indirection(Term t, wglbs *wg ) {
Term *tp = (CELL *)AtomOfTerm(t);
if (tp >= wg->visited0
&& (CELL *) *tp < wg->visited_top)
&& (CELL *) tp < wg->visited_top)
return *tp;
return 0;
}
@ -875,11 +876,16 @@ if ((was_visited(t, wglb, &hot))) {
lastw = separator;
}
} else { /* compound term */
Functor functor = FunctorOfTerm(t);
Functor functor;
int Arity;
Atom atom;
int op, lp, rp;
Term argf;
if (was_visited(t, wglb, &argf)) {
return;
}
functor = (Functor)argf;
if (IsExtensionFunctor(functor)) {
switch ((CELL)functor) {
case (CELL)FunctorDouble:
@ -936,10 +942,6 @@ if ((was_visited(t, wglb, &hot))) {
return;
}
}
Term argf;
if (was_visited(t, wglb, &argf)) {
return;
}
if (!wglb->Ignore_ops && Arity == 1 && Yap_IsPrefixOp(atom, &op, &rp)) {
Term tright = ArgOfTerm(1, t);