// Stuff that must be considered local to a thread or worker START_WORKER_LOCAL // Streams int c_input_stream =0 int c_output_stream =1 int c_error_stream =2 // Restore info CELL* OldASP =NULL CELL* OldLCL0 =NULL tr_fr_ptr OldTR =NULL CELL* OldGlobalBase =NULL CELL* OldH =NULL CELL* OldH0 =NULL ADDR OldTrailBase =NULL ADDR OldTrailTop =NULL ADDR OldHeapBase =NULL ADDR OldHeapTop =NULL Int ClDiff =0L Int GDiff =0L Int HDiff =0L Int GDiff0 =0L CELL* GSplit =NULL Int LDiff =0L Int TrDiff =0L Int XDiff =0L Int DelayDiff =0L Int BaseDiff =0L // Reduction counters YAP_ULONG_LONG ReductionsCounter =0L YAP_ULONG_LONG PredEntriesCounter =0L YAP_ULONG_LONG RetriesCounter =0L int ReductionsCounterOn =0L int PredEntriesCounterOn =0L int RetriesCounterOn =0L // support for consulting files /* current consult stack */ union CONSULT_OBJ* ConsultSp =NULL /* current maximum number of cells in consult stack */ UInt ConsultCapacity void /* top of consult stack */ union CONSULT_OBJ* ConsultBase =NULL /* low-water mark for consult */ union CONSULT_OBJ* ConsultLow =NULL //global variables Term GlobalArena =0L TermToGlobalOrAtomAdjust UInt GlobalArenaOverflows =0L Int ArenaOverflows =0L Int DepthArenas =0 int ArithError =FALSE struct pred_entry* LastAssertedPred =NULL int DebugOn =FALSE char* ScannerStack =NULL struct scanner_extra_alloc* ScannerExtraBlocks =NULL struct DB_TERM* BallTerm =NULL RestoreBallTerm(wid) UInt ActiveSignals =0L UInt IPredArity =0L yamop* ProfEnd =NULL int UncaughtThrow =FALSE int DoingUndefp =FALSE Int StartLine =0L scratch_block ScratchPad InitScratchPad(wid) #ifdef COROUTINING Term WokenGoals =0L TermToGlobalAdjust Term AttsMutableList =0L TermToGlobalAdjust #endif // gc_stuff Term GcGeneration =0L TermToGlobalAdjust Term GcPhase =0L TermToGlobalAdjust UInt GcCurrentPhase =0L UInt GcCalls =0L Int TotGcTime =0L YAP_ULONG_LONG TotGcRecovered =0L Int LastGcTime =0L Int LastSSTime =0L CELL* OpenArray =NULL /* in a single gc */ Int total_marked =0L Int total_oldies =0L struct choicept* current_B =NULL CELL* prev_HB =NULL CELL* HGEN =NULL CELL** iptop =NULL #if defined(GC_NO_TAGS) char* bp =NULL #endif tr_fr_ptr sTR =NULL tr_fr_ptr sTR0 =NULL tr_fr_ptr new_TR =NULL struct gc_mark_continuation* cont_top0 =NULL struct gc_mark_continuation* cont_top =NULL int discard_trail_entries =0 gc_ma_hash_entry gc_ma_hash_table[GC_MAVARS_HASH_SIZE] void gc_ma_hash_entry* gc_ma_h_top =NULL gc_ma_hash_entry* gc_ma_h_list =NULL UInt gc_timestamp =0L ADDR db_vec =NULL ADDR db_vec0 =NULL struct RB_red_blk_node* db_root =NULL struct RB_red_blk_node* db_nil =NULL sigjmp_buf gc_restore void CELL* extra_gc_cells void CELL* extra_gc_cells_base void CELL* extra_gc_cells_top void UInt extra_gc_cells_size =256 struct array_entry* DynamicArrays =NULL PtoArrayEAdjust struct static_array_entry* StaticArrays =NULL PtoArraySAdjust struct global_entry* GlobalVariables =NULL PtoGlobalEAdjust int AllowRestart =FALSE // Thread Local Area for Fast Storage of Intermediate Compiled Code struct mem_blk* CMemFirstBlock =NULL UInt CMemFirstBlockSz =0L // Variable used by the compiler to store number of permanent vars in a clause int nperm =0L // Thread Local Area for Labels Int* LabelFirstArray =NULL UInt LabelFirstArraySz =0L // Thread Local Area for SWI-Prolog emulation routines. struct PL_local_data* PL_local_data_p =Yap_InitThreadIO(wid) #ifdef THREADS struct thandle ThreadHandle InitThreadHandle(wid) #endif /* THREADS */ #if defined(YAPOR) || defined(TABLING) struct local_optyap_data optyap_data Yap_init_local_optyap_data(wid) #endif /* YAPOR || TABLING */ int InterruptsDisabled =FALSE struct open_query_struct* execution =NULL #if LOW_LEVEL_TRACER Int total_choicepoints =0 #endif int consult_level =0 #if defined(YAPOR) || defined(THREADS) lockvar SignalLock MkLock #endif // Variables related to memory allocation ADDR LocalBase void ADDR GlobalBase void ADDR TrailBase void ADDR TrailTop void char* ErrorMessage void Term Error_Term void #ifdef THREADS Term Error_TYPE void #else yap_error_number Error_TYPE void #endif UInt Error_Size void char ErrorSay[MAX_ERROR_MSG_SIZE] void jmp_buf IOBotch void TokEntry* tokptr void TokEntry* toktide void VarEntry* VarTable void VarEntry* AnonVarTable void Term Comments void CELL* CommentsTail void CELL* CommentsNextChar void wchar_t* CommentsBuff void size_t CommentsBuffPos void size_t CommentsBuffLim void sigjmp_buf RestartEnv void char FileNameBuf[YAP_FILENAME_MAX] void char FileNameBuf2[YAP_FILENAME_MAX] void // Prolog State Int PrologMode =BootMode int CritLocks =0 //analyst.c /* used to find out how many instructions of each kind are executed */ #ifdef ANALYST YAP_ULONG_LONG opcount[_std_top+1] void YAP_ULONG_LONG 2opcount[_std_top+1][_std_top+1] void #endif /* ANALYST */ //dbase.c struct db_globs* s_dbg void //eval.c yap_error_number matherror =YAP_NO_ERROR yap_error_number CurrentError =YAP_NO_ERROR //grow.c int heap_overflows =0 Int total_heap_overflow_time =0 int stack_overflows =0 Int total_stack_overflow_time =0 int delay_overflows =0 Int total_delay_overflow_time =0 int trail_overflows =0 Int total_trail_overflow_time =0 int atom_table_overflows =0 Int total_atom_table_overflow_time =0 //load_dyld #ifdef LOAD_DYLD int dl_errno =0 #endif //tracer.c #ifdef LOW_LEVEL_TRACER int do_trace_primitives =TRUE #endif //quick loader struct export_atom_hash_entry_struct *ExportAtomHashChain =NULL UInt ExportAtomHashTableSize =0 UInt ExportAtomHashTableNum =0 struct export_functor_hash_entry_struct *ExportFunctorHashChain =NULL UInt ExportFunctorHashTableSize =0 UInt ExportFunctorHashTableNum =0 struct export_pred_entry_hash_entry_struct *ExportPredEntryHashChain =NULL UInt ExportPredEntryHashTableSize =0 UInt ExportPredEntryHashTableNum =0 struct export_dbref_hash_entry_struct *ExportDBRefHashChain =NULL UInt ExportDBRefHashTableSize =0 UInt ExportDBRefHashTableNum =0 struct import_atom_hash_entry_struct **ImportAtomHashChain =NULL UInt ImportAtomHashTableSize =0 UInt ImportAtomHashTableNum =0 struct import_functor_hash_entry_struct **ImportFunctorHashChain =NULL UInt ImportFunctorHashTableSize =0 UInt ImportFunctorHashTableNum =0 struct import_opcode_hash_entry_struct **ImportOPCODEHashChain =NULL UInt ImportOPCODEHashTableSize =0 struct import_pred_entry_hash_entry_struct **ImportPredEntryHashChain =NULL UInt ImportPredEntryHashTableSize =0 UInt ImportPredEntryHashTableNum =0 struct import_dbref_hash_entry_struct **ImportDBRefHashChain =NULL UInt ImportDBRefHashTableSize =0 UInt ImportDBRefHashTableNum =0 yamop *ImportFAILCODE =NULL Functor FunctorVar =FunctorVar // exo indexingxb UInt ibnds[256] void BITS32* exo_base =NULL UInt exo_arity =0 UInt exo_arg =0 // atom completion struct scan_atoms* search_atoms void END_WORKER_LOCAL