Branch: Tag:

2001-07-23

2001-07-23 12:38:42 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Now tags the saved bytecode with PIKE_MYTECODE_METHOD.

Rev: src/encode.c:1.118

25:   #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 */   
914:    code_number( p->PIKE_CONCAT(num_,Z), data);   #include "program_areas.h"    +  code_number(PIKE_BYTECODE_METHOD, data); +    #ifdef ENCODE_PROGRAM   #ifdef PIKE_DEBUG    {
2071:       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);