pike.git/ src/ interpret.c

2000-04-21

2000-04-21 23:07:10 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 8eaef5e6f2011acaafc332ee31da3e2ee760027c (34 lines) (+29/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

Pike_in_gc renumbered to PASS * 100 + subpass

Rev: src/gc.c:1.77
Rev: src/interpret.c:1.147
Rev: src/interpreter.h:1.45
Rev: src/object.c:1.118
Rev: src/threads.h:1.88

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.146 2000/04/21 20:08:08 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.147 2000/04/21 23:07:10 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
491:    INT32 arg,arg2;    struct program *program;    unsigned char *pc; + #ifdef _REENTRANT +  struct object *thread_id; + #endif   };      struct backlog backlog[BACKLOG];
516:    file=get_line(backlog[e].pc-1,backlog[e].program, &line);    if(backlog[e].instruction < 0 || backlog[e].instruction+F_OFFSET > F_MAX_OPCODE)    { -  fprintf(stderr,"%s:%ld: ILLEGAL INSTRUCTION %d\n", +  fprintf(stderr,"%s:%ld: %p ILLEGAL INSTRUCTION %d\n",    file,    (long)line, -  + #ifdef _REENTRANT +  backlog[e].thread_id, + #else +  0, + #endif    backlog[e].instruction + F_OFFSET);    continue;    }
526:       if(instrs[backlog[e].instruction].flags & I_HASARG2)    { -  fprintf(stderr,"%s:%ld: %s(%ld,%ld)\n", +  fprintf(stderr,"%s:%ld: %p %s(%ld,%ld)\n",    file,    (long)line, -  + #ifdef _REENTRANT +  backlog[e].thread_id, + #else +  0, + #endif    low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program),    (long)backlog[e].arg,    (long)backlog[e].arg2);    }    else if(instrs[backlog[e].instruction].flags & I_HASARG)    { -  fprintf(stderr,"%s:%ld: %s(%ld)\n", +  fprintf(stderr,"%s:%ld: %p %s(%ld)\n",    file,    (long)line, -  + #ifdef _REENTRANT +  backlog[e].thread_id, + #else +  0, + #endif    low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program),    (long)backlog[e].arg);    }else{ -  fprintf(stderr,"%s:%ld: %s\n", +  fprintf(stderr,"%s:%ld: %p %s\n",    file,    (long)line, -  + #ifdef _REENTRANT +  backlog[e].thread_id, + #else +  0, + #endif    low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program));    }    }