pike.git / src / peep.c

version» Context lines:

pike.git/src/peep.c:5:   #include "program.h"   #include "las.h"   #include "docode.h"   #include "main.h"   #include "error.h"   #include "lex.h"   #include "pike_memory.h"   #include "peep.h"   #include "dmalloc.h"    - RCSID("$Id: peep.c,v 1.20 1998/03/31 21:52:23 hubbe Exp $"); + RCSID("$Id: peep.c,v 1.21 1998/04/01 00:47:48 hubbe Exp $");      struct p_instr_s   {    short opcode;    short line;    struct pike_string *file;    INT32 arg;   };      typedef struct p_instr_s p_instr;
pike.git/src/peep.c:52:      int insert_opcode(unsigned int f,    INT32 b,    INT32 current_line,    struct pike_string *current_file)   {    p_instr *p;      #ifdef DEBUG    if(!hasarg(f) && b) -  fatal("hasarg() is wrong!\n"); +  fatal("hasarg(%d) is wrong!\n",f);   #endif       p=(p_instr *)low_make_buf_space(sizeof(p_instr), &instrbuf);         #ifdef DEBUG    if(!instrbuf.s.len)    fatal("Low make buf space failed!!!!!!\n");   #endif   
pike.git/src/peep.c:75:    copy_shared_string(p->file, current_file);    p->arg=b;       return p - (p_instr *)instrbuf.s.str;   }      int insert_opcode2(int f,int current_line, struct pike_string *current_file)   {   #ifdef DEBUG    if(hasarg(f)) -  fatal("hasarg() is wrong!\n"); +  fatal("hasarg(%d) is wrong!\n",f);   #endif    return insert_opcode(f,0,current_line, current_file);   }         void update_arg(int instr,INT32 arg)   {    p_instr *p;   #ifdef DEBUG    if(instr > (long)instrbuf.s.len / (long)sizeof(p_instr) || instr < 0)
pike.git/src/peep.c:333:      static int fifo_len, eye,len;   static p_instr *instructions;      int insopt(int f, INT32 b, int cl, struct pike_string *cf)   {    p_instr *p;      #ifdef DEBUG    if(!hasarg(f) && b) -  fatal("hasarg() is wrong!\n"); +  fatal("hasarg(%d) is wrong!\n",f);   #endif       p=(p_instr *)low_make_buf_space(sizeof(p_instr), &instrbuf);       if(fifo_len)    {    MEMMOVE(p-fifo_len+1,p-fifo_len,fifo_len*sizeof(p_instr));    p-=fifo_len;    }   
pike.git/src/peep.c:361:    copy_shared_string(p->file, lex.current_file);    p->arg=b;       return p - (p_instr *)instrbuf.s.str;   }      int insopt2(int f, int cl, struct pike_string *cf)   {   #ifdef DEBUG    if(hasarg(f)) -  fatal("hasarg() is wrong!\n"); +  fatal("hasarg(%d) is wrong!\n",f);   #endif    return insopt(f,0,cl, cf);   }         static void debug(void)   {    if(fifo_len > (long)instrbuf.s.len / (long)sizeof(p_instr))    fifo_len=(long)instrbuf.s.len / (long)sizeof(p_instr);   #ifdef DEBUG