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.111 2006/09/17 15:53:31 grubba Exp $ + || $Id: peep.c,v 1.112 2007/04/19 11:39:40 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:915:    }    insert_opcode(p);    debug_malloc_touch_named(p->file, "advance");    debug();    return 1;   }      static void pop_n_opcodes(int n)   {    int e; +  p_instr *p;      #ifdef PIKE_DEBUG    if (n > num_instrs)    Pike_fatal("Popping out of instructions.\n");   #endif    -  p_instr *p = ((p_instr *)low_make_buf_space(0, &instrbuf)) - n; +  p = ((p_instr *)low_make_buf_space(0, &instrbuf)) - n;    for (e = 0; e < n; e++) {    free_string(dmalloc_touch_named(struct pike_string *, p[e].file,    "pop_n_opcodes"));    }    num_instrs -= n;    low_make_buf_space(-((INT32)sizeof(p_instr))*n, &instrbuf);   }         /* NOTE: Called with opcodes in reverse order! */