| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * RTCHECK.DEF - Modula-2 run-time checking definitions *
- 5 * *
- 6 * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 (*# module(implementation=>off, init_code=>off) *)
- 12
- 13 DEFINITION MODULE RTCheck;
- 14
- 15 IMPORT CoreSig;
- 16
- 17 CONST
- 18 (* Values for code parameter *)
- 19 CNS_STACK = 1; (* Stack overflow *)
- 20 CNS_NILPTR = 2; (* Nil Ptr dereference *)
- 21 CNS_INDEX = 9; (* Index out of range *)
- 22 CNS_OVERFLOW = 4; (* Integer overflow *)
- 23 CNS_RANGE = 5; (* Integer out of range *)
- 24 CNS_RETURN = 6; (* No return in function *)
- 25 CNS_CASE = 7; (* No matching case *)
- 26 CNS_DIVZERO = 8; (* Long integer divide by zero *)
- 27 CNS_PVC = 10; (* Pure virtual function called *)
- 28
- 29 (* return values for handler *)
- 30 CONTINUE = TRUE;
- 31 TERMINATE = FALSE;
- 32
- 33 (* call(near_call=>off, reg_param=>(), reg_saved=>(ax,bx,cx,dx,ds,si,di,st1,st2),
- 34 c_conv=>off),
- 35 name(prefix=>modula) *)
- 36
- 37 CnsHandlerType ::= CoreSig.CnsHandlerType;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 38 CnsHandler ::= CoreSig.CnsHandler;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 39
- 40 END RTCheck.
- ***** ^ not supported yet
- 5 errors
|
