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.415 2008/05/30 11:20:44 grubba Exp $ + || $Id: las.c,v 1.416 2008/05/31 12:21:41 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:1662:    if(Pike_compiler->new_program->flags & PROGRAM_PASS_1_DONE)    {    if (!exception) {    struct compilation *c = THIS_COMPILATION;    if (node_name) {    my_yyerror("Index %S not present in module \"%s\".",    id, node_name);    } else {    my_yyerror("Index %S not present in module.", id);    } -  push_int(REPORT_ERROR); -  ref_push_string(c->lex.current_file); -  push_int(c->lex.current_line); -  push_constant_text("compiler"); -  push_constant_text("Indexed module was: %O."); +     resolv_constant(n); -  safe_apply_current(PC_REPORT_FUN_NUM, 6); -  pop_stack(); +  low_yyreport(REPORT_ERROR, NULL, 0, parser_system_string, +  1, "Indexed module was: %O.");    }    }else if (!(Pike_compiler->flags & COMPILATION_FORCE_RESOLVE)) {    /* Hope it's there in pass 2 */    pop_stack();   #if 0    fprintf(stderr, "Placeholder deployed when indexing ");    print_tree(n);    fprintf(stderr, "with %s\n", id->str);   #endif    ref_push_object(placeholder_object);