MYDDAS is too closely integreated to be a package.

This commit is contained in:
Vitor Santos Costa 2009-02-16 17:15:21 +00:00
parent 0f58cf8029
commit e5d11cfa16
15 changed files with 4 additions and 3 deletions

View File

@ -882,12 +882,13 @@ c_eq(Term t1, Term t2, compiler_struct *cglobs)
c_var(t1, v, 0, 0, cglobs);
cglobs->onhead = FALSE;
} else {
c_var(t1, 0, 0, 0, cglobs);
Int v = --cglobs->tmpreg;
c_var(t1, v, 0, 0, cglobs);
cglobs->onhead = TRUE;
if (IsVarTerm(t2)) {
c_var(t2, 0, 0, 0, cglobs);
c_var(t2, v, 0, 0, cglobs);
} else {
c_arg(0, t2, 0, 0, cglobs);
c_arg(v, t2, 0, 0, cglobs);
}
cglobs->onhead = FALSE;
}