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.146 1999/12/21 20:41:11 grubba Exp $"); + RCSID("$Id: las.c,v 1.147 1999/12/21 22:45:16 grubba 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:2434:    )    ) {    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)    { +  struct pike_string *t1 = +  describe_type(compiler_frame->current_return_type); +  struct pike_string *t2 = describe_type(CAR(n)->type);    yywarning("Return type mismatch."); -  +  yywarning("Expected: %s", t1->str); +  yywarning("Got : %s", t2->str); +  free_string(t2); +  free_string(t1);    }    }    }       /* Fall through */       case F_INC_LOOP:    case F_DEC_LOOP:    case F_DEC_NEQ_LOOP:    case F_INC_NEQ_LOOP: