fix unify_with_occurs_check/2
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1730 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
ac8590d1f6
commit
7ddb9f5c97
@ -109,7 +109,7 @@ loop:
|
|||||||
derefa_body(d0, ptd0, rtree_loop_unk, rtree_loop_nvar);
|
derefa_body(d0, ptd0, rtree_loop_unk, rtree_loop_nvar);
|
||||||
}
|
}
|
||||||
/* Do we still have compound terms to visit */
|
/* Do we still have compound terms to visit */
|
||||||
if (to_visit > to_visit0) {
|
if (to_visit < to_visit0) {
|
||||||
pt0 = to_visit[0];
|
pt0 = to_visit[0];
|
||||||
pt0_end = to_visit[1];
|
pt0_end = to_visit[1];
|
||||||
*pt0 = (CELL)to_visit[2];
|
*pt0 = (CELL)to_visit[2];
|
||||||
@ -120,7 +120,7 @@ loop:
|
|||||||
|
|
||||||
cufail:
|
cufail:
|
||||||
/* we found an infinite term */
|
/* we found an infinite term */
|
||||||
while (to_visit > to_visit) {
|
while (to_visit < to_visit0) {
|
||||||
CELL *pt0;
|
CELL *pt0;
|
||||||
pt0 = to_visit[0];
|
pt0 = to_visit[0];
|
||||||
*pt0 = (CELL)to_visit[2];
|
*pt0 = (CELL)to_visit[2];
|
||||||
|
@ -16,6 +16,7 @@
|
|||||||
|
|
||||||
<h2>Yap-5.1.2:</h2>
|
<h2>Yap-5.1.2:</h2>
|
||||||
<ul>
|
<ul>
|
||||||
|
<li> NEW: unify_with_occurs_check was very broken (obs from Aline Paes).</li>
|
||||||
<li> NEW: partial support for UNICODE.</li>
|
<li> NEW: partial support for UNICODE.</li>
|
||||||
<li> FIXED: ÿ has ISO-LATIN1 code 255, so it would be confused with EOF
|
<li> FIXED: ÿ has ISO-LATIN1 code 255, so it would be confused with EOF
|
||||||
(obs from Miguel Filgueiras).</li>
|
(obs from Miguel Filgueiras).</li>
|
||||||
|
Reference in New Issue
Block a user