#if defined(YAPOR) || defined(THREADS) Yap_heap_regs->n_of_threads = 1; Yap_heap_regs->n_of_threads_created = 1; Yap_heap_regs->threads_total_time = 0L; INIT_LOCK(Yap_heap_regs->bgl); #ifndef WL #define WL wl[worker_id] #endif #else #ifndef WL #define WL wl #endif #endif #ifdef THREADS INIT_LOCK(Yap_heap_regs->thread_handles_lock); InitThreadHandles(); #endif #if USE_DL_MALLOC #endif #if USE_DL_MALLOC || (USE_SYSTEM_MALLOC && HAVE_MALLINFO) #ifndef HeapUsed #define HeapUsed Yap_givemallinfo() #endif #else #endif #if defined(YAPOR) || defined(THREADS) INIT_LOCK(Yap_heap_regs->free_blocks_lock); INIT_LOCK(Yap_heap_regs->heap_used_lock); INIT_LOCK(Yap_heap_regs->heap_top_lock); Yap_heap_regs->heap_top_owner = -1; #endif #if USE_THREADED_CODE #endif Yap_heap_regs->execute_cpred_op_code = Yap_opcode(_execute_cpred); Yap_heap_regs->expand_op_code = Yap_opcode(_expand_index); Yap_heap_regs->fail_op = Yap_opcode(_op_fail); Yap_heap_regs->index_op = Yap_opcode(_index_pred); Yap_heap_regs->lockpred_op = Yap_opcode(_lock_pred); Yap_heap_regs->undef_op = Yap_opcode(_undef_p); InitInvisibleAtoms(); InitWideAtoms(); InitAtoms(); #include "iatoms.h" #ifdef EUROTRA Yap_heap_regs->term_dollar_u = MkAtomTerm(AtomDollarU); #endif Yap_heap_regs->term_prolog = MkAtomTerm(AtomProlog); Yap_heap_regs->term_refound_var = MkAtomTerm(AtomRefoundVar); Yap_heap_regs->user_module = MkAtomTerm(AtomUser); Yap_heap_regs->idb_module = MkAtomTerm(AtomIDB); Yap_heap_regs->attributes_module = MkAtomTerm(AtomAttributes); Yap_heap_regs->charsio_module = MkAtomTerm(AtomCharsio); Yap_heap_regs->terms_module = MkAtomTerm(AtomTerms); Yap_heap_regs->system_module = MkAtomTerm(AtomSystem); Yap_heap_regs->readutil_module = MkAtomTerm(AtomReadutil); Yap_heap_regs->hacks_module = MkAtomTerm(AtomYapHacks); Yap_heap_regs->arg_module = MkAtomTerm(AtomArg); Yap_heap_regs->globals_module = MkAtomTerm(AtomNb); Yap_heap_regs->swi_module = MkAtomTerm(AtomSwi); Yap_heap_regs->current_modules = NULL; Yap_InitModules(); Yap_heap_regs->execution_mode = INTERPRETED; InitPredHash(); #if defined(YAPOR) || defined(THREADS) #endif Yap_heap_regs->preds_in_hash_table = 0; Yap_heap_regs->creep_code = RepPredProp(PredPropByFunc(Yap_MkFunctor(AtomCreep,1),PROLOG_MODULE)); Yap_heap_regs->undef_code = RepPredProp(PredPropByFunc(Yap_MkFunctor(AtomUndefp,1),PROLOG_MODULE)); Yap_heap_regs->spy_code = RepPredProp(PredPropByFunc(Yap_MkFunctor(AtomSpy,1),PROLOG_MODULE)); Yap_heap_regs->pred_fail = RepPredProp(PredPropByAtom(AtomFail,PROLOG_MODULE)); Yap_heap_regs->pred_true = RepPredProp(PredPropByAtom(AtomTrue,PROLOG_MODULE)); #ifdef COROUTINING Yap_heap_regs->wake_up_code = RepPredProp(PredPropByFunc(Yap_MkFunctor(AtomWakeUpGoal,2),PROLOG_MODULE)); #endif Yap_heap_regs->pred_goal_expansion = RepPredProp(PredPropByFunc(FunctorGoalExpansion,USER_MODULE)); Yap_heap_regs->pred_meta_call = RepPredProp(PredPropByFunc(FunctorMetaCall,PROLOG_MODULE)); Yap_heap_regs->pred_dollar_catch = RepPredProp(PredPropByFunc(FunctorCatch,PROLOG_MODULE)); Yap_heap_regs->pred_recorded_with_key = RepPredProp(PredPropByFunc(FunctorRecordedWithKey,PROLOG_MODULE)); Yap_heap_regs->pred_log_upd_clause = RepPredProp(PredPropByFunc(FunctorDoLogUpdClause,PROLOG_MODULE)); Yap_heap_regs->pred_log_upd_clause_erase = RepPredProp(PredPropByFunc(FunctorDoLogUpdClauseErase,PROLOG_MODULE)); Yap_heap_regs->pred_log_upd_clause0 = RepPredProp(PredPropByFunc(FunctorDoLogUpdClause,PROLOG_MODULE)); Yap_heap_regs->pred_static_clause = RepPredProp(PredPropByFunc(FunctorDoStaticClause,PROLOG_MODULE)); Yap_heap_regs->pred_throw = RepPredProp(PredPropByFunc(FunctorThrow,PROLOG_MODULE)); Yap_heap_regs->pred_handle_throw = RepPredProp(PredPropByFunc(FunctorHandleThrow,PROLOG_MODULE)); Yap_heap_regs->pred_is = RepPredProp(PredPropByFunc(FunctorIs,PROLOG_MODULE)); #ifdef YAPOR Yap_heap_regs->pred_getwork = RepPredProp(PredPropByAtom(AtomGetwork,PROLOG_MODULE)); Yap_heap_regs->pred_getwork_seq = RepPredProp(PredPropByAtom(AtomGetworkSeq,PROLOG_MODULE)); #endif /* YAPOR */ #ifdef LOW_LEVEL_TRACER Yap_heap_regs->yap_do_low_level_trace = FALSE; #if defined(YAPOR) || defined(THREADS) INIT_LOCK(Yap_heap_regs->low_level_trace_lock); #endif #endif Yap_heap_regs->clause_space = 0; Yap_heap_regs->index_space_Tree = 0; Yap_heap_regs->index_space_EXT = 0; Yap_heap_regs->index_space_SW = 0; Yap_heap_regs->lu_clause_space = 0; Yap_heap_regs->lu_index_space_Tree = 0; Yap_heap_regs->lu_index_space_CP = 0; Yap_heap_regs->lu_index_space_EXT = 0; Yap_heap_regs->lu_index_space_SW = 0; Yap_heap_regs->dummycode->opc = Yap_opcode(_op_fail); Yap_heap_regs->failcode->opc = Yap_opcode(_op_fail); Yap_heap_regs->nocode->opc = Yap_opcode(_Nstop); InitEnvInst(ENV_FOR_TRUSTFAIL,&TRUSTFAILCODE,_trust_fail,PredFail); InitEnvInst(ENV_FOR_YESCODE,&YESCODE,_Ystop,PredFail); InitOtaplInst(RTRYCODE,_retry_and_mark,PredFail); #ifdef BEAM Yap_heap_regs->beam_retry_code->opc = Yap_opcode(_beam_retry_code); #endif /* BEAM */ #ifdef YAPOR Yap_heap_regs->seq_def = TRUE; InitOtaplInst(GETWORK,_getwork,PredGetwork); InitOtaplInst(GETWORK_SEQ,_getwork_seq,PredGetworkSeq); Yap_heap_regs->getwork_first_time->opc = Yap_opcode(_getwork_first_time); #endif /* YAPOR */ #ifdef TABLING InitOtaplInst(LOAD_ANSWER,_table_load_answer,PredFail); InitOtaplInst(TRY_ANSWER,_table_try_answer,PredFail); InitOtaplInst(ANSWER_RESOLUTION,_table_answer_resolution,PredFail); InitOtaplInst(COMPLETION,_table_completion,PredFail); #endif /* TABLING */ Yap_heap_regs->debugger_p_before_spy = NULL; Yap_heap_regs->retry_recordedp_code = NULL; Yap_heap_regs->retry_recorded_k_code = NULL; Yap_heap_regs->system_profiling = FALSE; Yap_heap_regs->system_call_counting = FALSE; Yap_heap_regs->system_pred_goal_expansion_all = FALSE; Yap_heap_regs->system_pred_goal_expansion_func = FALSE; Yap_heap_regs->system_pred_goal_expansion_on = FALSE; Yap_heap_regs->compiler_optimizer_on = TRUE; Yap_heap_regs->compiler_compile_mode = 0; Yap_heap_regs->compiler_profiling = FALSE; Yap_heap_regs->compiler_call_counting = FALSE; Yap_heap_regs->compiler_compile_arrays = FALSE; #if defined(YAPOR) || defined(THREADS) INIT_LOCK(Yap_heap_regs->dbterms_list_lock); #endif Yap_heap_regs->dbterms_list = NULL; Yap_heap_regs->expand_clauses_first = NULL; Yap_heap_regs->expand_clauses_last = NULL; Yap_heap_regs->expand_clauses = 0; #if defined(YAPOR) || defined(THREADS) INIT_LOCK(Yap_heap_regs->expand_clauses_list_lock); INIT_LOCK(Yap_heap_regs->op_list_lock); #endif #ifdef DEBUG Yap_heap_regs->new_cps = 0L; Yap_heap_regs->live_cps = 0L; Yap_heap_regs->dirty_cps = 0L; Yap_heap_regs->freed_cps = 0L; #endif Yap_heap_regs->expand_clauses_sz = 0L; Yap_heap_regs->udi_control_blocks = NULL; Yap_heap_regs->static_predicates_marked = FALSE; Yap_heap_regs->IntKeys = NULL; Yap_heap_regs->IntLUKeys = NULL; Yap_heap_regs->IntBBKeys = NULL; Yap_heap_regs->int_keys_size = INT_KEYS_DEFAULT_SIZE; Yap_heap_regs->int_keys_timestamp = 0L; Yap_heap_regs->int_bb_keys_size = INT_KEYS_DEFAULT_SIZE; Yap_heap_regs->update_mode = UPDATE_MODE_LOGICAL; InitDBErasedMarker(); InitLogDBErasedMarker(); Yap_heap_regs->dead_static_clauses = NULL; Yap_heap_regs->dead_mega_clauses = NULL; Yap_heap_regs->dead_static_indices = NULL; Yap_heap_regs->db_erased_list = NULL; Yap_heap_regs->db_erased_ilist = NULL; #if defined(YAPOR) || defined(THREADS) INIT_LOCK(Yap_heap_regs->dead_static_clauses_lock); INIT_LOCK(Yap_heap_regs->dead_mega_clauses_lock); INIT_LOCK(Yap_heap_regs->dead_static_indices_lock); #endif #ifdef COROUTINING Yap_heap_regs->num_of_atts = 1; #endif Yap_heap_regs->allow_local_expansion = TRUE; Yap_heap_regs->allow_global_expansion = TRUE; Yap_heap_regs->allow_trail_expansion = TRUE; Yap_heap_regs->size_of_overflow = 0; Yap_heap_regs->global_hold_entry = Yap_InitAtomHold(); Yap_heap_regs->agc_last_call = 0; Yap_heap_regs->agc_threshold = 10000; Yap_heap_regs->agc_hook = NULL; InitFlags(); Yap_heap_regs->op_list = NULL; Yap_heap_regs->yap_streams = NULL; Yap_heap_regs->n_of_file_aliases = 0; Yap_heap_regs->sz_of_file_aliases = 0; Yap_heap_regs->file_aliases = NULL; Yap_heap_regs->atprompt = AtomNil; #if HAVE_LIBREADLINE Yap_heap_regs->readline_buf = NULL; Yap_heap_regs->readline_pos = 0L; #endif Yap_heap_regs->char_conversion_table = NULL; Yap_heap_regs->char_conversion_table2 = NULL; Yap_heap_regs->maxdepth = 0L; Yap_heap_regs->axlist = 0L; Yap_heap_regs->maxwriteargs = 0L; Yap_heap_regs->parser_error_style = EXCEPTION_ON_PARSER_ERROR; Yap_heap_regs->yap_lib_dir = NULL; Yap_heap_regs->last_wtime = NULL; Yap_heap_regs->debugger_output_msg = 0L; #if LOW_PROF Yap_heap_regs->profiler_on = FALSE; Yap_heap_regs->offline_profiler = FALSE; Yap_heap_regs->f_prof = NULL; Yap_heap_regs->f_preds = NULL; Yap_heap_regs->prof_preds = 0L; #endif /* LOW_PROF */ Yap_heap_regs->foreign_code_loaded = NULL; Yap_heap_regs->foreign_code_base = NULL; Yap_heap_regs->foreign_code_top = NULL; Yap_heap_regs->foreign_code_max = NULL;