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.629 2007/11/10 19:45:49 grubba Exp $ + || $Id: program.c,v 1.630 2007/11/15 17:09:42 grubba Exp $   */      #include "global.h"   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"
pike.git/src/program.c:2025:    }   #endif       sub_ref = PTR_FROM_INT(inh->prog, cur_id - inh->identifier_level);       /* Check if the symbol was used before it was inherited. */    if ((lex.pragmas & ID_STRICT_TYPES) &&    (sub_ref->id_flags & ID_USED)) {    struct identifier *sub_id = ID_FROM_PTR(inh->prog, sub_ref);    if (IDENTIFIER_IS_FUNCTION(sub_id->identifier_flags)) { -  if (!pike_types_le(ID_FROM_PTR(Pike_compiler->new_program, +  if ((Pike_compiler->compiler_pass == 2) && +  !pike_types_le(ID_FROM_PTR(Pike_compiler->new_program,    new_ref)->type, sub_id->type)) {    yywarning("Type mismatch when overloading function %S.", name);    yyexplain_nonmatching_types(sub_id->type,    ID_FROM_PTR(Pike_compiler->new_program,    new_ref)->type,    YYTE_IS_WARNING);    }    } else {    /* Variable or constant. */    if (!pike_types_le(sub_id->type,