pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1:   /*   || 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: program.c,v 1.455 2002/11/07 17:03:27 marcus Exp $ + || $Id: program.c,v 1.456 2002/11/14 14:48:54 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.455 2002/11/07 17:03:27 marcus Exp $"); + RCSID("$Id: program.c,v 1.456 2002/11/14 14:48:54 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:2376:    }    }       /*    * Define the __INIT function, but only if there was any code    * to initialize.    */       if(Pike_compiler->init_node)    { +  Pike_compiler->compiler_frame->current_function_number = -2;    e=dooptcode(s,    mknode(F_COMMA_EXPR, -  Pike_compiler->init_node,mknode(F_RETURN,mkintnode(0),0)), +  Pike_compiler->init_node, +  mknode(F_RETURN,mkintnode(0),0)),    function_type_string,    ID_STATIC);    Pike_compiler->init_node=0;    } else if (finish == 2) {    /* Called from decode_value(). */    e = low_find_lfun(Pike_compiler->new_program, LFUN___INIT);    }else{    e=-1;    }    Pike_compiler->new_program->lfuns[LFUN___INIT]=e;