Branch: Tag:

1998-10-16

1998-10-16 15:29:39 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Some improved error messages.

Rev: src/interpret.c:1.96

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.95 1998/10/16 02:44:36 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.96 1998/10/16 15:29:39 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
190:   void check_mark_stack(INT32 size)   {    if(mark_sp - mark_stack + size >= stack_size) -  error("Stack overflow.\n"); +  error("Mark stack overflow.\n");   }      void check_c_stack(INT32 size)
198:    long x=((char *)&size) + STACK_DIRECTION * size - stack_top ;    x*=STACK_DIRECTION;    if(x>0) -  error("Stack overflow.\n"); +  error("C stack overflow.\n");   }      
546: Inside #if defined(DEBUG)
   fatal("Stack error (stupid!).\n");       if(recoveries && sp-evaluator_stack < recoveries->sp) -  fatal("Stack error (underflow)\n"); +  fatal("Stack error (underflow).\n");       if(d_flag > 9) do_debug();   
2304: Inside #if defined(DEBUG)
   debug_check_stack();       if(sp > &(evaluator_stack[stack_size])) -  fatal("Stack overflow\n"); +  fatal("Stack overflow.\n");       if(mark_sp > &(mark_stack[stack_size]))    fatal("Mark stack overflow.\n");