MYDDAS is too closely integreated to be a package.
This commit is contained in:
parent
0f58cf8029
commit
e5d11cfa16
@ -882,12 +882,13 @@ c_eq(Term t1, Term t2, compiler_struct *cglobs)
|
|||||||
c_var(t1, v, 0, 0, cglobs);
|
c_var(t1, v, 0, 0, cglobs);
|
||||||
cglobs->onhead = FALSE;
|
cglobs->onhead = FALSE;
|
||||||
} else {
|
} else {
|
||||||
c_var(t1, 0, 0, 0, cglobs);
|
Int v = --cglobs->tmpreg;
|
||||||
|
c_var(t1, v, 0, 0, cglobs);
|
||||||
cglobs->onhead = TRUE;
|
cglobs->onhead = TRUE;
|
||||||
if (IsVarTerm(t2)) {
|
if (IsVarTerm(t2)) {
|
||||||
c_var(t2, 0, 0, 0, cglobs);
|
c_var(t2, v, 0, 0, cglobs);
|
||||||
} else {
|
} else {
|
||||||
c_arg(0, t2, 0, 0, cglobs);
|
c_arg(v, t2, 0, 0, cglobs);
|
||||||
}
|
}
|
||||||
cglobs->onhead = FALSE;
|
cglobs->onhead = FALSE;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user