328 lines
7.9 KiB
C
328 lines
7.9 KiB
C
#define CALL_CPRED_INSTINIT \
|
|
print_instruction((*_PREG), ON_NATIVE); \
|
|
BLOCKADDRESS = (CELL)(*_PREG); \
|
|
register CELL d0;
|
|
|
|
#if (defined(YAPOR_SBA) && defined(YAPOR)) || defined(TABLING)
|
|
#define CALL_CPRED_TEST_STACK \
|
|
if (!((*_PREG)->y_u.Osbpp.p->PredFlags & (SafePredFlag|HiddenPredFlag))) { \
|
|
CACHE_Y_AS_ENV(YREG); \
|
|
if (__builtin_expect( ((Int)(Unsigned(YOUNGEST_CP((choiceptr)ENV_YREG,B_FZ)) - Unsigned(YOUNGEST_H(H_FZ,HR))) < CreepFlag), 0) ) { return external_labels[6]; } \
|
|
ENDCACHE_Y_AS_ENV(); \
|
|
}
|
|
#else
|
|
#define CALL_CPRED_TEST_STACK \
|
|
if (!((*_PREG)->y_u.Osbpp.p->PredFlags & (SafePredFlag|HiddenPredFlag))) { \
|
|
CACHE_Y_AS_ENV(YREG); \
|
|
if (__builtin_expect(((Int)(Unsigned(ENV_YREG) - Unsigned(HR)) < CreepFlag ), 0) ) { return external_labels[6]; } \
|
|
ENDCACHE_Y_AS_ENV(); \
|
|
}
|
|
#endif
|
|
|
|
#ifdef FROZEN_STACKS
|
|
#define CALL_CPRED_FROZEN_INIT \
|
|
choiceptr top_b = PROTECT_FROZEN_B(B);
|
|
|
|
#ifdef YAPOR_SBA
|
|
#define CALL_CPRED_TOPB \
|
|
if (YREG > (CELL *) top_b || YREG < HR) \
|
|
ASP = (CELL *)top_b; \
|
|
else \
|
|
ASP = (CELL *)(((char *)YREG) + (*_PREG)->y_u.Osbpp.s);
|
|
#else /* YAPOR_SBA */
|
|
#define CALL_CPRED_TOPB \
|
|
if (YREG > (CELL *) top_b) \
|
|
ASP = (CELL *)top_b; \
|
|
else \
|
|
ASP = (CELL *)(((char *)YREG) + (*_PREG)->y_u.Osbpp.s);
|
|
#endif /* YAPOR_SBA */
|
|
|
|
#else
|
|
#define CALL_CPRED_NOFROZEN \
|
|
SET_ASP(YREG, (*_PREG)->y_u.Osbpp.s);
|
|
#endif
|
|
|
|
#ifdef LOW_LEVEL_TRACER
|
|
#define CALL_CPRED_LOW_LEVEL_TRACER \
|
|
low_level_trace(enter_pred,(*_PREG)->y_u.Osbpp.p,XREGS+1);
|
|
#endif
|
|
|
|
#define CALL_CPRED_POST_LOW_LEVEL_TRACER \
|
|
CPredicate f = (*_PREG)->y_u.Osbpp.p->cs.f_code; \
|
|
(*_PREG) = NEXTOP((*_PREG), Osbpp); \
|
|
saveregs(); \
|
|
d0 = (f)(PASS_REGS1); \
|
|
setregs();
|
|
|
|
#ifdef SHADOW_S
|
|
#define CALL_CPRED_SETSREG \
|
|
(*_SREG) = Yap_REGS.S_;
|
|
#endif
|
|
|
|
#define CALL_CPRED_END \
|
|
BLOCK = (CELL)CALL_CPRED_END; \
|
|
FAILED = 0; \
|
|
if (!d0) { \
|
|
YAAM_FAIL; \
|
|
} \
|
|
else { \
|
|
CACHE_A1(); \
|
|
JMPNext(); \
|
|
}
|
|
|
|
#define EXECUTE_CPRED_INSTINIT \
|
|
print_instruction((*_PREG), ON_NATIVE); \
|
|
BLOCKADDRESS = (CELL)(*_PREG); \
|
|
|
|
#define EXECUTE_CPRED_POST_CHECK_TRAIL \
|
|
PredEntry *pt0; \
|
|
CELL d0; \
|
|
CACHE_Y_AS_ENV(YREG);
|
|
|
|
#ifdef FROZEN_STACKS
|
|
#define EXECUTE_CPRED_FROZEN \
|
|
choiceptr top_b = PROTECT_FROZEN_B(B);
|
|
|
|
#ifdef YAPOR_SBA
|
|
#define EXECUTE_CPRED_TOPB \
|
|
if (YREG > (CELL *) top_b || YREG < HR) { \
|
|
ASP = (CELL *)top_b; \
|
|
} \
|
|
else { \
|
|
ASP = YREG+E_CB; \
|
|
}
|
|
#else
|
|
#define EXECUTE_CPRED_TOPB \
|
|
if (YREG > (CELL *) top_b) { \
|
|
ASP = (CELL *)top_b; \
|
|
} \
|
|
else { \
|
|
ASP = YREG+E_CB; \
|
|
}
|
|
#endif
|
|
|
|
#else
|
|
#define EXECUTE_CPRED_NOFROZEN \
|
|
SET_ASP(YREG, E_CB*sizeof(CELL));
|
|
#endif
|
|
|
|
#define EXECUTE_CPRED_POST_FROZEN \
|
|
pt0 = (*_PREG)->y_u.pp.p;
|
|
|
|
#ifdef LOW_LEVEL_TRACER
|
|
#define EXECUTE_CPRED_LOW_LEVEL_TRACER \
|
|
low_level_trace(enter_pred,pt0,XREGS+1);
|
|
#endif
|
|
|
|
#define EXECUTE_CPRED_POST_LOW_LEVEL_TRACER \
|
|
CACHE_A1(); \
|
|
register CELL d0; \
|
|
d0 = (CELL)B;
|
|
|
|
#define EXECUTE_CPRED_SAVE_PC \
|
|
save_pc(); \
|
|
ENV_YREG[E_CB] = d0;
|
|
|
|
#ifdef DEPTH_LIMIT
|
|
#define EXECUTE_CPRED_DEPTH_MINOR \
|
|
FAILED = 0; \
|
|
if (pt0->ModuleOfPred) { \
|
|
if (DEPTH == MkIntTerm(0)) { \
|
|
YAAM_FAIL; \
|
|
} \
|
|
else { \
|
|
DEPTH = RESET_DEPTH(); \
|
|
} \
|
|
}
|
|
|
|
#define EXECUTE_CPRED_DEPTH_MOFPRED \
|
|
FAILED = 0; \
|
|
DEPTH -= MkIntConstant(2);
|
|
|
|
#define EXECUTE_CPRED_DEPTH_END \
|
|
FAILED = 0;
|
|
#endif
|
|
|
|
#ifdef SHADOW_S
|
|
#ifdef DEPTH_LIMIT
|
|
#define EXECUTE_CPRED_END \
|
|
BLOCK = (CELL)EXECUTE_CPRED_END; \
|
|
if (!FAILED) { \
|
|
CPredicate f = (*_PREG)->y_u.pp.p->cs.f_code; \
|
|
yamop *oldPREG = (*_PREG); \
|
|
saveregs(); \
|
|
d0 = (f)(PASS_REGS1); \
|
|
setregs(); \
|
|
(*_SREG) = Yap_REGS.S_; \
|
|
if (!d0) { \
|
|
YAAM_FAIL; \
|
|
} \
|
|
else { \
|
|
if (oldPREG == (*_PREG)) { \
|
|
(*_PREG) = (*_CPREG); \
|
|
ENV_YREG = ENV; \
|
|
DEPTH = ENV_YREG[E_DEPTH]; \
|
|
WRITEBACK_Y_AS_ENV(); \
|
|
} else { \
|
|
CACHE_A1(); \
|
|
} \
|
|
JMPNext(); \
|
|
} \
|
|
} \
|
|
ENDCACHE_Y_AS_ENV();
|
|
#else /* DEPTH_LIMIT */
|
|
#define EXECUTE_CPRED_END \
|
|
BLOCK = (CELL)EXECUTE_CPRED_END; \
|
|
if (!FAILED) { \
|
|
CPredicate f = (*_PREG)->y_u.pp.p->cs.f_code; \
|
|
yamop *oldPREG = (*_PREG); \
|
|
saveregs(); \
|
|
d0 = (f)(PASS_REGS1); \
|
|
setregs(); \
|
|
(*_SREG) = Yap_REGS.S_; \
|
|
if (!d0) { \
|
|
YAAM_FAIL; \
|
|
} \
|
|
else { \
|
|
if (oldPREG == (*_PREG)) { \
|
|
(*_PREG) = (*_CPREG); \
|
|
ENV_YREG = ENV; \
|
|
WRITEBACK_Y_AS_ENV(); \
|
|
} else { \
|
|
CACHE_A1(); \
|
|
} \
|
|
JMPNext(); \
|
|
} \
|
|
} \
|
|
ENDCACHE_Y_AS_ENV();
|
|
#endif /* DEPTH_LIMIT */
|
|
#else /* SHADOW_S */
|
|
#ifdef DEPTH_LIMIT
|
|
#define EXECUTE_CPRED_END \
|
|
BLOCK = (CELL)EXECUTE_CPRED_END; \
|
|
if (!FAILED) { \
|
|
CPredicate f = (*_PREG)->y_u.pp.p->cs.f_code; \
|
|
yamop *oldPREG = (*_PREG); \
|
|
saveregs(); \
|
|
d0 = (f)(PASS_REGS1); \
|
|
setregs(); \
|
|
if (!d0) { \
|
|
YAAM_FAIL; \
|
|
} \
|
|
else { \
|
|
if (oldPREG == (*_PREG)) { \
|
|
(*_PREG) = (*_CPREG); \
|
|
ENV_YREG = ENV; \
|
|
DEPTH = ENV_YREG[E_DEPTH]; \
|
|
WRITEBACK_Y_AS_ENV(); \
|
|
} else { \
|
|
CACHE_A1(); \
|
|
} \
|
|
JMPNext(); \
|
|
} \
|
|
} \
|
|
ENDCACHE_Y_AS_ENV();
|
|
#else /* DEPTH_LIMIT */
|
|
#define EXECUTE_CPRED_END \
|
|
BLOCK = (CELL)EXECUTE_CPRED_END; \
|
|
if (!FAILED) { \
|
|
CPredicate f = (*_PREG)->y_u.pp.p->cs.f_code; \
|
|
yamop *oldPREG = (*_PREG); \
|
|
saveregs(); \
|
|
d0 = (f)(PASS_REGS1); \
|
|
setregs(); \
|
|
if (!d0) { \
|
|
YAAM_FAIL; \
|
|
} \
|
|
else { \
|
|
if (oldPREG == (*_PREG)) { \
|
|
(*_PREG) = (*_CPREG); \
|
|
ENV_YREG = ENV; \
|
|
WRITEBACK_Y_AS_ENV(); \
|
|
} else { \
|
|
CACHE_A1(); \
|
|
} \
|
|
JMPNext(); \
|
|
} \
|
|
} \
|
|
ENDCACHE_Y_AS_ENV();
|
|
#endif /* DEPTH_LIMIT */
|
|
#endif /* SHADOW_S */
|
|
|
|
#if (defined(YAPOR_SBA) && defined(YAPOR)) || defined(TABLING)
|
|
#define CALL_USERCPRED_INSTINIT \
|
|
print_instruction((*_PREG), ON_NATIVE); \
|
|
BLOCKADDRESS = (CELL)(*_PREG); \
|
|
CACHE_Y_AS_ENV(YREG); \
|
|
if (__builtin_expect( ((Int)(Unsigned(YOUNGEST_CP((choiceptr)ENV_YREG,B_FZ)) - Unsigned(YOUNGEST_H(H_FZ,HR))) < CreepFlag), 0) ) { return external_labels[6]; } \
|
|
ENDCACHE_Y_AS_ENV();
|
|
#else
|
|
#define CALL_USERCPRED_INSTINIT \
|
|
print_instruction((*_PREG), ON_NATIVE); \
|
|
BLOCKADDRESS = (CELL)(*_PREG); \
|
|
CACHE_Y_AS_ENV(YREG); \
|
|
if (__builtin_expect(((Int)(Unsigned(ENV_YREG) - Unsigned(HR)) < CreepFlag ), 0) ) { return external_labels[6]; } \
|
|
ENDCACHE_Y_AS_ENV();
|
|
#endif
|
|
|
|
#ifdef LOW_LEVEL_TRACER
|
|
#define CALL_USERCPRED_LOW_LEVEL_TRACER \
|
|
low_level_trace(enter_pred,(*_PREG)->y_u.Osbpp.p,XREGS+1);
|
|
#endif
|
|
|
|
#ifdef FROZEN_STACKS
|
|
#ifdef YAPOR_SBA
|
|
#define CALL_USERCPRED_FROZEN \
|
|
choiceptr top_b = PROTECT_FROZEN_B(B); \
|
|
if (YREG > (CELL *) top_b || YREG < HR) \
|
|
ASP = (CELL *) top_b; \
|
|
else \
|
|
ASP = (CELL *)(((char *)YREG) + (*_PREG)->y_u.Osbpp.s);
|
|
#else /* YAPOR_SBA */
|
|
#define CALL_USERCPRED_FROZEN \
|
|
choiceptr top_b = PROTECT_FROZEN_B(B); \
|
|
if (YREG > (CELL *) top_b) \
|
|
ASP = (CELL *) top_b; \
|
|
else \
|
|
ASP = (CELL *)(((char *)YREG) + (*_PREG)->y_u.Osbpp.s);
|
|
#endif /* YAPOR_SBA */
|
|
#else /* FROZEN_STACKS */
|
|
#define CALL_USERCPRED_FROZEN \
|
|
SET_ASP(YREG, (*_PREG)->y_u.Osbpp.s);
|
|
#endif /* FROZEN_STACKS */
|
|
|
|
#define CALL_USERCPRED_POST_FROZEN \
|
|
yamop *savedP; \
|
|
Yap_StartSlots( PASS_REGS1 ); \
|
|
LOCAL_PrologMode = UserCCallMode; \
|
|
{ \
|
|
PredEntry *p = (*_PREG)->y_u.Osbpp.p; \
|
|
(*_PREG) = NEXTOP((*_PREG), Osbpp); \
|
|
savedP = (*_PREG); \
|
|
saveregs(); \
|
|
save_machine_regs(); \
|
|
(*_SREG) = (CELL *) YAP_Execute(p, p->cs.f_code); \
|
|
} \
|
|
Yap_CloseSlots( PASS_REGS1 ); \
|
|
setregs(); \
|
|
LOCAL_PrologMode = UserMode; \
|
|
restore_machine_regs(); \
|
|
(*_PREG) = savedP;
|
|
|
|
#define CALL_USERCPRED_END \
|
|
BLOCK = (CELL)CALL_USERCPRED_END; \
|
|
FAILED = 0; \
|
|
if (EX) { \
|
|
struct DB_TERM *exp = EX; \
|
|
EX = NULL; \
|
|
Yap_JumpToEnv(Yap_PopTermFromDB(exp)); \
|
|
} \
|
|
if (!(*_SREG)) { \
|
|
YAAM_FAIL; \
|
|
} \
|
|
else { \
|
|
YENV = ENV; \
|
|
YREG = ENV; \
|
|
JMPNext(); \
|
|
}
|