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

make clp(bn) work again.

Browse Source
This commit is contained in:
Vitor Santos Costa
2010-06-30 17:54:58 +02:00
parent 8f8ba6221e
commit 8690fb8ca0
4 changed files with 36 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
C/attvar.c
View File

@@ -859,15 +859,19 @@ p_swi_all_atts(void) {
return Yap_unify(ARG2,TermNil);
while (!IsVarTerm(tatt)) {
Functor f = FunctorOfTerm(tatt);
UInt ar = ArityOfFunctor(f);
if (ArityOfFunctor(f) == 2) {
if (H != h0)
H[-1] = AbsAppl(H);
H[0] = (CELL) attf;
H[1] = MkAtomTerm(NameOfFunctor(f));
H[2] = ArgOfTerm(2,tatt);
H+=4;
}
if (H != h0)
H[-1] = AbsAppl(H);
H[0] = (CELL) attf;
H[1] = MkAtomTerm(NameOfFunctor(f));
/* SWI */
if (ar == 2)
H[2] = ArgOfTerm(2,tatt);
else
H[2] = tatt;
H += 4;
H[-1] = AbsAppl(H);
tatt = ArgOfTerm(1,tatt);
}
if (h0 != H) {