diff --git a/C/init.c b/C/init.c index a87f3091a..5ef68a94e 100644 --- a/C/init.c +++ b/C/init.c @@ -203,10 +203,6 @@ int Yap_Portray_delays = FALSE; #endif #endif -#ifdef LOW_LEVEL_TRACER -int Yap_do_low_level_trace = FALSE; -#endif - #define xfx 1 #define xfy 2 #define yfx 3 @@ -1025,6 +1021,7 @@ InitCodes(void) Yap_heap_regs->expand_op_code = Yap_opcode(_expand_index); INIT_LOCK(Yap_heap_regs->expand_clauses_list_lock); #ifdef LOW_LEVEL_TRACER + Yap_heap_regs->yap_do_low_level_trace = FALSE; INIT_LOCK(Yap_heap_regs->low_level_trace_lock); #endif Yap_heap_regs->expand_clauses_first = NULL; diff --git a/H/Heap.h b/H/Heap.h index 1f243237c..f60002c29 100644 --- a/H/Heap.h +++ b/H/Heap.h @@ -369,6 +369,7 @@ typedef struct various_codes { lockvar dbterms_list_lock; /* protect DBTermList */ int heap_top_owner; #ifdef LOW_LEVEL_TRACER + int yap_do_low_level_trace; lockvar low_level_trace_lock; #endif #endif @@ -475,6 +476,9 @@ extern struct various_codes *Yap_heap_regs; #define Yap_HoleSize Yap_heap_regs->hole_size #define Yap_av Yap_heap_regs->av_ +#if defined(LOW_LEVEL_TRACER) +#define Yap_do_low_level_trace Yap_heap_regs->yap_do_low_level_trace +#endif #define Yap_ExecutionMode Yap_heap_regs->execution_mode #define Yap_AttsSize Yap_heap_regs->atts_size #define Yap_ClauseSpace Yap_heap_regs->clause_space diff --git a/H/tracer.h b/H/tracer.h index 6c9aa6518..d2e49b739 100644 --- a/H/tracer.h +++ b/H/tracer.h @@ -31,8 +31,6 @@ void STD_PROTO(low_level_trace,(yap_low_level_port, PredEntry *, CELL *)); void STD_PROTO(Yap_InitLowLevelTrace,(void)); void STD_PROTO(toggle_low_level_trace,(void)); -extern int Yap_do_low_level_trace; - #endif