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

fix stream is not an atom (Ulrich).

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-03-01 22:03:41 +00:00
parent 67cd8b303e
commit 45baf800dd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/absmi.c
View File

@ -8562,7 +8562,7 @@ Yap_absmi(int inp)
d0 = XREG(PREG->u.xl.x); d0 = XREG(PREG->u.xl.x);
deref_head(d0, atom_x_unk); deref_head(d0, atom_x_unk);
atom_x_nvar: atom_x_nvar:
if (IsAtomTerm(d0)) { if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) {
PREG = NEXTOP(PREG, xl); PREG = NEXTOP(PREG, xl);
GONext(); GONext();
} }
@ -8586,7 +8586,7 @@ Yap_absmi(int inp)
d0 = *pt0; d0 = *pt0;
deref_head(d0, atom_y_unk); deref_head(d0, atom_y_unk);
atom_y_nvar: atom_y_nvar:
if (IsAtomTerm(d0)) { if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) {
PREG = NEXTOP(PREG, yl); PREG = NEXTOP(PREG, yl);
GONext(); GONext();
} }

2
C/inlines.c
View File

@ -47,7 +47,7 @@ p_atom( USES_REGS1 )
d0 = ARG1; d0 = ARG1;
deref_head(d0, atom_unk); deref_head(d0, atom_unk);
atom_nvar: atom_nvar:
if (IsAtomTerm(d0)) { if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) {
return(TRUE); return(TRUE);
} }
else { else {