kdebugging stuff
This commit is contained in:
parent
ea99d42897
commit
0ea61e8f1a
@ -141,9 +141,13 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
|
|||||||
Int arity;
|
Int arity;
|
||||||
/* extern int gc_calls; */
|
/* extern int gc_calls; */
|
||||||
|
|
||||||
|
|
||||||
|
// if (!worker_id) return;
|
||||||
LOCK(Yap_heap_regs->low_level_trace_lock);
|
LOCK(Yap_heap_regs->low_level_trace_lock);
|
||||||
sc = Yap_heap_regs;
|
sc = Yap_heap_regs;
|
||||||
vsc_count++;
|
vsc_count++;
|
||||||
|
//if (vsc_count == 54) jmp_deb(1);
|
||||||
|
// fprintf(stderr,"B=%p ", B);
|
||||||
#ifdef THREADS
|
#ifdef THREADS
|
||||||
LOCAL_ThreadHandle.thread_inst_count++;
|
LOCAL_ThreadHandle.thread_inst_count++;
|
||||||
#endif
|
#endif
|
||||||
|
@ -438,7 +438,6 @@ parse_quasi_quotations(ReadData _PL_rd ARG_LD)
|
|||||||
{ if ( _PL_rd->qq_tail )
|
{ if ( _PL_rd->qq_tail )
|
||||||
{ term_t av;
|
{ term_t av;
|
||||||
int rc;
|
int rc;
|
||||||
printf("h5\n");
|
|
||||||
|
|
||||||
if ( !PL_unify_nil(_PL_rd->qq_tail) )
|
if ( !PL_unify_nil(_PL_rd->qq_tail) )
|
||||||
return FALSE;
|
return FALSE;
|
||||||
|
Reference in New Issue
Block a user