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

fix dereferecing in unify

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@574 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-08-18 23:16:44 +00:00
parent 8d1582433a
commit 9e38e88084
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/unify.c
View File

@ -175,8 +175,8 @@ OCUnify_complex(register CELL *pt0, register CELL *pt0_end,
to_visit[1] = pt0_end; to_visit[1] = pt0_end;
to_visit[2] = pt1; to_visit[2] = pt1;
/* we want unification of rational trees to fail */ /* we want unification of rational trees to fail */
to_visit[3] = (CELL *)d0; to_visit[3] = (CELL *)*pt0;
to_visit[4] = (CELL *)d1; to_visit[4] = (CELL *)*pt1;
to_visit += 5; to_visit += 5;
*pt0 = TermFoundVar; *pt0 = TermFoundVar;
*pt1 = TermFoundVar; *pt1 = TermFoundVar;
@ -225,8 +225,8 @@ OCUnify_complex(register CELL *pt0, register CELL *pt0_end,
to_visit[0] = pt0; to_visit[0] = pt0;
to_visit[1] = pt0_end; to_visit[1] = pt0_end;
to_visit[2] = pt1; to_visit[2] = pt1;
to_visit[3] = (CELL *)d0; to_visit[3] = (CELL *)*pt0;
to_visit[4] = (CELL *)d1; to_visit[4] = (CELL *)*pt1;
to_visit += 5; to_visit += 5;
*pt0 = TermFoundVar; *pt0 = TermFoundVar;
*pt1 = TermFoundVar; *pt1 = TermFoundVar;