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.87 2003/12/02 13:49:58 grubba Exp $ + || $Id: peep.c,v 1.88 2004/05/11 15:47:39 grubba Exp $   */      #include "global.h"   #include "language.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "program.h"   #include "las.h"   #include "docode.h"   #include "main.h"
pike.git/src/peep.c:19:   #include "peep.h"   #include "dmalloc.h"   #include "stuff.h"   #include "bignum.h"   #include "opcodes.h"   #include "builtin_functions.h"   #include "constants.h"   #include "interpret.h"   #include "pikecode.h"    - RCSID("$Id: peep.c,v 1.87 2003/12/02 13:49:58 grubba Exp $"); + RCSID("$Id: peep.c,v 1.88 2004/05/11 15:47:39 grubba Exp $");      static void asm_opt(void);      dynamic_buffer instrbuf;      #ifdef PIKE_DEBUG   static int hasarg(int opcode)   {    return instrs[opcode-F_OFFSET].flags & I_HASARG;   }
pike.git/src/peep.c:527:    ins_pointer(jumps[c->arg]);    jumps[c->arg]=tmp;    break;       case I_ISJUMPARGS:   #ifdef INS_F_JUMP_WITH_TWO_ARGS    tmp = INS_F_JUMP_WITH_TWO_ARGS(c->opcode, c->arg, c->arg2,    (labels[c[1].arg] != -1));    if(tmp != -1)    { - #ifdef ADJUST_PIKE_PC -  if (instrs[c->opcode - F_OFFSET].flags & I_PC_AT_NEXT) -  ADJUST_PIKE_PC (PIKE_PC); - #endif +        /* Step ahead to the pointer instruction, and inline it. */   #ifdef PIKE_DEBUG    if (c[1].opcode != F_POINTER) {    Pike_fatal("Expected opcode %s to be followed by a pointer\n",    instrs[c->opcode - F_OFFSET].name);    }   #endif /* PIKE_DEBUG */    c++;    e++;
pike.git/src/peep.c:562:       case I_TWO_ARGS:    ins_f_byte_with_2_args(c->opcode, c->arg, c->arg2);    break;       case I_ISJUMPARG:   #ifdef INS_F_JUMP_WITH_ARG    tmp = INS_F_JUMP_WITH_ARG(c->opcode, c->arg, (labels[c[1].arg] != -1));    if(tmp != -1)    { - #ifdef ADJUST_PIKE_PC -  if (instrs[c->opcode - F_OFFSET].flags & I_PC_AT_NEXT) -  ADJUST_PIKE_PC (PIKE_PC); - #endif +        /* Step ahead to the pointer instruction, and inline it. */   #ifdef PIKE_DEBUG    if (c[1].opcode != F_POINTER) {    Pike_fatal("Expected opcode %s to be followed by a pointer\n",    instrs[c->opcode - F_OFFSET].name);    }   #endif /* PIKE_DEBUG */    c++;    e++;
pike.git/src/peep.c:603:    ins_f_byte(c->opcode);    break;      #ifdef PIKE_DEBUG    default:    Pike_fatal("Unknown instruction type.\n");   #endif    }    }    - #ifdef ADJUST_PIKE_PC -  if (instrs[c->opcode - F_OFFSET].flags & I_PC_AT_NEXT) -  ADJUST_PIKE_PC (PIKE_PC); - #endif +       #ifdef PIKE_DEBUG    if (instrs[c->opcode - F_OFFSET].flags & I_HASPOINTER) {    if ((e+1 >= length) || (c[1].opcode != F_POINTER)) {    Pike_fatal("Expected instruction %s to be followed by a pointer.\n"    "Got %s (%d != %d)\n.",    instrs[c->opcode - F_OFFSET].name,    (e+1 < length)?instrs[c[1].opcode - F_OFFSET].name:"EOI",    (e+1 < length)?c[1].opcode:0, F_POINTER);    }