upscheme/c/error_watcomc.h

18 lines
515 B
C
Raw Normal View History

#pragma aux DivideByZeroError aborts;
extern void DivideByZeroError(void);
#pragma aux lerrorf aborts;
2019-08-25 15:11:00 -04:00
extern void lerrorf(value_t e, const char *format, ...);
#pragma aux lerror aborts;
extern void lerror(value_t e, const char *msg);
#pragma aux fl_raise aborts;
extern void fl_raise(value_t e);
#pragma aux type_error aborts;
2019-08-25 15:11:00 -04:00
extern void type_error(const char *fname, const char *expected, value_t got);
#pragma aux bounds_error aborts;
2019-08-25 15:11:00 -04:00
extern void bounds_error(const char *fname, value_t arr, value_t ind);