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);
|
||||
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;
|
||||
}
|
||||
|
Reference in New Issue
Block a user