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

avoid undefined predicates

Browse Source
This commit is contained in:
Vitor Santos Costa 2015-02-14 17:13:42 +00:00
parent 0d955797fe
commit 3d6c0e7933
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
OPTYap/opt.preds.c
View File

@ -51,10 +51,10 @@ static Int p_show_statistics_tabling( USES_REGS1 );
static Int p_show_statistics_global_trie( USES_REGS1 ); static Int p_show_statistics_global_trie( USES_REGS1 );
#endif /* TABLING */ #endif /* TABLING */
static Int p_yapor_workers( USES_REGS1 );
#ifdef YAPOR #ifdef YAPOR
static Int p_parallel_mode( USES_REGS1 ); static Int p_parallel_mode( USES_REGS1 );
static Int p_yapor_start( USES_REGS1 ); static Int p_yapor_start( USES_REGS1 );
static Int p_yapor_workers( USES_REGS1 );
static Int p_worker( USES_REGS1 ); static Int p_worker( USES_REGS1 );
static Int p_parallel_new_answer( USES_REGS1 ); static Int p_parallel_new_answer( USES_REGS1 );
static Int p_parallel_get_answers( USES_REGS1 ); static Int p_parallel_get_answers( USES_REGS1 );
@ -199,6 +199,7 @@ struct page_statistics {
*******************************/ *******************************/
void Yap_init_optyap_preds(void) { void Yap_init_optyap_preds(void) {
Yap_InitCPred("$c_yapor_workers", 1, p_yapor_workers, SafePredFlag|SyncPredFlag);
#ifdef TABLING #ifdef TABLING
Yap_InitCPred("freeze_choice_point", 1, p_freeze_choice_point, SafePredFlag|SyncPredFlag); Yap_InitCPred("freeze_choice_point", 1, p_freeze_choice_point, SafePredFlag|SyncPredFlag);
Yap_InitCPred("wake_choice_point", 1, p_wake_choice_point, SafePredFlag|SyncPredFlag); Yap_InitCPred("wake_choice_point", 1, p_wake_choice_point, SafePredFlag|SyncPredFlag);
@ -227,7 +228,6 @@ predicates. The predicates remain as tabled predicates.
#ifdef YAPOR #ifdef YAPOR
Yap_InitCPred("parallel_mode", 1, p_parallel_mode, SafePredFlag|SyncPredFlag); Yap_InitCPred("parallel_mode", 1, p_parallel_mode, SafePredFlag|SyncPredFlag);
Yap_InitCPred("$c_yapor_start", 0, p_yapor_start, SafePredFlag|SyncPredFlag); Yap_InitCPred("$c_yapor_start", 0, p_yapor_start, SafePredFlag|SyncPredFlag);
Yap_InitCPred("$c_yapor_workers", 1, p_yapor_workers, SafePredFlag|SyncPredFlag);
Yap_InitCPred("$c_worker", 0, p_worker, SafePredFlag|SyncPredFlag); Yap_InitCPred("$c_worker", 0, p_worker, SafePredFlag|SyncPredFlag);
Yap_InitCPred("$c_parallel_new_answer", 1, p_parallel_new_answer, SafePredFlag|SyncPredFlag); Yap_InitCPred("$c_parallel_new_answer", 1, p_parallel_new_answer, SafePredFlag|SyncPredFlag);
Yap_InitCPred("$c_parallel_get_answers", 1, p_parallel_get_answers, SafePredFlag|SyncPredFlag); Yap_InitCPred("$c_parallel_get_answers", 1, p_parallel_get_answers, SafePredFlag|SyncPredFlag);
@ -841,12 +841,18 @@ static Int p_show_statistics_or( USES_REGS1 ) {
PL_release_stream(out); PL_release_stream(out);
return (TRUE); return (TRUE);
} }
#else
static Int p_yapor_workers( USES_REGS1 ) {
return FALSE;
}
#endif /* YAPOR */ #endif /* YAPOR */
/********************************** /**********************************
** OPTYap C Predicates ** ** OPTYap C Predicates **
**********************************/ **********************************/
#if defined(YAPOR) && defined(TABLING) #if defined(YAPOR) && defined(TABLING)