|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_03bdb9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
-- 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;
nblk1=a
nid=0
hdr6=14
[0x00] rec0=1d rec1=00 rec2=01 rec3=030
[0x01] rec0=01 rec1=00 rec2=0a rec3=046
[0x02] rec0=13 rec1=00 rec2=02 rec3=038
[0x03] rec0=04 rec1=00 rec2=09 rec3=01a
[0x04] rec0=13 rec1=00 rec2=03 rec3=008
[0x05] rec0=02 rec1=00 rec2=08 rec3=05a
[0x06] rec0=13 rec1=00 rec2=04 rec3=048
[0x07] rec0=06 rec1=00 rec2=07 rec3=02a
[0x08] rec0=14 rec1=00 rec2=05 rec3=04c
[0x09] rec0=0c rec1=00 rec2=06 rec3=000
tail 0x215347efe8565745c6b4d 0x489e0066482863c01