pike.git / src / peep.c

version» Context lines:

pike.git/src/peep.c:7:   #include "docode.h"   #include "main.h"   #include "error.h"   #include "lex.h"   #include "pike_memory.h"   #include "peep.h"   #include "dmalloc.h"   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: peep.c,v 1.27 1999/10/25 10:19:35 hubbe Exp $"); + RCSID("$Id: peep.c,v 1.28 1999/11/08 20:50:51 grubba 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:527: Inside #if defined(PIKE_DEBUG)
   for(e=0;e<length;e++,c++)    {    if(hasarg(c->opcode))    fprintf(stderr,"---%3d: %s(%d)\n",c->line,get_token_name(c->opcode),c->arg);    else    fprintf(stderr,"---%3d: %s\n",c->line,get_token_name(c->opcode));    }    }   #endif    + #ifndef IN_TPIKE   #include "peep_engine.c" -  + #endif /* IN_TPIKE */    -  +    #ifdef PIKE_DEBUG    if(a_flag > 4)    {    p_instr *c;    INT32 e,length;    c=(p_instr *)instrbuf.s.str;    length=instrbuf.s.len / sizeof(p_instr);       fprintf(stderr,"Optimization begins: \n");    for(e=0;e<length;e++,c++)    {    if(hasarg(c->opcode))    fprintf(stderr,">>>%3d: %s(%d)\n",c->line,get_token_name(c->opcode),c->arg);    else    fprintf(stderr,">>>%3d: %s\n",c->line,get_token_name(c->opcode));    }    }   #endif   }