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

deadlock avoidal; function renaming

This commit is contained in:
Vítor Santos Costa 2015-07-06 11:57:47 +01:00
parent a97754623f
commit 84afde2d56
1 changed files with 118 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

224
C/exec.c
View File

@ -26,9 +26,9 @@ static char SccsId[] = "@(#)cdmgr.c 1.1 05/02/98";
static Int CallPredicate(PredEntry *, choiceptr, yamop * CACHE_TYPE); static Int CallPredicate(PredEntry *, choiceptr, yamop * CACHE_TYPE);
// must hold thread worker comm lock at call. // must hold thread worker comm lock at call.
static Int EnterCreepMode(Term, Term CACHE_TYPE); static Int EnterCreepMode(Term, Term CACHE_TYPE);
static Int p_save_cp( USES_REGS1 ); static Int current_choice_point( USES_REGS1 );
static Int p_execute( USES_REGS1 ); static Int execute( USES_REGS1 );
static Int p_execute0( USES_REGS1 ); static Int execute0( USES_REGS1 );
static Term static Term
cp_as_integer(choiceptr cp USES_REGS) cp_as_integer(choiceptr cp USES_REGS)
@ -81,7 +81,7 @@ CallPredicate(PredEntry *pen, choiceptr cut_pt, yamop *code USES_REGS) {
inline static Int inline static Int
CallMetaCall(Term t, Term mod USES_REGS) { CallMetaCall(Term t, Term mod USES_REGS) {
ARG1 = t; ARG1 = t;
ARG2 = cp_as_integer(B PASS_REGS); /* p_save_cp */ ARG2 = cp_as_integer(B PASS_REGS); /* p_current_choice_point */
ARG3 = t; ARG3 = t;
if (mod) { if (mod) {
ARG4 = mod; ARG4 = mod;
@ -96,7 +96,7 @@ Yap_ExecuteCallMetaCall(Term mod) {
CACHE_REGS CACHE_REGS
Term ts[4]; Term ts[4];
ts[0] = ARG1; ts[0] = ARG1;
ts[1] = cp_as_integer(B PASS_REGS); /* p_save_cp */ ts[1] = cp_as_integer(B PASS_REGS); /* p_current_choice_point */
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);
@ -142,8 +142,14 @@ CallError(yap_error_number err, Term t, Term mod USES_REGS)
} }
} }
/** @pred current_choice_point( -_CP_ )
*
* unify the logic variable _CP_ with a number that gives the offset of the
* current choice-point. This number is only valid as long as we do not backtrack by or cut
* _CP_, and is safe in the presence of stack shifting and/or garbage collection.
*/
static Int static Int
p_save_cp( USES_REGS1 ) current_choice_point( USES_REGS1 )
{ {
Term t = Deref(ARG1); Term t = Deref(ARG1);
Term td; Term td;
@ -157,7 +163,7 @@ p_save_cp( USES_REGS1 )
} }
static Int static Int
p_save_env_b( USES_REGS1 ) save_env_b( USES_REGS1 )
{ {
Term t = Deref(ARG1); Term t = Deref(ARG1);
Term td; Term td;
@ -171,7 +177,7 @@ p_save_env_b( USES_REGS1 )
} }
static Int static Int
p_trail_suspension_marker( USES_REGS1 ) trail_suspension_marker( USES_REGS1 )
{ {
Term t = Deref(ARG1); Term t = Deref(ARG1);
@ -432,10 +438,17 @@ EnterCreepMode(Term t, Term mod USES_REGS) {
} }
static Int static Int
p_execute( USES_REGS1 ) execute( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
return do_execute(t, CurrentModule PASS_REGS); return do_execute(t, CurrentModule PASS_REGS);
}
bool
Yap_Execute( Term t USES_REGS )
{ /* '$execute'(Goal) */
return do_execute(t, CurrentModule PASS_REGS);
} }
static void static void
@ -455,7 +468,7 @@ heap_store(Term t USES_REGS)
} }
static Int static Int
p_execute2( USES_REGS1 ) execute2( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -463,7 +476,7 @@ p_execute2( USES_REGS1 )
} }
static Int static Int
p_execute3( USES_REGS1 ) execute3( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -472,7 +485,7 @@ p_execute3( USES_REGS1 )
} }
static Int static Int
p_execute4( USES_REGS1 ) execute4( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -482,7 +495,7 @@ p_execute4( USES_REGS1 )
} }
static Int static Int
p_execute5( USES_REGS1 ) execute5( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -493,7 +506,7 @@ p_execute5( USES_REGS1 )
} }
static Int static Int
p_execute6( USES_REGS1 ) execute6( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -505,7 +518,7 @@ p_execute6( USES_REGS1 )
} }
static Int static Int
p_execute7( USES_REGS1 ) execute7( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -518,7 +531,7 @@ p_execute7( USES_REGS1 )
} }
static Int static Int
p_execute8( USES_REGS1 ) execute8( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -532,7 +545,7 @@ p_execute8( USES_REGS1 )
} }
static Int static Int
p_execute9( USES_REGS1 ) execute9( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -547,7 +560,7 @@ p_execute9( USES_REGS1 )
} }
static Int static Int
p_execute10( USES_REGS1 ) execute10( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -563,7 +576,7 @@ p_execute10( USES_REGS1 )
} }
static Int static Int
p_execute11( USES_REGS1 ) execute11( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -580,7 +593,7 @@ p_execute11( USES_REGS1 )
} }
static Int static Int
p_execute12( USES_REGS1 ) execute12( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
heap_store(Deref(ARG2) PASS_REGS); heap_store(Deref(ARG2) PASS_REGS);
@ -598,7 +611,7 @@ p_execute12( USES_REGS1 )
} }
static Int static Int
p_execute_clause( USES_REGS1 ) execute_clause( USES_REGS1 )
{ /* '$execute_clause'(Goal) */ { /* '$execute_clause'(Goal) */
Term t = Deref(ARG1); Term t = Deref(ARG1);
Term mod = Deref(ARG2); Term mod = Deref(ARG2);
@ -667,13 +680,13 @@ restart_exec:
} }
static Int static Int
p_execute_in_mod( USES_REGS1 ) execute_in_mod( USES_REGS1 )
{ /* '$execute'(Goal) */ { /* '$execute'(Goal) */
return(do_execute(Deref(ARG1), Deref(ARG2) PASS_REGS)); return(do_execute(Deref(ARG1), Deref(ARG2) PASS_REGS));
} }
static Int static Int
p_do_goal_expansion( USES_REGS1 ) do_goal_expansion( USES_REGS1 )
{ {
Int creeping = Yap_get_signal(YAP_CREEP_SIGNAL); Int creeping = Yap_get_signal(YAP_CREEP_SIGNAL);
Int out = FALSE; Int out = FALSE;
@ -686,7 +699,7 @@ p_do_goal_expansion( USES_REGS1 )
if ( (pe = RepPredProp(Yap_GetPredPropByFunc(FunctorGoalExpansion2, cmod) ) ) && if ( (pe = RepPredProp(Yap_GetPredPropByFunc(FunctorGoalExpansion2, cmod) ) ) &&
pe->OpcodeOfPred != FAIL_OPCODE && pe->OpcodeOfPred != FAIL_OPCODE &&
pe->OpcodeOfPred != UNDEF_OPCODE && pe->OpcodeOfPred != UNDEF_OPCODE &&
Yap_execute_pred(pe, NULL PASS_REGS, false) ) { Yap_execute_pred(pe, NULL, false PASS_REGS) ) {
out = TRUE; out = TRUE;
ARG3 = ARG2; ARG3 = ARG2;
goto complete; goto complete;
@ -728,7 +741,7 @@ complete:
} }
static Int static Int
p_do_term_expansion( USES_REGS1 ) do_term_expansion( USES_REGS1 )
{ {
Int creeping = Yap_get_signal(YAP_CREEP_SIGNAL); Int creeping = Yap_get_signal(YAP_CREEP_SIGNAL);
Int out = FALSE; Int out = FALSE;
@ -767,7 +780,7 @@ complete:
} }
static Int static Int
p_execute0( USES_REGS1 ) execute0( USES_REGS1 )
{ /* '$execute0'(Goal,Mod) */ { /* '$execute0'(Goal,Mod) */
Term t = Deref(ARG1), t0 = t; Term t = Deref(ARG1), t0 = t;
Term mod = Deref(ARG2); Term mod = Deref(ARG2);
@ -837,7 +850,7 @@ restart_exec:
} }
static Int static Int
p_execute_nonstop( USES_REGS1 ) execute_nonstop( USES_REGS1 )
{ /* '$execute_nonstop'(Goal,Mod) */ { /* '$execute_nonstop'(Goal,Mod) */
Term t = Deref(ARG1), t0 = t; Term t = Deref(ARG1), t0 = t;
Term mod = Deref(ARG2); Term mod = Deref(ARG2);
@ -959,7 +972,7 @@ slice_module_for_call_with_args(Term tin, Term *modp, int arity)
} }
static Int static Int
p_execute_0( USES_REGS1 ) execute_0( USES_REGS1 )
{ /* '$execute_0'(Goal) */ { /* '$execute_0'(Goal) */
Term mod = CurrentModule; Term mod = CurrentModule;
Term t = slice_module_for_call_with_args(Deref(ARG1),&mod,0); Term t = slice_module_for_call_with_args(Deref(ARG1),&mod,0);
@ -984,68 +997,68 @@ call_with_args(int i USES_REGS)
static Int static Int
p_execute_1( USES_REGS1 ) execute_1( USES_REGS1 )
{ /* '$execute_0'(Goal) */ { /* '$execute_0'(Goal) */
return call_with_args(1 PASS_REGS); return call_with_args(1 PASS_REGS);
} }
static Int static Int
p_execute_2( USES_REGS1 ) execute_2( USES_REGS1 )
{ /* '$execute_2'(Goal) */ { /* '$execute_2'(Goal) */
return call_with_args(2 PASS_REGS); return call_with_args(2 PASS_REGS);
} }
static Int static Int
p_execute_3( USES_REGS1 ) execute_3( USES_REGS1 )
{ /* '$execute_3'(Goal) */ { /* '$execute_3'(Goal) */
return call_with_args(3 PASS_REGS); return call_with_args(3 PASS_REGS);
} }
static Int static Int
p_execute_4( USES_REGS1 ) execute_4( USES_REGS1 )
{ /* '$execute_4'(Goal) */ { /* '$execute_4'(Goal) */
return call_with_args(4 PASS_REGS); return call_with_args(4 PASS_REGS);
} }
static Int static Int
p_execute_5( USES_REGS1 ) execute_5( USES_REGS1 )
{ /* '$execute_5'(Goal) */ { /* '$execute_5'(Goal) */
return call_with_args(5 PASS_REGS); return call_with_args(5 PASS_REGS);
} }
static Int static Int
p_execute_6( USES_REGS1 ) execute_6( USES_REGS1 )
{ /* '$execute_6'(Goal) */ { /* '$execute_6'(Goal) */
return call_with_args(6 PASS_REGS); return call_with_args(6 PASS_REGS);
} }
static Int static Int
p_execute_7( USES_REGS1 ) execute_7( USES_REGS1 )
{ /* '$execute_7'(Goal) */ { /* '$execute_7'(Goal) */
return call_with_args(7 PASS_REGS); return call_with_args(7 PASS_REGS);
} }
static Int static Int
p_execute_8( USES_REGS1 ) execute_8( USES_REGS1 )
{ /* '$execute_8'(Goal) */ { /* '$execute_8'(Goal) */
return call_with_args(8 PASS_REGS); return call_with_args(8 PASS_REGS);
} }
static Int static Int
p_execute_9( USES_REGS1 ) execute_9( USES_REGS1 )
{ /* '$execute_9'(Goal) */ { /* '$execute_9'(Goal) */
return call_with_args(9 PASS_REGS); return call_with_args(9 PASS_REGS);
} }
static Int static Int
p_execute_10( USES_REGS1 ) execute_10( USES_REGS1 )
{ /* '$execute_10'(Goal) */ { /* '$execute_10'(Goal) */
return call_with_args(10 PASS_REGS); return call_with_args(10 PASS_REGS);
} }
#ifdef DEPTH_LIMIT #ifdef DEPTH_LIMIT
static Int static Int
p_execute_depth_limit( USES_REGS1 ) { execute_depth_limit( USES_REGS1 ) {
Term d = Deref(ARG2); Term d = Deref(ARG2);
if (IsVarTerm(d)) { if (IsVarTerm(d)) {
Yap_Error(INSTANTIATION_ERROR,d,"depth_bound_call/2"); Yap_Error(INSTANTIATION_ERROR,d,"depth_bound_call/2");
@ -1060,12 +1073,12 @@ p_execute_depth_limit( USES_REGS1 ) {
} else { } else {
DEPTH = MkIntTerm(IntegerOfTerm(d)*2); DEPTH = MkIntTerm(IntegerOfTerm(d)*2);
} }
return p_execute( PASS_REGS1 ); return execute( PASS_REGS1 );
} }
#endif #endif
static Int static Int
p_pred_goal_expansion_on( USES_REGS1 ) { pred_goal_expansion_on( USES_REGS1 ) {
/* a goal needs expansion if we have goal_expansion defined or /* a goal needs expansion if we have goal_expansion defined or
if the goal is a meta-call */ if the goal is a meta-call */
return PRED_GOAL_EXPANSION_ON; return PRED_GOAL_EXPANSION_ON;
@ -1476,7 +1489,7 @@ restart_runtopgoal:
} }
static void static void
restore_regs(Term t, int restore_all USES_REGS) do_restore_regs(Term t, int restore_all USES_REGS)
{ {
if (IsApplTerm(t)) { if (IsApplTerm(t)) {
Int i; Int i;
@ -1497,7 +1510,7 @@ restore_regs(Term t, int restore_all USES_REGS)
/* low level voodoo to restore temporary registers after a call */ /* low level voodoo to restore temporary registers after a call */
static Int static Int
p_restore_regs( USES_REGS1 ) restore_regs( USES_REGS1 )
{ {
Term t = Deref(ARG1); Term t = Deref(ARG1);
if (IsVarTerm(t)) { if (IsVarTerm(t)) {
@ -1505,13 +1518,13 @@ p_restore_regs( USES_REGS1 )
return(FALSE); return(FALSE);
} }
if (IsAtomTerm(t)) return(TRUE); if (IsAtomTerm(t)) return(TRUE);
restore_regs(t, FALSE PASS_REGS); do_restore_regs(t, FALSE PASS_REGS);
return(TRUE); return(TRUE);
} }
/* low level voodoo to cut and then restore temporary registers after a call */ /* low level voodoo to cut and then restore temporary registers after a call */
static Int static Int
p_restore_regs2( USES_REGS1 ) restore_regs2( USES_REGS1 )
{ {
Term t = Deref(ARG1), d0; Term t = Deref(ARG1), d0;
@ -1524,7 +1537,7 @@ p_restore_regs2( USES_REGS1 )
} }
d0 = Deref(ARG2); d0 = Deref(ARG2);
if (!IsAtomTerm(t)) { if (!IsAtomTerm(t)) {
restore_regs(t, TRUE PASS_REGS); do_restore_regs(t, TRUE PASS_REGS);
} }
if (IsVarTerm(d0)) { if (IsVarTerm(d0)) {
Yap_Error(INSTANTIATION_ERROR,d0,"support for coroutining"); Yap_Error(INSTANTIATION_ERROR,d0,"support for coroutining");
@ -1565,7 +1578,7 @@ p_restore_regs2( USES_REGS1 )
} }
static Int static Int
p_clean_ifcp( USES_REGS1 ) { clean_ifcp( USES_REGS1 ) {
Term t = Deref(ARG1); Term t = Deref(ARG1);
choiceptr pt0; choiceptr pt0;
@ -1608,7 +1621,7 @@ static int disj_marker(yamop *apc) {
static Int static Int
p_cut_up_to_next_disjunction( USES_REGS1 ) { cut_up_to_next_disjunction( USES_REGS1 ) {
choiceptr pt0 = B; choiceptr pt0 = B;
CELL *qenv = (CELL *)ENV[E_E]; CELL *qenv = (CELL *)ENV[E_E];
@ -1790,13 +1803,13 @@ Yap_JumpToEnv(Term t) {
/* This does very nasty stuff!!!!! */ /* This does very nasty stuff!!!!! */
static Int static Int
p_jump_env( USES_REGS1 ) { jump_env( USES_REGS1 ) {
return(JumpToEnv(Deref(ARG1) PASS_REGS)); return(JumpToEnv(Deref(ARG1) PASS_REGS));
} }
/* set up a meta-call based on . context info */ /* set up a meta-call based on . context info */
static Int static Int
p_generate_pred_info( USES_REGS1 ) { generate_pred_info( USES_REGS1 ) {
ARG1 = ARG3 = ENV[-EnvSizeInCells-1]; ARG1 = ARG3 = ENV[-EnvSizeInCells-1];
ARG4 = ENV[-EnvSizeInCells-3]; ARG4 = ENV[-EnvSizeInCells-3];
ARG2 = cp_as_integer((choiceptr)ENV[E_CB] PASS_REGS); ARG2 = cp_as_integer((choiceptr)ENV[E_CB] PASS_REGS);
@ -1812,18 +1825,17 @@ Yap_InitYaamRegs( int myworker_id )
/* Guarantee that after a longjmp we go back to the original abstract /* Guarantee that after a longjmp we go back to the original abstract
machine registers */ machine registers */
#ifdef THREADS #ifdef THREADS
CACHE_REGS
if (myworker_id) { if (myworker_id) {
REGSTORE *rs = REMOTE_ThreadHandle(myworker_id).default_yaam_regs; REGSTORE *rs = REMOTE_ThreadHandle(myworker_id).default_yaam_regs;
pthread_setspecific(Yap_yaamregs_key, (const void *)rs); pthread_setspecific(Yap_yaamregs_key, (const void *)rs);
REMOTE_ThreadHandle(myworker_id).current_yaam_regs = rs; REMOTE_ThreadHandle(myworker_id).current_yaam_regs = rs;
REFRESH_CACHE_REGS
} }
/* may be run by worker_id on behalf on myworker_id */ /* may be run by worker_id on behalf on myworker_id */
#else #else
Yap_regp = &Yap_standard_regs; Yap_regp = &Yap_standard_regs;
#endif #endif
#endif /* PUSH_REGS */ #endif /* PUSH_REGS */
CACHE_REGS
Yap_ResetExceptionTerm ( myworker_id ); Yap_ResetExceptionTerm ( myworker_id );
Yap_PutValue (AtomBreak, MkIntTerm (0)); Yap_PutValue (AtomBreak, MkIntTerm (0));
TR = (tr_fr_ptr)REMOTE_TrailBase(myworker_id); TR = (tr_fr_ptr)REMOTE_TrailBase(myworker_id);
@ -1831,7 +1843,7 @@ Yap_InitYaamRegs( int myworker_id )
LCL0 = ASP = (CELL *) REMOTE_LocalBase(myworker_id); LCL0 = ASP = (CELL *) REMOTE_LocalBase(myworker_id);
CurrentTrailTop = (tr_fr_ptr)(REMOTE_TrailTop(myworker_id)-MinTrailGap); CurrentTrailTop = (tr_fr_ptr)(REMOTE_TrailTop(myworker_id)-MinTrailGap);
/* notice that an initial choice-point and environment /* notice that an initial choice-point and environment
*must* be created since for the garbage collector to work */ *must* be created for the garbage collector to work */
B = NULL; B = NULL;
ENV = NULL; ENV = NULL;
P = CP = YESCODE; P = CP = YESCODE;
@ -1886,7 +1898,7 @@ Yap_InitYaamRegs( int myworker_id )
} }
static Int static Int
p_uncaught_throw( USES_REGS1 ) uncaught_throw( USES_REGS1 )
{ {
Int out = LOCAL_UncaughtThrow; Int out = LOCAL_UncaughtThrow;
LOCAL_UncaughtThrow = FALSE; /* just caught it */ LOCAL_UncaughtThrow = FALSE; /* just caught it */
@ -1923,7 +1935,7 @@ Yap_GetException(void)
} }
static Int static Int
p_reset_exception( USES_REGS1 ) reset_exception( USES_REGS1 )
{ {
Term t; Term t;
EX = NULL; EX = NULL;
@ -1941,7 +1953,7 @@ Yap_ResetExceptionTerm(int wid)
} }
static Int static Int
p_get_exception( USES_REGS1 ) get_exception( USES_REGS1 )
{ {
Term t = Yap_GetException(); Term t = Yap_GetException();
if (!t) if (!t)
@ -1983,58 +1995,58 @@ Yap_InitExecFs(void)
CACHE_REGS CACHE_REGS
Term cm = CurrentModule; Term cm = CurrentModule;
Yap_InitComma(); Yap_InitComma();
Yap_InitCPred("$execute", 1, p_execute, 0); Yap_InitCPred("$execute", 1, execute, 0);
Yap_InitCPred("$execute", 2, p_execute2, 0); Yap_InitCPred("$execute", 2, execute2, 0);
Yap_InitCPred("$execute", 3, p_execute3, 0); Yap_InitCPred("$execute", 3, execute3, 0);
Yap_InitCPred("$execute", 4, p_execute4, 0); Yap_InitCPred("$execute", 4, execute4, 0);
Yap_InitCPred("$execute", 5, p_execute5, 0); Yap_InitCPred("$execute", 5, execute5, 0);
Yap_InitCPred("$execute", 6, p_execute6, 0); Yap_InitCPred("$execute", 6, execute6, 0);
Yap_InitCPred("$execute", 7, p_execute7, 0); Yap_InitCPred("$execute", 7, execute7, 0);
Yap_InitCPred("$execute", 8, p_execute8, 0); Yap_InitCPred("$execute", 8, execute8, 0);
Yap_InitCPred("$execute", 9, p_execute9, 0); Yap_InitCPred("$execute", 9, execute9, 0);
Yap_InitCPred("$execute", 10, p_execute10, 0); Yap_InitCPred("$execute", 10, execute10, 0);
Yap_InitCPred("$execute", 11, p_execute11, 0); Yap_InitCPred("$execute", 11, execute11, 0);
Yap_InitCPred("$execute", 12, p_execute12, 0); Yap_InitCPred("$execute", 12, execute12, 0);
Yap_InitCPred("$execute_in_mod", 2, p_execute_in_mod, 0); Yap_InitCPred("$execute_in_mod", 2, execute_in_mod, 0);
Yap_InitCPred("$execute_wo_mod", 2, p_execute_in_mod, 0); Yap_InitCPred("$execute_wo_mod", 2, execute_in_mod, 0);
Yap_InitCPred("call_with_args", 1, p_execute_0, 0); Yap_InitCPred("call_with_args", 1, execute_0, 0);
Yap_InitCPred("call_with_args", 2, p_execute_1, 0); Yap_InitCPred("call_with_args", 2, execute_1, 0);
Yap_InitCPred("call_with_args", 3, p_execute_2, 0); Yap_InitCPred("call_with_args", 3, execute_2, 0);
Yap_InitCPred("call_with_args", 4, p_execute_3, 0); Yap_InitCPred("call_with_args", 4, execute_3, 0);
Yap_InitCPred("call_with_args", 5, p_execute_4, 0); Yap_InitCPred("call_with_args", 5, execute_4, 0);
Yap_InitCPred("call_with_args", 6, p_execute_5, 0); Yap_InitCPred("call_with_args", 6, execute_5, 0);
Yap_InitCPred("call_with_args", 7, p_execute_6, 0); Yap_InitCPred("call_with_args", 7, execute_6, 0);
Yap_InitCPred("call_with_args", 8, p_execute_7, 0); Yap_InitCPred("call_with_args", 8, execute_7, 0);
Yap_InitCPred("call_with_args", 9, p_execute_8, 0); Yap_InitCPred("call_with_args", 9, execute_8, 0);
Yap_InitCPred("call_with_args", 10, p_execute_9, 0); Yap_InitCPred("call_with_args", 10, execute_9, 0);
Yap_InitCPred("call_with_args", 11, p_execute_10, 0); Yap_InitCPred("call_with_args", 11, execute_10, 0);
#ifdef DEPTH_LIMIT #ifdef DEPTH_LIMIT
Yap_InitCPred("$execute_under_depth_limit", 2, p_execute_depth_limit, 0); Yap_InitCPred("$execute_under_depth_limit", 2, execute_depth_limit, 0);
#endif #endif
Yap_InitCPred("$execute0", 2, p_execute0, NoTracePredFlag); Yap_InitCPred("$execute0", 2, execute0, NoTracePredFlag);
Yap_InitCPred("$execute_nonstop", 2, p_execute_nonstop,NoTracePredFlag ); Yap_InitCPred("$execute_nonstop", 2, execute_nonstop,NoTracePredFlag );
Yap_InitCPred("$execute_clause", 4, p_execute_clause, 0); Yap_InitCPred("$execute_clause", 4, execute_clause, NoTracePredFlag);
Yap_InitCPred("$current_choice_point", 1, p_save_cp, 0); Yap_InitCPred("$current_choice_point", 1, current_choice_point, 0);
Yap_InitCPred("$current_choicepoint", 1, p_save_cp, 0); Yap_InitCPred("$current_choicepoint", 1, current_choice_point, 0);
CurrentModule = HACKS_MODULE; CurrentModule = HACKS_MODULE;
Yap_InitCPred("current_choice_point", 1, p_save_cp, 0); Yap_InitCPred("current_choice_point", 1, current_choice_point, 0);
Yap_InitCPred("current_choicepoint", 1, p_save_cp, 0); Yap_InitCPred("current_choicepoint", 1, current_choice_point, 0);
Yap_InitCPred("env_choice_point", 1, p_save_env_b, 0); Yap_InitCPred("env_choice_point", 1, save_env_b, 0);
Yap_InitCPred("trail_suspension_marker", 1, p_trail_suspension_marker, 0); Yap_InitCPred("trail_suspension_marker", 1, trail_suspension_marker, 0);
Yap_InitCPred("cut_at", 1, p_clean_ifcp, SafePredFlag); Yap_InitCPred("cut_at", 1, clean_ifcp, SafePredFlag);
CurrentModule = cm; CurrentModule = cm;
Yap_InitCPred("$pred_goal_expansion_on", 0, p_pred_goal_expansion_on, SafePredFlag); Yap_InitCPred("$pred_goal_expansion_on", 0, pred_goal_expansion_on, SafePredFlag);
Yap_InitCPred("$restore_regs", 1, p_restore_regs, NoTracePredFlag|SafePredFlag); Yap_InitCPred("$restore_regs", 1, restore_regs, NoTracePredFlag|SafePredFlag);
Yap_InitCPred("$restore_regs", 2, p_restore_regs2, NoTracePredFlag|SafePredFlag); Yap_InitCPred("$restore_regs", 2, restore_regs2, NoTracePredFlag|SafePredFlag);
Yap_InitCPred("$clean_ifcp", 1, p_clean_ifcp, SafePredFlag); Yap_InitCPred("$clean_ifcp", 1, clean_ifcp, SafePredFlag);
Yap_InitCPred("qpack_clean_up_to_disjunction", 0, p_cut_up_to_next_disjunction, SafePredFlag); Yap_InitCPred("qpack_clean_up_to_disjunction", 0, cut_up_to_next_disjunction, SafePredFlag);
Yap_InitCPred("$jump_env_and_store_ball", 1, p_jump_env, 0); Yap_InitCPred("$jump_env_and_store_ball", 1, jump_env, 0);
Yap_InitCPred("$generate_pred_info", 4, p_generate_pred_info, 0); Yap_InitCPred("$generate_pred_info", 4, generate_pred_info, 0);
Yap_InitCPred("$uncaught_throw", 0, p_uncaught_throw, 0); Yap_InitCPred("$uncaught_throw", 0, uncaught_throw, 0);
Yap_InitCPred("$reset_exception", 1, p_reset_exception, 0); Yap_InitCPred("$reset_exception", 1, reset_exception, 0);
Yap_InitCPred("$do_goal_expansion", 3, p_do_goal_expansion, 0); Yap_InitCPred("$do_goal_expansion", 3, do_goal_expansion, 0);
Yap_InitCPred("$do_term_expansion", 2, p_do_term_expansion, 0); Yap_InitCPred("$do_term_expansion", 2, do_term_expansion, 0);
Yap_InitCPred("$get_exception", 1, p_get_exception, 0); Yap_InitCPred("$get_exception", 1, get_exception, 0);
} }