pike.git/ src/ program.c

1998-04-10

1998-04-10 04:49:55 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 87c9d2d09a01eb73e89289de8a4e8d7f141d2595 (9 lines) (+5/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix in __INIT

Rev: src/program.c:1.74
Rev: src/testsuite.in:1.87

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.73 1998/04/09 02:49:48 hubbe Exp $"); + RCSID("$Id: program.c,v 1.74 1998/04/10 04:49:55 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
769:          /* Collect references to inherited __INIT functions */ -  for(e=1;e<new_program->num_inherits;e++) +  for(e=new_program->num_inherits-1;e>1;e--)    {    int id;    if(new_program->inherits[e].inherit_level!=1) continue;
777:    if(id!=-1)    {    init_node=mknode(F_ARG_LIST, -  init_node, +     mkcastnode(void_type_string, -  mkapplynode(mkidentifiernode(id),0))); +  mkapplynode(mkidentifiernode(id),0)), +  init_node);    }    }