Branch: Tag:

1997-08-03

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

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

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.35 1997/07/18 01:44:22 hubbe Exp $"); + RCSID("$Id: program.c,v 1.36 1997/08/03 09:55:11 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
113:   {    JMP_BUF tmp;    + #ifdef DEBUG +  if(recoveries && sp-evaluator_stack < recoveries->sp) +  fatal("Stack error in compiation (underflow)\n"); + #endif +     if(SETJMP(tmp))    {    ONERROR tmp;
1518:    init_node=0;       yyparse(); /* Parse da program */ + #ifdef DEBUG +  if(recoveries && sp-evaluator_stack < recoveries->sp) +  fatal("Stack error in compilation (underflow after yyparse)\n"); + #endif    free_all_local_names();   }