This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/JIT/HPP/yaam_misc.h

1263 lines
30 KiB
C
Raw Normal View History

#if PARALLEL_YAP
#define LUCK_LU_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
if (PP) { \
GONext(); \
} \
else { \
PP = (*_PREG)->u.p.p; \
PELOCK(3, PP); \
(*_PREG) = NEXTOP((*_PREG), p); \
GONext(); \
}
#else /* PARALLEL_YAP */
#define LUCK_LU_INSTINIT \
(*_PREG) = NEXTOP((*_PREG), p); \
GONext();
#endif /* PARALLEL_YAP */
#define LOCK_LU_END \
BLOCK = (CELL)LOCK_LU_END;
#define UNLOCK_LU_INSTINIT
#if defined(YAPOR) || defined(THREADS)
#define UNLOCK_LU_YAPOR_THREADS \
UNLOCKPE(1,PP); \
PP = NULL;
#endif
#define UNLOCK_LU_END \
(*_PREG) = NEXTOP((*_PREG), e); \
GONext();
#define ALLOC_FOR_LOGICAL_PRED_INSTINIT
#if MULTIPLE_STACKS
#define ALLOC_FOR_LOGICAL_PRED_MULTIPLE_STACKS \
LogUpdClause *cl = (*_PREG)->u.L.ClBase;
#if PARALLEL_YAP
#define ALLOC_FOR_LOGICAL_PRED_MULTIPLE_STACKS_PARALLEL \
PredEntry *ap = cl->ClPred;
#endif
#define ALLOC_FOR_LOGICAL_PRED_MULTIPLE_STACKS_END \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(2,ap); \
PP = NULL;
#else
#define ALLOC_FOR_LOGICAL_PRED_NOMULTIPLE_STACKS_INIT \
LogUpdClause *cl = (LogUpdClause *)(*_PREG)->u.L.ClBase;
#define ALLOC_FOR_LOGICAL_PRED_NOMULTIPLE_STACKS_IF \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
}
#endif
#define ALLOC_FOR_LOGICAL_PRED_END \
(*_PREG) = NEXTOP((*_PREG), L); \
JMPNext();
/** COPY_IDB_TERM_INSTINIT was changed: no error messages **/
#if defined(YAPOR) || defined(THREADS)
#if MULTIPLE_STACKS
#ifdef DEPTH_LIMIT
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else { \
setregs(); \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(7,PP); \
PP = NULL; \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext(); \
}
#else /* DEPTH_LIMIT */
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else { \
setregs(); \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(7,PP); \
PP = NULL; \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
JMPNext(); \
}
#endif /* DEPTH_LIMIT */
#else /* MULTIPLE_STACKS */
#ifdef DEPTH_LIMIT
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else { \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext(); \
}
#else /* DEPTH_LIMIT */
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
PP = NULL; \
YAAM_FAIL; \
} \
else { \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
JMPNext(); \
}
#endif /* DEPTH_LIMIT */
#endif /* MULTIPLE_STACKS */
#else /* defined(YAPOR) || defined(THREADS) */
#if MULTIPLE_STACKS
#ifdef DEPTH_LIMIT
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
YAAM_FAIL; \
} \
else { \
setregs(); \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(7,PP); \
PP = NULL; \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext(); \
}
#else /* DEPTH_LIMIT */
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
YAAM_FAIL; \
} \
else { \
setregs(); \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(7,PP); \
PP = NULL; \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
JMPNext(); \
}
#endif /* DEPTH_LIMIT */
#else /* MULTIPLE_STACKS */
#ifdef DEPTH_LIMIT
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
YAAM_FAIL; \
} \
else { \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext(); \
}
#else /* DEPTH_LIMIT */
#define COPY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
Term t; \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
while ((t = Yap_FetchTermFromDB(cl->ClSource)) == 0L) { \
LOCAL_Error_TYPE = YAP_NO_ERROR; \
} \
if (!Yap_IUnify(ARG2, t)) { \
setregs(); \
UNLOCKPE(5,PP); \
YAAM_FAIL; \
} \
else if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(6,PP); \
YAAM_FAIL; \
} \
else { \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
(*_PREG) = (*_CPREG); \
YREG = ENV; \
JMPNext(); \
}
#endif /* DEPTH_LIMIT */
#endif /* MULTIPLE_STACKS */
#endif /* defined(YAPOR) || defined(THREADS) */
#define COPY_IDB_TERM_END \
BLOCK = (CELL)COPY_IDB_TERM_END;
#if defined(YAPOR) || defined(THREADS)
#if MULTIPLE_STACKS
#ifdef DEPTH_LIMIT
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
PP = NULL; \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
PP = NULL; \
FAIL(); \
} \
setregs(); \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(10,PP); \
PP = NULL; \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext();
#else /* DEPTH_LIMIT */
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
PP = NULL; \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
PP = NULL; \
FAIL(); \
} \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
JMPNext();
#endif /* DEPTH_LIMIT */
#else /* MULTIPLE_STACKS */
#ifdef DEPTH_LIMIT
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
PP = NULL; \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
PP = NULL; \
FAIL(); \
} \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext();
#else /* DEPTH_LIMIT */
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
PP = NULL; \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
PP = NULL; \
FAIL(); \
} \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
JMPNext();
#endif /* DEPTH_LIMIT */
#endif /* MULTIPLE_STACKS */
#else /* defined(YAPOR) || defined(THREADS) */
#if MULTIPLE_STACKS
#ifdef DEPTH_LIMIT
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
FAIL(); \
} \
setregs(); \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(10,PP); \
PP = NULL; \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext();
#else /* DEPTH_LIMIT */
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
FAIL(); \
} \
setregs(); \
INC_CLREF_COUNT(cl); \
TRAIL_CLREF(cl); \
UNLOCKPE(10,PP); \
PP = NULL; \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
JMPNext();
#endif /* DEPTH_LIMIT */
#else /* MULTIPLE_STACKS */
#ifdef DEPTH_LIMIT
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
FAIL(); \
} \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
DEPTH = YREG[E_DEPTH]; \
JMPNext();
#else /* DEPTH_LIMIT */
#define UNIFY_IDB_TERM_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
{ \
LogUpdClause *cl = ClauseCodeToLogUpdClause((*_PREG)); \
saveregs(); \
if (!Yap_IUnify(ARG2, cl->ClSource->Entry)) { \
setregs(); \
UNLOCKPE(8,PP); \
FAIL(); \
} \
if (!Yap_IUnify(ARG3, MkDBRefTerm((DBRef)cl))) { \
setregs(); \
UNLOCKPE(9,PP); \
FAIL(); \
} \
setregs(); \
if (!(cl->ClFlags & InUseMask)) { \
cl->ClFlags |= InUseMask; \
TRAIL_CLREF(cl); \
} \
} \
(*_PREG) = (*_C(*_PREG)); \
YREG = ENV; \
JMPNext();
#endif /* DEPTH_LIMIT */
#endif /* MULTIPLE_STACKS */
#endif /* defined(YAPOR) || defined(THREADS) */
#define UNIFY_IDB_TERM_END \
BLOCK = (CELL)UNIFY_IDB_TERM_END;
#ifdef DEPTH_LIMIT
#define ENSURE_SPACE_INSTINIT \
{ \
Int sz = (*_PREG)->u.Osbpa.i; \
UInt arity = (*_PREG)->u.Osbpa.p->ArityOfPE; \
if (Unsigned(HR) + sz > Unsigned(YREG)-CreepFlag) { \
YENV[E_CP] = (CELL) (*_C(*_PREG)); \
YENV[E_E] = (CELL) ENV; \
YENV[E_DEPTH] = DEPTH; \
SET_ASP(YREG, (*_PREG)->u.Osbpa.s); \
(*_PREG) = NEXTOP((*_PREG),Osbpa); \
saveregs(); \
setregs(); \
} else { \
(*_PREG) = NEXTOP((*_PREG),Osbpa); \
} \
} \
JMPNext();
#else /* DEPTH_LIMIT */
#define ENSURE_SPACE_INSTINIT \
{ \
Int sz = (*_PREG)->u.Osbpa.i; \
UInt arity = (*_PREG)->u.Osbpa.p->ArityOfPE; \
if (Unsigned(HR) + sz > Unsigned(YREG)-CreepFlag) { \
YENV[E_CP] = (CELL) (*_C(*_PREG)); \
YENV[E_E] = (CELL) ENV; \
SET_ASP(YREG, (*_PREG)->u.Osbpa.s); \
(*_PREG) = NEXTOP((*_PREG),Osbpa); \
saveregs(); \
setregs(); \
} else { \
(*_PREG) = NEXTOP((*_PREG),Osbpa); \
} \
} \
JMPNext();
#endif /* DEPTH_LIMIT */
#define ENSURE_SPACE_END
#define JUMP_INSTINIT \
(*_PREG) = (*_PREG)->u.l.l; \
JMPNext();
#define MOVE_BACK_INSTINIT \
(*_PREG) = (yamop *)(((char *)(*_PREG))-(Int)(NEXTOP((yamop *)NULL,Osbpp))); \
JMPNext();
#define SKIP_INSTINIT \
(*_PREG) = NEXTOP((*_PREG),l); \
JMPNext();
#define EITHER_INSTINIT
#ifdef LOW_LEVEL_TRACER
#define EITHER_LOW_LEVEL_TRACER \
low_level_trace(try_or, (PredEntry *)(*_PREG), NULL);
#endif
#define EITHER_POST_COROUTINING \
register CELL d0; \
register choiceptr pt1; \
d0 = (*_PREG)->u.Osblp.s; \
pt1 = (choiceptr) ((char *) YREG + (yslot) d0);
#ifdef FROZEN_STACKS
#ifdef YAPOR_SBA
#define EITHER_FROZEN_YSBA \
choiceptr top_b = PROTECT_FROZEN_B(B); \
if (pt1 > top_b || pt1 < (choiceptr)H) \
pt1 = top_b;
#else /* YAPOR_SBA */
#define EITHER_FROZEN_YSBA \
choiceptr top_b = PROTECT_FROZEN_B(B); \
if (pt1 > top_b) \
pt1 = top_b;
#endif /* YAPOR_SBA */
#else /* FROZEN_STACKS */
#define EITHER_FROZEN_YSBA \
if (pt1 > B) \
pt1 = B;
#endif /* FROZEN_STACKS */
#define EITHER_POST_FROZEN_YSBA \
pt1 = (choiceptr)(((CELL *) pt1)-1); \
*(CELL **) pt1 = YREG; \
store_yaam_regs_for_either((*_PREG)->u.Osblp.l, (*_PREG)); \
(*_SREG) = (CELL *) (B = pt1);
#ifdef YAPOR
#define EITHER_YAPOR \
SCH_set_load(pt1);
#endif
#define EITHER_END \
SET_BB(pt1); \
(*_PREG) = NEXTOP(NEXTOP((*_PREG), Osblp),l); \
GONext();
#define OR_ELSE_INSTINIT \
HR = HRBREG = PROTECT_FROZEN_H(B); \
ENV = B->cp_env; \
B->cp_cp = (*_PREG);
#ifdef DEPTH_LIMIT
#define OR_ELSE_DEPTH \
DEPTH = B->cp_depth;
#endif
#define OR_ELSE_POST_DEPTH \
SET_BB(PROTECT_FROZEN_B(B));
#ifdef YAPOR
#define OR_ELSE_YAPOR \
SCH_new_alternative((*_PREG), (*_PREG)->u.Osblp.l);
#endif
#define OR_ELSE_END \
B->cp_ap = (*_PREG)->u.Osblp.l; \
(*_PREG) = NEXTOP((*_PREG), Osblp); \
YREG = (CELL *) B->cp_a1; \
GONext();
#define OR_LAST_INSTINIT \
register choiceptr pt0; \
pt0 = B;
#ifdef YAPOR
#define OR_LAST_IFOK_INIT \
H = HRBREG = PROTECT_FROZEN_H(pt0); \
YREG = (CELL *) pt0->cp_a1; \
ENV = pt0->cp_env;
#ifdef DEPTH_LIMIT
#define OR_LAST_IFOK_DEPTH \
DEPTH = pt0->cp_depth;
#endif
#define OR_LAST_IFOK_END \
SCH_new_alternative((*_PREG), NULL);
#endif
#define OR_LAST_NOIF_INIT \
B = pt0->cp_b; \
H = PROTECT_FROZEN_H(pt0); \
YREG = (CELL *) pt0->cp_a1; \
ENV = pt0->cp_env;
#ifdef DEPTH_LIMIT
#define OR_LAST_NOIF_DEPTH \
DEPTH = pt0->cp_depth;
#endif
#define OR_LAST_NOIF_END \
HBREG = PROTECT_FROZEN_H(B);
#ifdef YAPOR
#define OR_LAST_YAPOR \
(*_PREG) = NEXTOP((*_PREG), Osblp);
#else
#define OR_LAST_NOYAPOR \
(*_PREG) = NEXTOP((*_PREG), p);
#endif
#define OR_LAST_END \
SET_BB(PROTECT_FROZEN_B(B)); \
GONext();
#define LOCK_PRED_INSTINIT \
PredEntry *ap = PredFromDefCode((*_PREG)); \
PELOCK(10,ap); \
PP = ap;
#define LOCK_PRED_FIRSTIFOK \
UNLOCKPE(11,ap); \
FAIL();
#define LOCK_PRED_SECONDTIFOK \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
Yap_IPred(ap, 0, CP); \
setregs(); \
CACHE_A1(); \
save_pc();
#define LOCK_PRED_END \
(*_PREG) = ap->cs.p_code.TrueCodeOfPred; \
JMPNext();
#if defined(YAPOR) || defined(THREADS)
#define INDEX_PRED_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
PredEntry *ap = PredFromDefCode((*_PREG)); \
if (!PP) { \
PELOCK(11,ap); \
} \
if (ap->OpcodeOfPred != INDEX_OPCODE) { \
if (!PP) { \
UNLOCKPE(11,ap); \
} \
(*_PREG) = ap->CodeOfPred; \
save_pc(); \
JMPNext(); \
} \
else \
{ \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
Yap_IPred(ap, 0, CP); \
setregs(); \
CACHE_A1(); \
(*_PREG) = ap->CodeOfPred; \
save_pc(); \
if (!PP) \
{ \
UNLOCKPE(14,ap); \
} \
JMPNext(); \
}
#else /* defined(YAPOR) || defined(THREADS) */
#define INDEX_PRED_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
PredEntry *ap = PredFromDefCode((*_PREG)); \
{ \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
Yap_IPred(ap, 0, CP); \
setregs(); \
CACHE_A1(); \
(*_PREG) = ap->CodeOfPred; \
save_pc(); \
{ \
UNLOCKPE(14,ap); \
} \
JMPNext(); \
}
#endif /* defined(YAPOR) || defined(THREADS) */
#define INDEX_PRED_END \
BLOCK = (CELL)INDEX_PRED_END;
#if THREADS
#define THREAD_LOCAL_INSTINIT \
PredEntry *ap = PredFromDefCode((*_PREG)); \
ap = Yap_GetThreadPred(ap PASS_REGS); \
(*_PREG) = ap->CodeOfPred; \
save_pc(); \
JMPNext();
#endif
#define EXPAND_INDEX_INSTINIT \
PredEntry *pe = PredFromExpandCode((*_PREG)); \
yamop *pt0; \
SET_ASP(YREG, E_CB*sizeof(CELL));
#if defined(YAPOR) || defined(THREADS)
#define EXPAND_INDEX_YAPOR_THREADS_NOPP \
PELOCK(12,pe);
#define EXPAND_INDEX_YAPOR_THREADS_IFOK_INIT \
(*_PREG) = *PREG_ADDR;
#define EXPAND_INDEX_YAPOR_THREADS_IFOK_IFOK \
UNLOCKPE(15,pe);
#define EXPAND_INDEX_YAPOR_THREADS_IFOK_END \
JMPNext();
#endif
#ifdef SHADOW_S
#define EXPAND_INDEX_NOYAPOR_NOTHREADS_SETS \
S = (*_SREG);
#endif
#define EXPAND_INDEX_NOYAPOR_NOTHREADS_POST_SETS \
saveregs(); \
pt0 = Yap_ExpandIndex(pe, 0); \
setregs();
#ifdef SHADOW_S
#define EXPAND_INDEX_NOYAPOR_NOTHREADS_SETSREG \
(*_SREG) = S;
#endif
#define EXPAND_INDEX_NOYAPOR_NOTHREADS_POST_SETSREG \
(*_PREG) = pt0;
#if defined(YAPOR) || defined(THREADS)
#define EXPAND_INDEX_UNLOCK \
UNLOCKPE(12,pe);
#endif
#define EXPAND_INDEX_END \
JMPNext();
#define EXPAND_CLAUSES_INSTINIT \
PredEntry *pe = (*_PREG)->u.sssllp.p; \
yamop *pt0; \
SET_ASP(YREG, E_CB*sizeof(CELL));
#if defined(YAPOR) || defined(THREADS)
#define EXPAND_CLAUSES_YAPOR_THREADS_NOPP \
PELOCK(13,pe);
#define EXPAND_CLAUSES_YAPOR_THREADS_IFOK_INIT \
(*_PREG) = *PREG_ADDR;
#define EXPAND_CLAUSES_YAPOR_THREADS_IFOK_IFOK \
UNLOCKPE(16,pe);
#define EXPAND_CLAUSES_YAPOR_THREADS_IFOK_END \
JMPNext();
#endif
#define EXPAND_CLAUSES_NOYAPOR_NOTHREADS \
saveregs(); \
pt0 = Yap_ExpandIndex(pe, 0); \
setregs(); \
UNLOCKPE(17,pe); \
(*_PREG) = pt0;
#if defined(YAPOR) || defined(THREADS)
#define EXPAND_CLAUSES_UNLOCK \
UNLOCKPE(18,pe);
#endif
#define EXPAND_CLAUSES_END \
JMPNext();
#if defined(YAPOR) || defined(THREADS)
#ifdef LOW_LEVEL_TRACER
#define UNDEF_P_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
PredEntry *pe = PredFromDefCode((*_PREG)); \
register CELL d0, d1; \
register CELL *pt0, *pt1; \
if ((pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) || \
(UndefCode->OpcodeOfPred == UNDEF_OPCODE)) { \
PP = NULL; \
UNLOCKPE(19,pe); \
YAAM_FAIL; \
} \
else { \
d0 = pe->ArityOfPE; \
UNLOCKPE(19,pe); \
if (d0 == 0) { \
HR[1] = MkAtomTerm((Atom)(pe->FunctorOfPred)); \
} \
else { \
HR[d0 + 2] = AbsAppl(HR); \
*H = (CELL) pe->FunctorOfPred; \
HR++; \
pt1 = XREGS + 1; \
for (; d0 > 0; --d0) { \
pt0 = pt1++; \
d1 = *pt0; \
if (IsVarTerm(d1)) { \
short setHwithd1 = 0; \
while (Unsigned(pt0) != (d1)) { \
(pt0) = (CELL *)(d1); \
(d1) = *(CELL *)(d1); \
if(!IsVarTerm(d1)) { \
*H++ = d1; \
setHwithd1 = 1; \
break; \
} \
} \
if (setHwithd1) { continue; } \
if (pt0 <= HR) { \
*H++ = (CELL)pt0; \
} else { \
d1 = Unsigned(HR); \
RESET_VARIABLE(HR); \
HR += 1; \
Bind_Local(pt0, d1); \
} \
} \
else { \
*H++ = d1; \
} \
} \
} \
HR[0] = Yap_Module_Name(pe); \
ARG1 = (Term) AbsPair(HR); \
HR += 2; \
if (Yap_do_low_level_trace) { \
low_level_trace(enter_pred,UndefCode,XREGS+1); \
} \
(*_PREG) = UndefCode->CodeOfPred; \
save_pc(); \
CACHE_A1(); \
JMPNext(); \
}
#else /* LOW_LEVEL_TRACER */
#define UNDEF_P_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
PredEntry *pe = PredFromDefCode((*_PREG)); \
register CELL d0, d1; \
register CELL *pt0, *pt1; \
if ((pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) || \
(UndefCode->OpcodeOfPred == UNDEF_OPCODE)) { \
PP = NULL; \
UNLOCKPE(19,pe); \
YAAM_FAIL; \
} \
else { \
d0 = pe->ArityOfPE; \
UNLOCKPE(19,pe); \
if (d0 == 0) { \
HR[1] = MkAtomTerm((Atom)(pe->FunctorOfPred)); \
} \
else { \
HR[d0 + 2] = AbsAppl(HR); \
*H = (CELL) pe->FunctorOfPred; \
HR++; \
pt1 = XREGS + 1; \
for (; d0 > 0; --d0) { \
pt0 = pt1++; \
d1 = *pt0; \
if (IsVarTerm(d1)) { \
short setHwithd1 = 0; \
while (Unsigned(pt0) != (d1)) { \
(pt0) = (CELL *)(d1); \
(d1) = *(CELL *)(d1); \
if(!IsVarTerm(d1)) { \
*H++ = d1; \
setHwithd1 = 1; \
break; \
} \
} \
if (setHwithd1) { continue; } \
if (pt0 <= HR) { \
*H++ = (CELL)pt0; \
} else { \
d1 = Unsigned(HR); \
RESET_VARIABLE(HR); \
HR += 1; \
Bind_Local(pt0, d1); \
} \
} \
else { \
*H++ = d1; \
} \
} \
} \
HR[0] = Yap_Module_Name(pe); \
ARG1 = (Term) AbsPair(HR); \
HR += 2; \
(*_PREG) = UndefCode->CodeOfPred; \
save_pc(); \
CACHE_A1(); \
JMPNext(); \
}
#endif /* LOW_LEVEL_TRACER */
#else /* defined(YAPOR) || defined(THREADS) */
#ifdef LOW_LEVEL_TRACER
#define UNDEF_P_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
FAILED = 0; \
PredEntry *pe = PredFromDefCode((*_PREG)); \
register CELL d0, d1; \
register CELL *pt0, *pt1; \
if ((pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) || \
(UndefCode->OpcodeOfPred == UNDEF_OPCODE)) { \
UNLOCKPE(19,pe); \
YAAM_FAIL; \
} \
else { \
d0 = pe->ArityOfPE; \
UNLOCKPE(19,pe); \
if (d0 == 0) { \
HR[1] = MkAtomTerm((Atom)(pe->FunctorOfPred)); \
} \
else { \
HR[d0 + 2] = AbsAppl(HR); \
*H = (CELL) pe->FunctorOfPred; \
HR++; \
pt1 = XREGS + 1; \
for (; d0 > 0; --d0) { \
pt0 = pt1++; \
d1 = *pt0; \
if (IsVarTerm(d1)) { \
short setHwithd1 = 0; \
while (Unsigned(pt0) != (d1)) { \
(pt0) = (CELL *)(d1); \
(d1) = *(CELL *)(d1); \
if(!IsVarTerm(d1)) { \
*H++ = d1; \
setHwithd1 = 1; \
break; \
} \
} \
if (setHwithd1) { continue; } \
if (pt0 <= HR) { \
*H++ = (CELL)pt0; \
} else { \
d1 = Unsigned(HR); \
RESET_VARIABLE(HR); \
HR += 1; \
Bind_Local(pt0, d1); \
} \
} \
else { \
*H++ = d1; \
} \
} \
} \
HR[0] = Yap_Module_Name(pe); \
ARG1 = (Term) AbsPair(HR); \
HR += 2; \
if (Yap_do_low_level_trace) { \
low_level_trace(enter_pred,UndefCode,XREGS+1); \
} \
(*_PREG) = UndefCode->CodeOfPred; \
save_pc(); \
CACHE_A1(); \
JMPNext(); \
}
#else /* LOW_LEVEL_TRACER */
#define UNDEF_P_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
FAILED = 0; \
PredEntry *pe = PredFromDefCode((*_PREG)); \
register CELL d0, d1; \
register CELL *pt0, *pt1; \
if ((pe->PredFlags & (DynamicPredFlag|LogUpdatePredFlag|MultiFileFlag)) || \
(UndefCode->OpcodeOfPred == UNDEF_OPCODE)) { \
UNLOCKPE(19,pe); \
YAAM_FAIL; \
} \
else { \
d0 = pe->ArityOfPE; \
UNLOCKPE(19,pe); \
if (d0 == 0) { \
HR[1] = MkAtomTerm((Atom)(pe->FunctorOfPred)); \
} \
else { \
HR[d0 + 2] = AbsAppl(HR); \
*H = (CELL) pe->FunctorOfPred; \
HR++; \
pt1 = XREGS + 1; \
for (; d0 > 0; --d0) { \
pt0 = pt1++; \
d1 = *pt0; \
if (IsVarTerm(d1)) { \
short setHwithd1 = 0; \
while (Unsigned(pt0) != (d1)) { \
(pt0) = (CELL *)(d1); \
(d1) = *(CELL *)(d1); \
if(!IsVarTerm(d1)) { \
*H++ = d1; \
setHwithd1 = 1; \
break; \
} \
} \
if (setHwithd1) { continue; } \
if (pt0 <= HR) { \
*H++ = (CELL)pt0; \
} else { \
d1 = Unsigned(HR); \
RESET_VARIABLE(HR); \
HR += 1; \
Bind_Local(pt0, d1); \
} \
} \
else { \
*H++ = d1; \
} \
} \
} \
HR[0] = Yap_Module_Name(pe); \
ARG1 = (Term) AbsPair(HR); \
HR += 2; \
(*_PREG) = UndefCode->CodeOfPred; \
save_pc(); \
CACHE_A1(); \
JMPNext(); \
}
#endif /* LOW_LEVEL_TRACER */
#endif /* defined(YAPOR) || defined(THREADS) */
#define UNDEF_P_END \
BLOCK = (CELL)UNDEF_P_END;
#define SPY_PRED_INSTINIT \
register CELL d0, d1; \
register CELL *pt0, *pt1; \
PredEntry *pe = PredFromDefCode((*_PREG)); \
PELOCK(14,pe);
#define SPY_PRED_FIRSTIFOK \
SET_ASP(YREG, E_CB*sizeof(CELL)); \
saveregs(); \
Yap_IPred(pe, 0, CP); \
setregs();
#define SPY_PRED_SECONDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \
pe->StatisticsForPred.NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock); \
LOCAL_ReductionsCounter--;
#define SPY_PRED_SECONDIFOK_FIRSTIFOK \
UNLOCKPE(20,pe); \
saveregs(); \
Yap_NilError(CALL_COUNTER_UNDERFLOW,""); \
setregs(); \
JMPNext();
#define SPY_PRED_SECONDIFOK_POST_FIRSTIF \
LOCAL_PredEntriesCounter--;
#define SPY_PRED_SECONDIFOK_SECONDIFOK \
UNLOCKPE(21,pe); \
saveregs(); \
Yap_NilError(PRED_ENTRY_COUNTER_UNDERFLOW,""); \
setregs(); \
JMPNext();
#define SPY_PRED_SECONDIFOK_THIRDIFOK \
(*_PREG) = pe->cs.p_code.TrueCodeOfPred; \
UNLOCKPE(22,pe); \
JMPNext();
#define SPY_PRED_THIRDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \
pe->StatisticsForPred.NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock);
#define SPY_PRED_THIRDIFOK_FIRSTIFOK \
(*_PREG) = pe->cs.p_code.TrueCodeOfPred; \
UNLOCKPE(23,pe); \
JMPNext();
#define SPY_PRED_FOURTHIFOK \
(*_PREG) = pe->cs.p_code.TrueCodeOfPred; \
UNLOCKPE(24,pe); \
JMPNext();
#define SPY_PRED_POST_FOURTHIF \
UNLOCKPE(25,pe); \
d0 = pe->ArityOfPE;
#define SPY_PRED_D0ISZERO \
HR[1] = MkAtomTerm((Atom)(pe->FunctorOfPred));
#define SPY_PRED_D0ISNOZERO_INIT \
*H = (CELL) pe->FunctorOfPred; \
HR[d0 + 2] = AbsAppl(HR); \
HR++; \
pt1 = XREGS + 1;
#define SPY_PRED_D0ISNOZERO_INSIDEFOR_INIT \
pt0 = pt1++; \
d1 = *pt0;
#define SPY_PRED_D0ISNOZERO_INSIDEFOR_DOSPY_NONVAR \
*H++ = d1;
#define SPY_PRED_D0ISNOZERO_INSIDEFOR_SAFEVAR \
*H++ = (CELL)pt0;
#define SPY_PRED_D0ISNOZERO_INSIDEFOR_UNSAFEVAR \
d1 = Unsigned(HR); \
RESET_VARIABLE(HR); \
HR += 1; \
Bind_Local(pt0, d1);
#define SPY_PRED_POST_IFS \
H[0] = Yap_Module_Name(pe); \
ARG1 = (Term) AbsPair(HR); \
HR += 2; \
PredEntry *pt0;
#ifdef THREADS
#define SPY_PRED_THREADS_LOCK \
LOCK(GLOBAL_ThreadHandlesLock);
#endif
#define SPY_PRED_POST_LOCK \
pt0 = SpyCode; \
P_before_spy = (*_PREG); \
(*_PREG) = pt0->CodeOfPred;
#ifdef THREADS
#define SPY_PRED_THREADS_UNLOCK \
UNLOCK(GLOBAL_ThreadHandlesLock);
#endif
#define SPY_PRED_POST_UNLOCK \
save_pc(); \
CACHE_A1();
#ifdef LOW_LEVEL_TRACER
#define SPY_PRED_LOW_LEVEL_TRACER \
low_level_trace(enter_pred,pt0,XREGS+1);
#endif
#define SPY_PRED_END \
JMPNext();