Branch: Tag:

2002-04-15

2002-04-15 11:54:39 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed new-style encoding of inherits without parent objects.

Rev: src/encode.c:1.91

25:   #include "version.h"   #include "bignum.h"    - RCSID("$Id: encode.c,v 1.90 2002/04/15 08:41:52 grubba Exp $"); + RCSID("$Id: encode.c,v 1.91 2002/04/15 11:54:39 grubba Exp $");      /* #define ENCODE_DEBUG */   
1113:    pop_stack();       /* parent */ +  if (inh->parent) {    ref_push_object(inh->parent); -  +  } else { +  push_int(0); +  Pike_sp[-1].subtype = NUMBER_UNDEFINED; +  }    encode_value2(Pike_sp-1, data);    pop_stack();   
1150: Inside #if 0
   encode_value2(&str_sval, data);       /* prog */ +  if (inh->prog) {    ref_push_program(inh->prog); -  +  } else { +  push_int(0); +  Pike_sp[-1].subtype = NUMBER_UNDEFINED; +  }    encode_value2(Pike_sp-1, data);    pop_stack();