pike.git/ src/ language.yacc

1997-08-03

1997-08-03 09:55:11 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 294dc509f9513cff9fef4eec2fa65b90ff397d39 (22 lines) (+20/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

more debug and better error messages

Rev: src/error.c:1.7
Rev: src/interpret.c:1.44
Rev: src/language.yacc:1.44
Rev: src/las.c:1.35
Rev: src/program.c:1.36

156:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.43 1997/06/07 01:16:26 hubbe Exp $"); + RCSID("$Id: language.yacc,v 1.44 1997/08/03 09:55:07 hubbe Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
542:    }       dooptcode($4, $9, $<string>8, $1); + #ifdef DEBUG +  if(recoveries && sp-evaluator_stack < recoveries->sp) +  fatal("Stack error (underflow)\n"); + #endif    }    if(local_variables->current_return_type)    {
560:    | error ';' { yyerrok; }    {    reset_type_stack(); -  if(num_parse_error>5) YYACCEPT; + /* if(num_parse_error>5) YYACCEPT; */    }    ;   
891:    mknode(F_ARG_LIST,$4,mknode(F_RETURN,mkintnode(0),0)),    type,    0); + #ifdef DEBUG +  if(recoveries && sp-evaluator_stack < recoveries->sp) +  fatal("Stack error (underflow)\n"); + #endif    free_string(name);    free_string(type);    comp_stackp=$<number>2;
1348:    extern int num_parse_error;    extern int cumulative_parse_error;    + #ifdef DEBUG +  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++;
1365:    sp++;    SAFE_APPLY_MASTER("compile_error",3);    pop_stack(); + #ifdef DEBUG +  if(recoveries && sp-evaluator_stack < recoveries->sp) +  fatal("Stack error (underflow)\n"); + #endif    }else{    (void)fprintf(stderr, "%s:%ld: %s\n",    current_file->str,