pike.git/ src/ encode.c

2003-07-30

2003-07-30 18:52:15 by Martin Stjernholm <mast@lysator.liu.se>

• 92d2d99e434e6370b323ace43d347f1fcb3dbadb (12 lines) (+8/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

Only call __INIT if it exists.

Rev: src/encode.c:1.192

2:   || 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: encode.c,v 1.191 2003/07/01 15:08:29 mast Exp $ + || $Id: encode.c,v 1.192 2003/07/30 18:52:15 mast Exp $   */      #include "global.h"
27:   #include "bignum.h"   #include "pikecode.h"    - RCSID("$Id: encode.c,v 1.191 2003/07/01 15:08:29 mast Exp $"); + RCSID("$Id: encode.c,v 1.192 2003/07/30 18:52:15 mast Exp $");      /* #define ENCODE_DEBUG */   
2446:    {    if(o->prog->flags & PROGRAM_FINISHED)    { -  apply_lfun(o, LFUN___INIT, 0); +  int lfun = FIND_LFUN(o->prog, LFUN___INIT); +  if (lfun >= 0) { +  apply_low(o, lfun, 0);    pop_stack(); -  +  }    /* FIXME: Should call LFUN_CREATE here in <= 7.2    * compatibility mode. */    }else{