pike.git / src / encode.c

version» Context lines:

pike.git/src/encode.c:18:   #include "pike_error.h"   #include "operators.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "fsort.h"   #include "threads.h"   #include "stuff.h"   #include "version.h"   #include "bignum.h"    - RCSID("$Id: encode.c,v 1.117 2001/07/22 22:00:53 grubba Exp $"); + RCSID("$Id: encode.c,v 1.118 2001/07/23 12:38:42 grubba Exp $");      /* #define ENCODE_DEBUG */      #ifdef ENCODE_DEBUG   /* Pass a nonzero integer as the third arg to encode_value,    * encode_value_canonic and decode_value to activate this debug. */   #define EDB(N,X) do if (data->debug>=N) {X;} while (0)   #else   #define EDB(N,X) do {} while (0)   #endif
pike.git/src/encode.c:907:    ref_push_program(p->parent);    else    push_int(0);    encode_value2(Pike_sp-1,data);    pop_stack();      #define FOO(X,Y,Z) \    code_number( p->PIKE_CONCAT(num_,Z), data);   #include "program_areas.h"    +  code_number(PIKE_BYTECODE_METHOD, data); +    #ifdef ENCODE_PROGRAM   #ifdef PIKE_DEBUG    {    ptrdiff_t bufpos = data->buf.s.len;   #endif /* PIKE_DEBUG */    ENCODE_PROGRAM(p, &(data->buf));   #ifdef PIKE_DEBUG    if (p->num_program * sizeof(p->program[0]) !=    data->buf.s.len - bufpos) {    fatal("ENCODE_PROGRAM() failed:\n"
pike.git/src/encode.c:2064:    for(e=0;e<p->num_constants;e++)    p->constants[e].sval.type=T_INT;       debug_malloc_touch(dat);    debug_malloc_touch(p);       p->total_size=size + sizeof(struct program);       p->flags |= PROGRAM_OPTIMIZED;    +  { +  INT32 bytecode_method = 0; +  decode_number(bytecode_method, data); +  if (bytecode_method != PIKE_BYTECODE_METHOD) { +  Pike_error("Unsupported bytecode method: %d. Expected %d\n", +  bytecode_method, PIKE_BYTECODE_METHOD); +  } +  } +     getdata2(p->program, p->num_program);   #ifdef PIKE_USE_MACHINE_CODE    getdata2(p->relocations, p->num_relocations);   #endif /* PIKE_USE_MACHINE_CODE */      #ifdef DECODE_PROGRAM    DECODE_PROGRAM(p);   #endif /* DECODE_PROGRAM */       getdata2(p->linenumbers, p->num_linenumbers);