pike.git / src / peep.c

version» Context lines:

pike.git/src/peep.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: peep.c,v 1.105 2004/12/30 13:41:08 grubba Exp $ + || $Id: peep.c,v 1.106 2005/05/19 22:35:30 mast Exp $   */      #include "global.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "program.h"   #include "las.h"   #include "docode.h"   #include "pike_embed.h"   #include "pike_error.h"
pike.git/src/peep.c:420:    entry_point = PIKE_PC;      #ifdef PIKE_DEBUG    synch_depth = 0;   #endif    FLUSH_CODE_GENERATOR_STATE();    for(e=0;e<length;e++)    {   #ifdef PIKE_DEBUG    if (c != (((p_instr *)instrbuf.s.str)+e)) { -  Pike_fatal("Instruction loop deviates. 0x%04x != 0x%04x\n", -  e, DO_NOT_WARN((INT32)(c - ((p_instr *)instrbuf.s.str)))); +  Pike_fatal("Instruction loop deviates. " +  "0x%04"PRINTPTRDIFFT"x != 0x%04"PRINTPTRDIFFT"x\n", +  e, c - ((p_instr *)instrbuf.s.str));    }    if((a_flag > 2 && store_linenumbers) || a_flag > 3)    {    if (c->opcode == F_POP_SYNCH_MARK) synch_depth--;    fprintf(stderr, "===%4d %4lx %*s", c->line,    DO_NOT_WARN((unsigned long)PIKE_PC), synch_depth, "");    dump_instr(c);    fprintf(stderr,"\n");    if (c->opcode == F_SYNCH_MARK) synch_depth++;    }
pike.git/src/peep.c:682:    jumps[e]=tmp;    }    }       free((char *)labels);      #ifdef PIKE_DEBUG    if (a_flag > 6) {    size_t len = (Pike_compiler->new_program->num_program - fun_start)*    sizeof(PIKE_OPCODE_T); -  fprintf(stderr, "Code at offset %d through %d:\n", +  fprintf(stderr, "Code at offset %"PRINTSIZET"d through %"PRINTSIZET"d:\n",    fun_start, Pike_compiler->new_program->num_program-1);   #ifdef DISASSEMBLE_CODE    DISASSEMBLE_CODE(Pike_compiler->new_program->program + fun_start, len);   #else /* !DISASSEMBLE_CODE */    {    /* FIXME: Hexdump here. */    }   #endif /* DISASSEMBLE_CODE */    }   #endif /* PIKE_DEBUG */