home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Exceptions.def < prev    next >
Text File  |  1994-05-25  |  2KB  |  62 lines
  1. |##########|
  2. |#MAGIC   #|CLABLJAI
  3. |#PROJECT #|"ImportAll"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--x-----x--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE Exceptions;
  11.  
  12. EXCEPTION
  13.   EverythingOk           : 0;
  14.   BusError               : 2;
  15.   AddressError           : 3;
  16.   IllegalOpcode          : 4;
  17.   DivisionByZero         : 5;
  18.   RangeViolation         : 6;
  19.   Overflow               : 7;
  20.   PrivilegeViolation     : 8;
  21.   Trace                  : 9;
  22.   Line_A_Emulator        : 10;
  23.   Line_F_Emulator        : 11;
  24.  
  25.   Trap_0                 : 32;
  26.   Trap_1                 : 33;
  27.   Trap_2                 : 34;
  28.   Trap_3                 : 35;
  29.   Trap_4                 : 36;
  30.   Trap_5                 : 37;
  31.   Trap_6                 : 38;
  32.   Trap_7                 : 39;
  33.   Trap_8                 : 40;
  34.   Trap_9                 : 41;
  35.   Trap_10                : 42;
  36.  
  37.   Function_No_Return     : 43;
  38.   Local_Proc_Var         : 44;
  39.   NIL_Dereferenced       : 45;
  40.   Overflow2              : 46;
  41.   RangeViolation2        : 47;
  42.  
  43.   StackUnderflow         : 99;
  44.   UserBreak              : 100;
  45.  
  46.   CouldNotOpenLibrary    : "Could not open library";
  47.   CouldNotOpenResource   : "Could not open resource";
  48.   UnimplementedProcedure : "Unimplemented procedure";
  49.   NilPassed              : "Nil-pointer passed to procedure";
  50.  
  51. PROCEDURE GetExceptionId():LONGINT;
  52.  
  53. $$OwnHeap:=TRUE;
  54. PROCEDURE GetExceptionString():STRING;
  55.  
  56. PROCEDURE WriteException;
  57.  
  58. PROCEDURE ExceptionToSer;
  59.  
  60. END Exceptions.
  61.  
  62.