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

beauty

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-10-23 01:23:29 +01:00
parent e25e7dab7b
commit 2f34be261e
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C/exec.c
View File

@ -89,7 +89,7 @@ CallMetaCall(Term t, Term mod USES_REGS) {
} else { } else {
ARG4 = TermProlog; ARG4 = TermProlog;
} }
return (CallPredicate(PredMetaCall, B, PredMetaCall->CodeOfPred PASS_REGS)); return CallPredicate(PredMetaCall, B, PredMetaCall->CodeOfPred PASS_REGS);
} }
Term Term
@ -100,7 +100,7 @@ Yap_ExecuteCallMetaCall(Term mod) {
ts[1] = cp_as_integer(B PASS_REGS); /* p_save_cp */ ts[1] = cp_as_integer(B PASS_REGS); /* p_save_cp */
ts[2] = ARG1; ts[2] = ARG1;
ts[3] = mod; ts[3] = mod;
return(Yap_MkApplTerm(PredMetaCall->FunctorOfPred,4,ts)); return Yap_MkApplTerm(PredMetaCall->FunctorOfPred,4,ts);
} }
Term Term
@ -129,7 +129,6 @@ Yap_PredicateIndicator(Term t, Term mod)
return t; return t;
} }
static Int static Int
CallError(yap_error_number err, Term t, Term mod USES_REGS) CallError(yap_error_number err, Term t, Term mod USES_REGS)
{ {
@ -155,7 +154,7 @@ p_save_cp( USES_REGS1 )
if (!IsVarTerm(t)) return(FALSE); if (!IsVarTerm(t)) return(FALSE);
td = cp_as_integer(B PASS_REGS); td = cp_as_integer(B PASS_REGS);
YapBind((CELL *)t,td); YapBind((CELL *)t,td);
return(TRUE); return TRUE;
} }
static Int static Int
@ -169,7 +168,7 @@ p_save_env_b( USES_REGS1 )
if (!IsVarTerm(t)) return(FALSE); if (!IsVarTerm(t)) return(FALSE);
td = cp_as_integer((choiceptr)YENV[E_CB] PASS_REGS); td = cp_as_integer((choiceptr)YENV[E_CB] PASS_REGS);
YapBind((CELL *)t,td); YapBind((CELL *)t,td);
return(TRUE); return TRUE;
} }
static Int static Int