35 lines
773 B
C
35 lines
773 B
C
|
/***************************************************************
|
||
|
|
Copyright (c) Charles Childers
|
||
|
|
**************************************************************/
|
||
|
|
|
||
|
|
/*
|
||
|
|
| 001 | Data Stack Underflow |
|
||
|
|
| 002 | Data Stack Overflow |
|
||
|
|
| 003 | Address Stack Underflow |
|
||
|
|
| 004 | Address Stack Overflow |
|
||
|
|
| 005 | Invalid Memory Access |
|
||
|
|
| 006 | Division by Zero |
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifdef ENABLE_ERROR
|
||
|
|
|
||
|
|
void register_error_handler(NgaState *vm) {
|
||
|
|
CELL ErrorID = stack_pop(vm);
|
||
|
|
CELL ErrorHandler = stack_pop(vm);
|
||
|
|
vm->ErrorHandlers[ErrorID] = ErrorHandler;
|
||
|
|
}
|
||
|
|
|
||
|
|
void io_error(NgaState *vm) {
|
||
|
|
switch (stack_pop(vm)) {
|
||
|
|
case 0: register_error_handler(vm);
|
||
|
|
default: break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void query_err(NgaState *vm) {
|
||
|
|
stack_push(vm, 0);
|
||
|
|
stack_push(vm, 1234);
|
||
|
|
}
|
||
|
|
|
||
|
|
#endif
|