pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.143 1999/12/15 17:02:35 grubba Exp $"); + RCSID("$Id: las.c,v 1.144 1999/12/15 19:42:08 hubbe Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:2421:    if (!pike_types_le(CAR(n)->type, compiler_frame->current_return_type) &&    !(    compiler_frame->current_return_type==void_type_string &&    CAR(n)->token == F_CONSTANT &&    IS_ZERO(& CAR(n)->u.sval)    )    ) {    if (!match_types(compiler_frame->current_return_type,CAR(n)->type))    {    yyerror("Wrong return type."); +  yyexplain_nonmatching_types(compiler_frame->current_return_type, CAR(n)->type);    }    else if (lex.pragmas & ID_STRICT_TYPES)    {    yywarning("Return type mismatch.");    }    }    }       /* Fall through */