pike.git / src / language.yacc

version» Context lines:

pike.git/src/language.yacc:154:   %left F_LSH F_RSH   %left '+' '-'   %left '*' '%' '/'   %right F_NOT '~'   %nonassoc F_INC F_DEC      %{   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.55 1998/01/26 19:59:54 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.56 1998/01/27 20:02:14 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif      #include "interpret.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "las.h"   #include "interpret.h"
pike.git/src/language.yacc:1467:    if(recoveries && sp-evaluator_stack < recoveries->sp)    fatal("Stack error (underflow)\n");   #endif       if (num_parse_error > 5) return;    num_parse_error++;    cumulative_parse_error++;       if ( get_master() )    { -  sp->type = T_STRING; -  copy_shared_string(sp->u.string, lex.current_file); -  sp++; -  sp->type = T_INT; -  sp->u.integer = lex.current_line; -  sp++; -  sp->type = T_STRING; -  sp->u.string = make_shared_string(str); -  sp++; +  ref_push_string(lex.current_file); +  push_int(lex.current_line); +  push_text(str);    SAFE_APPLY_MASTER("compile_error",3);    pop_stack();    }else{    (void)fprintf(stderr, "%s:%ld: %s\n",    lex.current_file->str,    (long)lex.current_line,    str);    fflush(stderr);    }   }