pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.362 2005/04/06 17:52:46 grubba Exp $ + || $Id: las.c,v 1.363 2005/04/06 17:54:43 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"
pike.git/src/las.c:3899:    case F_DIV_EQ:    MAKE_CONST_STRING(op_string, "`/");    break;    default:    Pike_fatal("fix_type_field(): Unhandled token: %d\n", n->token);    break;    }    if (!(op_node = find_module_identifier(op_string, 0))) {    my_yyerror("Internally used efun undefined for token %d: %S",    n->token, op_string); -  free_string(op_string); +     copy_pike_type(n->type, mixed_type_string);    break;    }       if (!op_node->type) {    fix_type_field(op_node);    }       push_finished_type(CAR(n)->type);    push_type(T_VOID);
pike.git/src/las.c:3929:    op_node->type ? op_node->type : mixed_type_string,    (lex.pragmas & ID_STRICT_TYPES) &&    !(op_node->node_info & OPT_WEAK_TYPE));    if (n->type) {    /* Type check ok. */    free_node(op_node);    free_type(call_type);    break;    }    my_yyerror("Bad arguments to %S.", op_string); -  free_string(op_string); +     yytype_error(NULL, op_node->type ? op_node->type : mixed_type_string,    call_type, 0);    free_node(op_node);    free_type(call_type);    }    copy_pike_type(n->type, mixed_type_string);    break;       case F_INC:    case F_DEC: