pike.git / src / peep.c

version» Context lines:

pike.git/src/peep.c:7:   #include "docode.h"   #include "main.h"   #include "pike_error.h"   #include "lex.h"   #include "pike_memory.h"   #include "peep.h"   #include "dmalloc.h"   #include "stuff.h"   #include "bignum.h"   #include "opcodes.h" + #include "builtin_functions.h" + #include "constants.h"    - RCSID("$Id: peep.c,v 1.48 2001/06/30 07:05:55 hubbe Exp $"); + RCSID("$Id: peep.c,v 1.49 2001/07/02 04:09:49 hubbe Exp $");      static void asm_opt(void);      dynamic_buffer instrbuf;      static int hasarg(int opcode)   {    return instrs[opcode-F_OFFSET].flags & I_HASARG;   }   
pike.git/src/peep.c:447:   static ptrdiff_t eye, len;   static p_instr *instructions;      static INLINE ptrdiff_t insopt2(int f, INT32 a, INT32 b,    int cl, struct pike_string *cf)   {    p_instr *p;      #ifdef PIKE_DEBUG    if(!hasarg2(f) && b) -  fatal("hasarg(%d) is wrong!\n",f); +  fatal("hasarg2(%d /*%s */) is wrong!\n",f,get_f_name(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:476:    p->arg=a;    p->arg2=b;       return p - (p_instr *)instrbuf.s.str;   }      static INLINE ptrdiff_t insopt1(int f, INT32 a, int cl, struct pike_string *cf)   {   #ifdef PIKE_DEBUG    if(!hasarg(f) && a) -  fatal("hasarg(%d) is wrong!\n",f); +  fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f));   #endif       return insopt2(f,a,0,cl, cf);   }      static INLINE ptrdiff_t insopt0(int f, int cl, struct pike_string *cf)   {   #ifdef PIKE_DEBUG    if(hasarg(f)) -  fatal("hasarg(%d) is wrong!\n",f); +  fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f));   #endif    return insopt2(f,0,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 PIKE_DEBUG    if(eye < 0)