yap-6.3/misc/LOCALS

// 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

/* 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
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

// 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

//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

END_WORKER_LOCAL