DataMuseum.dk

top - download

    Length: 4849 (0x12f1)
    Types: TextFile
    Names: »V«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦24d1ddd49⟧ 
                └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

with Runtime_Ids;

package Runtime_Error is

    type Fatal_Error is range 0 .. 255;

    procedure Report (Value : Fatal_Error);
    pragma Interface (Asm, Report);
    pragma Suppress (Elaboration_Check, Report);
    pragma Import_Procedure
       (Report, "__REPORT_FATAL_ERROR", Mechanism => (Value));


    type Warning is range 0 .. 255;

    procedure Issue (Value : Warning);
    pragma Interface (Asm, Issue);
    pragma Suppress (Elaboration_Check, Issue);
    pragma Import_Procedure (Issue, "__ISSUE_WARNING", Mechanism => (Value));


    package Values is

        No_Warning : constant Warning := 0;
        Unhandled_Exception_In_Task_Body : constant Warning := 1;
        Unable_To_Create_Heap_For_Program : constant Warning := 2;
        Heap_Exhausted_For_Program : constant Warning := 3;
        Stack_Request_Failure_For_Program_Or_Task : constant Warning := 4;
        Abort_Signal_Received_By_Program : constant Warning := 5;


        No_Error : constant Fatal_Error := 0;
        Exception_Elaborating_Runtime : constant Fatal_Error := 1;
        Exception_Finalizing_Runtime : constant Fatal_Error := 2;
        Unhandled_Trap_In_Main_Program : constant Fatal_Error := 3;
        Exception_Elaborating_Library_Units : constant Fatal_Error := 5;
        Unhandled_Exception_In_Main_Program : constant Fatal_Error := 6;
        Bad_Entry_Number : constant Fatal_Error := 7;
        Tcb_Map_Error : constant Fatal_Error := 8;
        Bad_Open_Alternatives : constant Fatal_Error := 9;
        Unexpected_Reply : constant Fatal_Error := 10;
        Bad_Msg_Id_From_Send : constant Fatal_Error := 11;
        Bad_Status_From_Wait_Nonblocking : constant Fatal_Error := 12;
        Bad_Status_From_Wait : constant Fatal_Error := 13;
        Bad_Status_From_Length : constant Fatal_Error := 14;
        Bad_Status_From_Remove_Message : constant Fatal_Error := 15;
        Bad_Status_From_Send : constant Fatal_Error := 16;  
        Bad_Status_From_Send_Without_Priority : constant Fatal_Error := 17;
        Bad_Status_From_Retrieve_Message : constant Fatal_Error := 18;  
        Bad_Status_From_Create : constant Fatal_Error := 19;
        Bad_Status_From_Delete : constant Fatal_Error := 20;
        Bad_Status_From_Delete_If_Empty : constant Fatal_Error := 21;
        Bad_Status_From_Start_Timer : constant Fatal_Error := 22;
        Bad_Status_From_Stop_Timer : constant Fatal_Error := 23;
        Bad_Status_From_Set_Priority : constant Fatal_Error := 24;
        Bad_Status_From_Fork : constant Fatal_Error := 25;
        Unexpected_Null_Task_Id : constant Fatal_Error := 26;
        Bad_Tcb_Checksum : constant Fatal_Error := 27;
        Unexpected_Null_Layer : constant Fatal_Error := 28;
        Layer_State_Inconsistency : constant Fatal_Error := 29;
        Task_Activated_Twice : constant Fatal_Error := 30;
        Bad_Size_From_Retrieve_Message : constant Fatal_Error := 31;
        Bad_Index_From_Wait : constant Fatal_Error := 32;  
        Suspension_State_Inconsistency : constant Fatal_Error := 33;
        Bad_Message_In_Queue : constant Fatal_Error := 34;
        Unemptiable_Queue : constant Fatal_Error := 35;
        Reply_Queue_Not_Empty : constant Fatal_Error := 36;
        Negative_Delay_Amount : constant Fatal_Error := 37;
        Bad_Id_From_Start_Timer : constant Fatal_Error := 38;
        Entry_Queue_Not_Already_Deleted : constant Fatal_Error := 39;
        Reply_Queue_Already_Deleted : constant Fatal_Error := 40;
        Acceptor_Not_Done_Activating : constant Fatal_Error := 41;
        Parent_Notified_Twice : constant Fatal_Error := 42;
        Bad_Status_From_Associated_Data : constant Fatal_Error := 43;
        Insufficient_Stack_Space : constant Fatal_Error := 44;

    end Values;

end Runtime_Error;
pragma Export_Elaboration_Procedure ("__RUNTIME_ERROR_SPEC_ELAB");
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);