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

make low level tracer understand yapor.

Browse Source
This commit is contained in:
Costa Vitor 2009-08-19 23:46:51 -05:00
parent 4c9f440b07
commit 3cbdc8d14a
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/init.c
View File

@ -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;

4
H/Heap.h
View File

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

2
H/tracer.h
View File

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