2004-08-12 17:36:36 -04:00
|
|
|
#define ERROR_PORT_EXPIRED (0<<3)
|
2004-07-16 02:26:21 -04:00
|
|
|
#define ERROR_UNDEFINED_WORD (1<<3)
|
|
|
|
#define ERROR_TYPE (2<<3)
|
|
|
|
#define ERROR_RANGE (3<<3)
|
|
|
|
#define ERROR_UNDERFLOW (4<<3)
|
2004-08-12 17:36:36 -04:00
|
|
|
#define ERROR_IO (5<<3)
|
|
|
|
#define ERROR_OVERFLOW (6<<3)
|
|
|
|
#define ERROR_INCOMPARABLE (7<<3)
|
|
|
|
#define ERROR_FLOAT_FORMAT (8<<3)
|
2004-08-16 21:05:38 -04:00
|
|
|
#define ERROR_SIGNAL (9<<3)
|
2004-08-20 21:16:47 -04:00
|
|
|
#define ERROR_IO_TASK_TWICE (10<<3)
|
|
|
|
#define ERROR_IO_TASK_NONE (11<<3)
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
void fatal_error(char* msg, CELL tagged);
|
2004-07-20 02:59:32 -04:00
|
|
|
void critical_error(char* msg, CELL tagged);
|
|
|
|
void fix_stacks(void);
|
2004-07-16 02:26:21 -04:00
|
|
|
void throw_error(CELL object);
|
|
|
|
void general_error(CELL error, CELL tagged);
|
|
|
|
void type_error(CELL type, CELL tagged);
|
|
|
|
void range_error(CELL tagged, CELL index, CELL max);
|