1998-10-16
1998-10-16 15:29:39 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
0ae73aafa54e78af89ae370a108c0704ec477a0c
(11 lines)
(+6/-5)
[
Show
| Annotate
]
Branch: 7.9
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");