pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:841:   #define IS_THREAD_STEPPING(A) (A->stepping_mode)   struct svalue debugger_server = SVALUE_INIT_FREE;      static inline void low_debug_instr_prologue (PIKE_INSTR_T instr)   {    struct debug_breakpoint * bp;    struct pike_string *filep;    INT_TYPE linep;    int debug_retval = 0;    struct thread_state * th_state; -  +    #ifdef PIKE_DEBUG    /* This block exists solely to print some debug when we execute opcodes in a thread that's stepping,    or a program that contains breakpoints. */    th_state = thread_state_for_id(th_self());       /*    if((IS_THREAD_STEPPING(th_state)) || (bp = Pike_fp->context->prog->breakpoints) != NULL)    {    char *file = NULL, *f;    struct pike_string *filep2;
pike.git/src/interpret.c:875: Inside #if defined(PIKE_DEBUG)
   Pike_sp-Pike_interpreter.evaluator_stack,    Pike_mark_sp-Pike_interpreter.mark_stack);    free_string(filep2);       printf("pro: %p, %p %p, %p\n", bp_prog, Pike_fp->context->prog, bp_offset, Pike_fp->pc - Pike_fp->context->prog->program);    }   */       /* This block performs the actual breakpoint/step behavior */    if((IS_THREAD_STEPPING(th_state)) || (bp = Pike_fp->context->prog->breakpoints) != NULL ) { +  INT_TYPE linep; +  struct pike_string * linefile = get_line(Pike_fp->pc, +  Pike_fp->context->prog, +  &linep); +  printf("linep: %s:%d\n", linefile->str, linep); +  printf("pro: %p, %p %p, %p\n", bp_prog, Pike_fp->context->prog, bp_offset, Pike_fp->pc - Pike_fp->context->prog->program); +     int pause_here = 0;    if(IS_THREAD_STEPPING(th_state)) {    pause_here = 1;    } else {    while(bp != NULL) {    if(bp->offset == (Pike_fp->pc - Pike_fp->context->prog->program)) {    pause_here = 1;    break;    }    bp = bp->next;