DataMuseum.dk

top - download

    Length: 5872 (0x16f0)
    Types: TextFile
    Names: »V«

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧ 

TextFile

-- Copyright 1986, 1987, 1988 Verdix Corporation

------------------------------------------------------------------------------
-- User interface to the exception subcodes, predefined exception strings
-- and the routine for raising an exception.
------------------------------------------------------------------------------
WITH System;
PACKAGE V_I_Raise IS

   PRAGMA Suppress (All_Checks);
   PRAGMA Suppress (Exception_Tables);
   PRAGMA Not_Elaborated;


   Last_Xcpt : CONSTANT := 72;

   -- Exception subcodes user by debugger.
   TYPE Xcpt_T IS RANGE 0 .. Last_Xcpt;

   Undefined_Xcpt          : CONSTANT Xcpt_T := 0;
   Value_Lbound_Xcpt       : CONSTANT Xcpt_T := 1;
   Value_Ubound_Xcpt       : CONSTANT Xcpt_T := 2;
   Index_Lbound_Xcpt       : CONSTANT Xcpt_T := 3;
   Index_Ubound_Xcpt       : CONSTANT Xcpt_T := 4;
   Slice_Lbound_Xcpt       : CONSTANT Xcpt_T := 5;
   Slice_Ubound_Xcpt       : CONSTANT Xcpt_T := 6;
   Str_Len_Xcpt            : CONSTANT Xcpt_T := 7;
   Agg_Lbound_Xcpt         : CONSTANT Xcpt_T := 8;
   Agg_Ubound_Xcpt         : CONSTANT Xcpt_T := 9;
   Cat_Len_Xcpt            : CONSTANT Xcpt_T := 10;
   Array_Size_Xcpt         : CONSTANT Xcpt_T := 11;
   Index_Match_Xcpt        : CONSTANT Xcpt_T := 12;
   No_Pred_Xcpt            : CONSTANT Xcpt_T := 13;
   No_Succ_Xcpt            : CONSTANT Xcpt_T := 14;
   Val_Attr_Lbound_Xcpt    : CONSTANT Xcpt_T := 15;
   Val_Attr_Ubound_Xcpt    : CONSTANT Xcpt_T := 16;
   Delta_Xcpt              : CONSTANT Xcpt_T := 17;
   Digits_Xcpt             : CONSTANT Xcpt_T := 18;
   Neg_Exp_Xcpt            : CONSTANT Xcpt_T := 19;
   Accuracy_Xcpt           : CONSTANT Xcpt_T := 20;
   Decl_Elab_Xcpt          : CONSTANT Xcpt_T := 21;
   Task_Elab_Xcpt          : CONSTANT Xcpt_T := 22;
   Div_By_0_Xcpt           : CONSTANT Xcpt_T := 23;
   Dscrmt_Xcpt             : CONSTANT Xcpt_T := 24;
   Variant_Xcpt            : CONSTANT Xcpt_T := 25;
   Tag_Xcpt                : CONSTANT Xcpt_T := 26;
   Match_Lbound_Xcpt       : CONSTANT Xcpt_T := 27;
   Match_Ubound_Xcpt       : CONSTANT Xcpt_T := 28;
   Null_Deref_Xcpt         : CONSTANT Xcpt_T := 29;
   Select_Else_Xcpt        : CONSTANT Xcpt_T := 30;
   No_Return_Xcpt          : CONSTANT Xcpt_T := 31;
   Agg_Other_Xcpt          : CONSTANT Xcpt_T := 32;
   Propagation_Xcpt        : CONSTANT Xcpt_T := 33;
   Raise_Xcpt              : CONSTANT Xcpt_T := 34;
   Reraise_Xcpt            : CONSTANT Xcpt_T := 35;
   Real_Accuracy_Xcpt      : CONSTANT Xcpt_T := 36;
   Subp_Elab_Xcpt          : CONSTANT Xcpt_T := 37;
   Accept_Xcpt             : CONSTANT Xcpt_T := 38;
   Index_Range_Lbound_Xcpt : CONSTANT Xcpt_T := 39;
   Index_Range_Ubound_Xcpt : CONSTANT Xcpt_T := 40;
   Range_Lbound_Xcpt       : CONSTANT Xcpt_T := 41;
   Range_Ubound_Xcpt       : CONSTANT Xcpt_T := 42;
   Enum_Value_Xcpt         : CONSTANT Xcpt_T := 43;
   Enum_Syntax_Xcpt        : CONSTANT Xcpt_T := 44;
   Out_Of_Memory_Xcpt      : CONSTANT Xcpt_T := 45;
   Out_Of_Lheap_Xcpt       : CONSTANT Xcpt_T := 46;
   Int_Syntax_Xcpt         : CONSTANT Xcpt_T := 47;
   Int_Base_Xcpt           : CONSTANT Xcpt_T := 48;
   Neg_Int_Exponent_Xcpt   : CONSTANT Xcpt_T := 49;
   Int_Too_Big_Xcpt        : CONSTANT Xcpt_T := 50;
   Int_Digit_Base_Xcpt     : CONSTANT Xcpt_T := 51;
   Int_Magnitude_Xcpt      : CONSTANT Xcpt_T := 52;
   Pos_Val_Xcpt            : CONSTANT Xcpt_T := 53;
   Call_Complete_Xcpt      : CONSTANT Xcpt_T := 54;
   Call_Abnormal_Xcpt      : CONSTANT Xcpt_T := 55;
   Propogated_Xcpt         : CONSTANT Xcpt_T := 56;
   Aborted_Xcpt            : CONSTANT Xcpt_T := 57;
   Completed_Xcpt          : CONSTANT Xcpt_T := 58;
   All_Closed_Xcpt         : CONSTANT Xcpt_T := 59;
   Not_Value_Xcpt          : CONSTANT Xcpt_T := 60;
   Terminated_Xcpt         : CONSTANT Xcpt_T := 61;
   Convert_Xcpt            : CONSTANT Xcpt_T := 62;
   Flt_Div_By_0_Xcpt       : CONSTANT Xcpt_T := 63;
   Flt_Underflow_Xcpt      : CONSTANT Xcpt_T := 64;
   Flt_Overflow_Xcpt       : CONSTANT Xcpt_T := 65;
   Flt_Subrange_Xcpt       : CONSTANT Xcpt_T := 66;
   Deallocated_Pool_Xcpt   : CONSTANT Xcpt_T := 67;
   Bad_Claim_Xcpt          : CONSTANT Xcpt_T := 68;
   Noextend_Pool_Xcpt      : CONSTANT Xcpt_T := 69;
   Index_Xcpt              : CONSTANT Xcpt_T := 70;
   Value_Xcpt              : CONSTANT Xcpt_T := 71;
   Stack_Limit_Xcpt        : CONSTANT Xcpt_T := 72;

   -- remember to change the value of last_xcpt

   --
   -- Predefined ADA exception strings
   --
   Constraint_Error_Image : String (1 .. 1);
   PRAGMA Interface_Name (Constraint_Error_Image,
                          "_A_constraint_error.EXCEPTION");
   Numeric_Error_Image : String (1 .. 1);
   PRAGMA Interface_Name (Numeric_Error_Image, "_A_numeric_error.EXCEPTION");
   Program_Error_Image : String (1 .. 1);
   PRAGMA Interface_Name (Program_Error_Image, "_A_program_error.EXCEPTION");
   Storage_Error_Image : String (1 .. 1);
   PRAGMA Interface_Name (Storage_Error_Image, "_A_storage_error.EXCEPTION");
   Tasking_Error_Image : String (1 .. 1);
   PRAGMA Interface_Name (Tasking_Error_Image, "_A_tasking_error.EXCEPTION");

   Rts_Msg : Xcpt_T;
   PRAGMA Interface_Name (Rts_Msg, "__RTS_MSG");

   --------------------------------------------------------------------------
   -- Raise routine called by the Ada run-time routines.
   -- Msg is an index into a table of diagnostics that the debugger has.
   --------------------------------------------------------------------------
   PROCEDURE Rts_Raise (Image : IN System.Address; Msg : IN Xcpt_T);

   -- Interface to the raise routine as called directly by the compiler
   PROCEDURE Raise_Exception (Identifier : System.Address);

PRIVATE
   PRAGMA Interface (Ada, Rts_Raise);
   PRAGMA Interface_Name (Rts_Raise, "__RTS_RAISE");
   PRAGMA Interface (Ada, Raise_Exception);
   PRAGMA Interface_Name (Raise_Exception, "RAISE");
END V_I_Raise;