Branch: Tag:

2000-05-03

2000-05-03 09:03:16 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug

Rev: src/interpret.c:1.151
Rev: src/interpreter.h:1.46

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.150 2000/05/01 10:28:26 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.151 2000/05/03 09:03:16 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
484:   }      #ifdef PIKE_DEBUG - #define BACKLOG 512 + #define BACKLOG 1024   struct backlog   {    INT32 instruction;
494: Inside #if defined(_REENTRANT)
  #ifdef _REENTRANT    struct object *thread_id;   #endif +  int stack; +  int mark_stack;   };      struct backlog backlog[BACKLOG];
539:    }       -  if(instrs[backlog[e].instruction].flags & I_HASARG2) -  { -  fprintf(stderr,"%s:%ld: %s(%ld,%ld)\n", +  fprintf(stderr,"%s:%ld: %s",    file,    (long)line, -  low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program), +  low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program)); +  if(instrs[backlog[e].instruction].flags & I_HASARG2) +  { +  fprintf(stderr,"(%ld,%ld)",    (long)backlog[e].arg,    (long)backlog[e].arg2);    }    else if(instrs[backlog[e].instruction].flags & I_HASARG)    { -  fprintf(stderr,"%s:%ld: %s(%ld)\n", -  file, -  (long)line, -  low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program), -  (long)backlog[e].arg); -  }else{ -  fprintf(stderr,"%s:%ld: %s\n", -  file, -  (long)line, -  low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program)); +  fprintf(stderr,"(%ld)", (long)backlog[e].arg);    } -  +  fprintf(stderr," %d, %d", backlog[e].stack, backlog[e].mark_stack);    }    }while(e!=backlogp);   }