This commit is contained in:
Vítor Santos Costa 2015-11-05 16:39:04 +00:00
parent a26dbe0dfc
commit 4224382be1

View File

@ -469,8 +469,7 @@ p_put_att( USES_REGS1 ) {
if (!Yap_gcl(LOCAL_Error_Size, 5, ENV, gc_P(P,CP))) { if (!Yap_gcl(LOCAL_Error_Size, 5, ENV, gc_P(P,CP))) {
Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage); Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage);
return FALSE; return FALSE;
} }
inp = Deref(ARG1);
} }
new = TRUE; new = TRUE;
} }
@ -549,7 +548,6 @@ p_rm_att( USES_REGS1 ) {
Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage); Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage);
return FALSE; return FALSE;
} }
inp = Deref(ARG1);
} }
new = TRUE; new = TRUE;
Yap_unify(ARG1, AbsAttVar(attv)); Yap_unify(ARG1, AbsAttVar(attv));
@ -586,7 +584,6 @@ p_put_atts( USES_REGS1 ) {
Functor mfun = FunctorOfTerm(tatts); Functor mfun = FunctorOfTerm(tatts);
int new = FALSE; int new = FALSE;
tatts = Deref(ARG2);
if (IsAttachedTerm(inp)) { if (IsAttachedTerm(inp)) {
attv = RepAttVar(VarOfTerm(inp)); attv = RepAttVar(VarOfTerm(inp));
} else { } else {
@ -596,7 +593,6 @@ p_put_atts( USES_REGS1 ) {
Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage); Yap_Error(RESOURCE_ERROR_STACK, TermNil, LOCAL_ErrorMessage);
return FALSE; return FALSE;
} }
tatts = Deref(ARG2);
} }
new = TRUE; new = TRUE;
Yap_unify(ARG1, AbsAttVar(attv)); Yap_unify(ARG1, AbsAttVar(attv));