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

help to make Yap work with dynamic libs

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1638 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-05-19 13:48:11 +00:00
parent f9987d9fe9
commit 871bb9e024
21 changed files with 446 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/corout.c
View File

@@ -198,6 +198,8 @@ static int can_unify_complex(register CELL *pt0,
if (IsExtensionFunctor(f)) {
switch((CELL)f) {
case (CELL)FunctorDBRef:
case (CELL)FunctorIntArray:
case (CELL)FunctorDoubleArray:
if (d0 == d1) continue;
goto comparison_failed;
case (CELL)FunctorLongInt:
@@ -337,7 +339,9 @@ can_unify(Term t1, Term t2, Term *Vars)
if (IsExtensionFunctor(f)) {
switch((CELL)f) {
case (CELL)FunctorDBRef:
if (t1 == t2) return(FALSE);
case (CELL)FunctorIntArray:
case (CELL)FunctorDoubleArray:
if (t1 == t2) return FALSE;
return FALSE;
case (CELL)FunctorLongInt:
if (RepAppl(t1)[1] == RepAppl(t2)[1]) return(TRUE);