-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2003, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write --
--- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
--- MA 02111-1307, USA. --
+-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
+-- Boston, MA 02110-1301, USA. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- Names of the form Ada_Wide_Text_IO_xxx are second level children
-- of Ada.Wide_Text_IO.
+ -- Names of the form Ada_Wide_Wide_Text_IO_xxx are second level children
+ -- of Ada.Wide_Wide_Text_IO.
+
-- Names of the form Interfaces_xxx are first level children of
-- Interfaces_CPP refers to package Interfaces.CPP
-- Generic units, library level instantiations and subprogram bodies
-- acting as specs may not be referenced (all these cases could be added
-- at the expense of additional complexity in the body of Rtsfind, but
- -- it doesn't seem worth while, since the implementation controls the
- -- set of units that are referenced, and this restrictions is easily met.
+ -- it doesn't seem worthwhile, since the implementation controls the
+ -- set of units that are referenced, and this restriction is easily met.
-- IMPORTANT NOTE: the specs of packages and procedures with'ed using
-- this mechanism may not contain use clauses. This is because these
-- package see declarations in the runtime entity table below.
RTU_Null,
- -- Used as a null entry. Will cause an error if referenced.
+ -- Used as a null entry. Will cause an error if referenced
-- Children of Ada
Ada_Streams,
Ada_Tags,
Ada_Task_Identification,
+ Ada_Task_Termination,
-- Children of Ada.Calendar
Ada_Wide_Text_IO_Integer_IO,
Ada_Wide_Text_IO_Modular_IO,
+ -- Children of Ada.Wide_Wide_Text_IO (for Text_IO_Kludge)
+
+ Ada_Wide_Wide_Text_IO_Decimal_IO,
+ Ada_Wide_Wide_Text_IO_Enumeration_IO,
+ Ada_Wide_Wide_Text_IO_Fixed_IO,
+ Ada_Wide_Wide_Text_IO_Float_IO,
+ Ada_Wide_Wide_Text_IO_Integer_IO,
+ Ada_Wide_Wide_Text_IO_Modular_IO,
+
-- Interfaces
Interfaces,
-- Children of System
+ System_Address_Image,
System_Arith_64,
System_AST_Handling,
System_Assertions,
System_Compare_Array_Unsigned_32,
System_Compare_Array_Unsigned_64,
System_Compare_Array_Unsigned_8,
+ System_DSA_Services,
System_Exception_Table,
System_Exceptions,
System_Exn_Int,
System_Exp_Mod,
System_Exp_Uns,
System_Fat_Flt,
+ System_Fat_IEEE_Long_Float,
+ System_Fat_IEEE_Short_Float,
System_Fat_LFlt,
System_Fat_LLF,
System_Fat_SFlt,
+ System_Fat_VAX_D_Float,
+ System_Fat_VAX_F_Float,
+ System_Fat_VAX_G_Float,
System_Finalization_Implementation,
System_Finalization_Root,
System_Fore,
System_String_Ops_Concat_5,
System_Task_Info,
System_Tasking,
+ System_Threads,
System_Unsigned_Types,
System_Val_Bool,
System_Val_Char,
System_Tasking_Stages);
subtype Ada_Child is RTU_Id
- range Ada_Calendar .. Ada_Wide_Text_IO_Modular_IO;
+ range Ada_Calendar .. Ada_Wide_Wide_Text_IO_Modular_IO;
-- Range of values for children or grand-children of Ada
subtype Ada_Calendar_Child is Ada_Child
range Ada_Wide_Text_IO_Decimal_IO .. Ada_Wide_Text_IO_Modular_IO;
-- Range of values for children of Ada.Text_IO
+ subtype Ada_Wide_Wide_Text_IO_Child is Ada_Child
+ range Ada_Wide_Wide_Text_IO_Decimal_IO ..
+ Ada_Wide_Wide_Text_IO_Modular_IO;
+
subtype Interfaces_Child is RTU_Id
range Interfaces_CPP .. Interfaces_Packed_Decimal;
-- Range of values for children of Interfaces
subtype System_Child is RTU_Id
- range System_Arith_64 .. System_Tasking_Stages;
+ range System_Address_Image .. System_Tasking_Stages;
-- Range of values for children or grandchildren of System
subtype System_Tasking_Child is System_Child
RE_Null,
- RE_Exceptions_Available_In_HIE, -- Ada.Exceptions
RE_Code_Loc, -- Ada.Exceptions
RE_Current_Target_Exception, -- Ada.Exceptions (JGNAT use only)
RE_Exception_Id, -- Ada.Exceptions
RE_Exception_Message, -- Ada.Exceptions
RE_Exception_Name_Simple, -- Ada.Exceptions
RE_Exception_Occurrence, -- Ada.Exceptions
- RE_Null_Id, -- Ada.Exceptions
RE_Null_Occurrence, -- Ada.Exceptions
RE_Poll, -- Ada.Exceptions
RE_Raise_Exception, -- Ada.Exceptions
RE_Raise_Exception_Always, -- Ada.Exceptions
+ RE_Raise_From_Controlled_Operation, -- Ada.Exceptions
RE_Reraise_Occurrence, -- Ada.Exceptions
RE_Reraise_Occurrence_Always, -- Ada.Exceptions
RE_Reraise_Occurrence_No_Defer, -- Ada.Exceptions
RE_List_Controller, -- Ada.Finalization.List_Controller
RE_Interrupt_ID, -- Ada.Interrupts
+ RE_Is_Reserved, -- Ada.Interrupts
+ RE_Is_Attached, -- Ada.Interrupts
+ RE_Current_Handler, -- Ada.Interrupts
+ RE_Attach_Handler, -- Ada.Interrupts
+ RE_Exchange_Handler, -- Ada.Interrupts
+ RE_Detach_Handler, -- Ada.Interrupts
+ RE_Reference, -- Ada.Interrupts
RE_Names, -- Ada.Interupts.Names
RE_Root_Stream_Type, -- Ada.Streams
RE_Stream_Element, -- Ada.Streams
- RE_Stream_Element_Count, -- Ada.Streams
- RE_Stream_Element_Offset, -- Ada.Streams
- RE_Stream_Element_Array, -- Ada.Streams
RE_Stream_Access, -- Ada.Streams.Stream_IO
- RE_CW_Membership, -- Ada.Tags
- RE_DT_Entry_Size, -- Ada.Tags
- RE_DT_Prologue_Size, -- Ada.Tags
+ RE_Access_Level, -- Ada.Tags
+ RE_Address_Array, -- Ada.Tags
+ RE_Addr_Ptr, -- Ada.Tags
+ RE_Base_Address, -- Ada.Tags
+ RE_Cstring_Ptr, -- Ada.Tags
+ RE_Default_Prim_Op_Count, -- Ada.Tags
+ RE_Descendant_Tag, -- Ada.Tags
+ RE_Dispatch_Table, -- Ada.Tags
+ RE_Dispatch_Table_Wrapper, -- Ada.Tags
+ RE_Displace, -- Ada.Tags
+ RE_DT, -- Ada.Tags
+ RE_DT_Predef_Prims_Offset, -- Ada.Tags
+ RE_DT_Typeinfo_Ptr_Size, -- Ada.Tags
+ RE_Expanded_Name, -- Ada.Tags
RE_External_Tag, -- Ada.Tags
- RE_Get_Expanded_Name, -- Ada.Tags
- RE_Get_External_Tag, -- Ada.Tags
- RE_Get_Prim_Op_Address, -- Ada.Tags
- RE_Get_RC_Offset, -- Ada.Tags
- RE_Get_Remotely_Callable, -- Ada.Tags
- RE_Get_TSD, -- Ada.Tags
- RE_Inherit_DT, -- Ada.Tags
- RE_Inherit_TSD, -- Ada.Tags
- RE_Internal_Tag, -- Ada.Tags
+ RE_HT_Link, -- Ada.Tags
+ RO_TA_External_Tag, -- Ada.Tags
+ RE_Get_Access_Level, -- Ada.Tags
+ RE_Get_Entry_Index, -- Ada.Tags
+ RE_Get_Offset_Index, -- Ada.Tags
+ RE_Get_Prim_Op_Kind, -- Ada.Tags
+ RE_Get_Tagged_Kind, -- Ada.Tags
+ RE_Idepth, -- Ada.Tags
+ RE_Iface_Tag, -- Ada.Tags
+ RE_Ifaces_Table, -- Ada.Tags
+ RE_Interfaces_Table, -- Ada.Tags
+ RE_Interface_Data, -- Ada.Tags
+ RE_Interface_Tag, -- Ada.Tags
+ RE_IW_Membership, -- Ada.Tags
+ RE_Nb_Ifaces, -- Ada.Tags
+ RE_No_Dispatch_Table_Wrapper, -- Ada.Tags
+ RE_NDT_Prims_Ptr, -- Ada.Tags
+ RE_NDT_TSD, -- Ada.Tags
+ RE_Num_Prims, -- Ada.Tags
+ RE_Object_Specific_Data, -- Ada.Tags
+ RE_Offset_To_Top, -- Ada.Tags
+ RE_Offset_To_Top_Function_Ptr, -- Ada.Tags
+ RE_OSD_Table, -- Ada.Tags
+ RE_OSD_Num_Prims, -- Ada.Tags
+ RE_POK_Function, -- Ada.Tags
+ RE_POK_Procedure, -- Ada.Tags
+ RE_POK_Protected_Entry, -- Ada.Tags
+ RE_POK_Protected_Function, -- Ada.Tags
+ RE_POK_Protected_Procedure, -- Ada.Tags
+ RE_POK_Task_Entry, -- Ada.Tags
+ RE_POK_Task_Function, -- Ada.Tags
+ RE_POK_Task_Procedure, -- Ada.Tags
+ RE_Predef_Prims, -- Ada.Tags
+ RE_Predef_Prims_Table_Ptr, -- Ada.Tags
+ RE_Prim_Op_Kind, -- Ada.Tags
+ RE_Prims_Ptr, -- Ada.Tags
+ RE_Primary_DT, -- Ada.Tags
+ RE_Signature, -- Ada.Tags
+ RE_SSD, -- Ada.Tags
+ RE_TSD, -- Ada.Tags
+ RE_Type_Specific_Data, -- Ada.Tags
RE_Register_Tag, -- Ada.Tags
- RE_Set_Expanded_Name, -- Ada.Tags
- RE_Set_External_Tag, -- Ada.Tags
- RE_Set_Prim_Op_Address, -- Ada.Tags
- RE_Set_RC_Offset, -- Ada.Tags
- RE_Set_Remotely_Callable, -- Ada.Tags
- RE_Set_TSD, -- Ada.Tags
- RE_Tag_Error, -- Ada.Tags
- RE_TSD_Entry_Size, -- Ada.Tags
- RE_TSD_Prologue_Size, -- Ada.Tags
+ RE_Transportable, -- Ada.Tags
+ RE_RC_Offset, -- Ada.Tags
+ RE_Secondary_DT, -- Ada.Tags
+ RE_Select_Specific_Data, -- Ada.Tags
+ RE_Set_Entry_Index, -- Ada.Tags
+ RE_Set_Offset_To_Top, -- Ada.Tags
+ RE_Set_Prim_Op_Kind, -- Ada.Tags
+ RE_Static_Offset_To_Top, -- Ada.Tags
RE_Tag, -- Ada.Tags
- RE_Address_Array, -- Ada.Tags
+ RE_Tag_Error, -- Ada.Tags
+ RE_Tag_Kind, -- Ada.Tags
+ RE_Tag_Ptr, -- Ada.Tags
+ RE_Tag_Table, -- Ada.Tags
+ RE_Tags_Table, -- Ada.Tags
+ RE_Tagged_Kind, -- Ada.Tags
+ RE_Type_Specific_Data_Ptr, -- Ada.Tags
+ RE_TK_Abstract_Limited_Tagged, -- Ada.Tags
+ RE_TK_Abstract_Tagged, -- Ada.Tags
+ RE_TK_Limited_Tagged, -- Ada.Tags
+ RE_TK_Protected, -- Ada.Tags
+ RE_TK_Tagged, -- Ada.Tags
+ RE_TK_Task, -- Ada.Tags
RE_Abort_Task, -- Ada.Task_Identification
RE_Current_Task, -- Ada.Task_Identification
- RO_AT_Task_ID, -- Ada.Task_Identification
+ RO_AT_Task_Id, -- Ada.Task_Identification
RO_CA_Time, -- Ada.Calendar
RE_Unsigned_32, -- Interfaces
RE_Unsigned_64, -- Interfaces
- RE_Vtable_Ptr, -- Interfaces.CPP
- RE_Displaced_This, -- Interfaces.CPP
- RE_CPP_CW_Membership, -- Interfaces.CPP
- RE_CPP_DT_Entry_Size, -- Interfaces.CPP
- RE_CPP_DT_Prologue_Size, -- Interfaces.CPP
- RE_CPP_Get_Expanded_Name, -- Interfaces.CPP
- RE_CPP_Get_External_Tag, -- Interfaces.CPP
- RE_CPP_Get_Prim_Op_Address, -- Interfaces.CPP
- RE_CPP_Get_RC_Offset, -- Interfaces.CPP
- RE_CPP_Get_Remotely_Callable, -- Interfaces.CPP
- RE_CPP_Get_TSD, -- Interfaces.CPP
- RE_CPP_Inherit_DT, -- Interfaces.CPP
- RE_CPP_Inherit_TSD, -- Interfaces.CPP
- RE_CPP_Register_Tag, -- Interfaces.CPP
- RE_CPP_Set_Expanded_Name, -- Interfaces.CPP
- RE_CPP_Set_External_Tag, -- Interfaces.CPP
- RE_CPP_Set_Prim_Op_Address, -- Interfaces.CPP
- RE_CPP_Set_RC_Offset, -- Interfaces.CPP
- RE_CPP_Set_Remotely_Callable, -- Interfaces.CPP
- RE_CPP_Set_TSD, -- Interfaces.CPP
- RE_CPP_TSD_Entry_Size, -- Interfaces.CPP
- RE_CPP_TSD_Prologue_Size, -- Interfaces.CPP
-
- RE_Packed_Size, -- Interfaces.Packed_Decimal
- RE_Packed_To_Int32, -- Interfaces.Packed_Decimal
- RE_Packed_To_Int64, -- Interfaces.Packed_Decimal
- RE_Int32_To_Packed, -- Interfaces.Packed_Decimal
- RE_Int64_To_Packed, -- Interfaces.Packed_Decimal
-
RE_Address, -- System
RE_Any_Priority, -- System
RE_Bit_Order, -- System
- RE_Default_Priority, -- System
RE_High_Order_First, -- System
RE_Interrupt_Priority, -- System
RE_Lib_Stop, -- System
RE_Low_Order_First, -- System
- RE_Max_Interrupt_Priority, -- System
RE_Max_Priority, -- System
RE_Null_Address, -- System
RE_Priority, -- System
+ RE_Address_Image, -- System.Address_Image
+
RE_Add_With_Ovflo_Check, -- System.Arith_64
RE_Double_Divide, -- System.Arith_64
RE_Multiply_With_Ovflo_Check, -- System.Arith_64
RE_Create_AST_Handler, -- System.AST_Handling
+ RE_Assert_Failure, -- System.Assertions
RE_Raise_Assert_Failure, -- System.Assertions
RE_AST_Handler, -- System.Aux_DEC
RE_Bit_Or, -- System.Bit_Ops
RE_Bit_Xor, -- System.Bit_Ops
- RE_Boolean_Array, -- System_Boolean_Array_Operations,
RE_Vector_Not, -- System_Boolean_Array_Operations,
RE_Vector_And, -- System_Boolean_Array_Operations,
RE_Vector_Or, -- System_Boolean_Array_Operations,
RE_Compare_Array_U64, -- System.Compare_Array_Unsigned_16
+ RE_Get_Active_Partition_Id, -- System.DSA_Services
+ RE_Get_Local_Partition_Id, -- System.DSA_Services
+ RE_Get_Passive_Partition_Id, -- System.DSA_Services
+
RE_Register_Exception, -- System.Exception_Table
- RE_All_Others_Id, -- System.Exceptions
- RE_Handler_Record, -- System.Exceptions
- RE_Handler_Record_Ptr, -- System.Exceptions
- RE_Others_Id, -- System.Exceptions
- RE_Subprogram_Descriptor, -- System.Exceptions
- RE_Subprogram_Descriptor_0, -- System.Exceptions
- RE_Subprogram_Descriptor_1, -- System.Exceptions
- RE_Subprogram_Descriptor_2, -- System.Exceptions
- RE_Subprogram_Descriptor_3, -- System.Exceptions
- RE_Subprogram_Descriptor_List, -- System.Exceptions
- RE_Subprogram_Descriptor_Ptr, -- System.Exceptions
- RE_Subprogram_Descriptors_Record, -- System.Exceptions
- RE_Subprogram_Descriptors_Ptr, -- System.Exceptions
+ RE_Local_Raise, -- System.Exceptions
RE_Exn_Integer, -- System.Exn_Int
RE_Exp_Unsigned, -- System.Exp_Uns
- RE_Fat_Float, -- System.Fat_Flt
+ RE_Attr_Float, -- System.Fat_Flt
+
+ RE_Attr_IEEE_Long, -- System.Fat_IEEE_Long_Float
+ RE_Fat_IEEE_Long, -- System.Fat_IEEE_Long_Float
+
+ RE_Attr_IEEE_Short, -- System.Fat_IEEE_Short_Float
+ RE_Fat_IEEE_Short, -- System.Fat_IEEE_Short_Float
+
+ RE_Attr_Long_Float, -- System.Fat_LFlt
- RE_Fat_Long_Float, -- System.Fat_LFlt
+ RE_Attr_Long_Long_Float, -- System.Fat_LLF
- RE_Fat_Long_Long_Float, -- System.Fat_LLF
+ RE_Attr_Short_Float, -- System.Fat_SFlt
- RE_Fat_Short_Float, -- System.Fat_SFlt
+ RE_Attr_VAX_D_Float, -- System.Fat_VAX_D_Float
+ RE_Fat_VAX_D, -- System.Fat_VAX_D_Float
+
+ RE_Attr_VAX_F_Float, -- System.Fat_VAX_F_Float
+ RE_Fat_VAX_F, -- System.Fat_VAX_F_Float
+
+ RE_Attr_VAX_G_Float, -- System.Fat_VAX_G_Float
+ RE_Fat_VAX_G, -- System.Fat_VAX_G_Float
RE_Attach_To_Final_List, -- System.Finalization_Implementation
+ RE_Finalizable_Ptr_Ptr, -- System.Finalization_Implementation
+ RE_Move_Final_List, -- System.Finalization_Implementation
RE_Finalize_List, -- System.Finalization_Implementation
RE_Finalize_One, -- System.Finalization_Implementation
RE_Global_Final_List, -- System.Finalization_Implementation
RE_Record_Controller, -- System.Finalization_Implementation
RE_Limited_Record_Controller, -- System.Finalization_Implementation
- RE_Deep_Tag_Initialize, -- System.Finalization_Implementation
- RE_Deep_Tag_Adjust, -- System.Finalization_Implementation
- RE_Deep_Tag_Finalize, -- System.Finalization_Implementation
RE_Deep_Tag_Attach, -- System.Finalization_Implementation
- RE_Deep_Rec_Initialize, -- System.Finalization_Implementation
- RE_Deep_Rec_Adjust, -- System.Finalization_Implementation
- RE_Deep_Rec_Finalize, -- System.Finalization_Implementation
RE_Root_Controlled, -- System.Finalization_Root
RE_Finalizable, -- System.Finalization_Root
RE_Image_Unsigned, -- System.Img_Uns
RE_Image_Wide_Character, -- System.Img_WChar
+ RE_Image_Wide_Wide_Character, -- System.Img_WChar
RE_Bind_Interrupt_To_Entry, -- System.Interrupts
RE_Default_Interrupt_Priority, -- System.Interrupts
RE_Mantissa_Value, -- System_Mantissa
- RE_memcpy, -- System_Memcop
- RE_memmove, -- System_Memcop
-
RE_Bits_03, -- System.Pack_03
RE_Get_03, -- System.Pack_03
RE_Set_03, -- System.Pack_03
RE_Size_Type, -- System.Parameters
RE_Unspecified_Size, -- System.Parameters
- RE_Get_Active_Partition_Id, -- System.Partition_Interface
- RE_Get_Passive_Partition_Id, -- System.Partition_Interface
- RE_Get_Local_Partition_Id, -- System.Partition_Interface
+ RE_DSA_Implementation, -- System.Partition_Interface
RE_Get_RCI_Package_Receiver, -- System.Partition_Interface
RE_Get_Unique_Remote_Pointer, -- System.Partition_Interface
- RE_RACW_Stub_Type, -- System.Partition_Interface
RE_RACW_Stub_Type_Access, -- System.Partition_Interface
- RE_Raise_Program_Error_For_E_4_18, -- System.Partition_Interface
+ RE_RAS_Proxy_Type_Access, -- System.Partition_Interface
RE_Raise_Program_Error_Unknown_Tag, -- System.Partition_Interface
RE_Register_Passive_Package, -- System.Partition_Interface
RE_Register_Receiving_Stub, -- System.Partition_Interface
- RE_RCI_Info, -- System.Partition_Interface
+ RE_Request_Access, -- System.Partition_Interface
+ RE_RCI_Locator, -- System.Partition_Interface
+ RE_RCI_Subp_Info, -- System.Partition_Interface
+ RE_RCI_Subp_Info_Array, -- System.Partition_Interface
+ RE_Same_Partition, -- System.Partition_Interface
RE_Subprogram_Id, -- System.Partition_Interface
+ RE_Get_RAS_Info, -- System.Partition_Interface
RE_Global_Pool_Object, -- System.Pool_Global
- RE_Unbounded_Reclaim_Pool, -- System.Pool_Local
-
RE_Stack_Bounded_Pool, -- System.Pool_Size
RE_Do_Apc, -- System.RPC
RE_Do_Rpc, -- System.RPC
RE_Params_Stream_Type, -- System.RPC
RE_Partition_ID, -- System.RPC
- RE_RPC_Receiver, -- System.RPC
+
+ RE_To_PolyORB_String, -- System.Partition_Interface
+ RE_Caseless_String_Eq, -- System.Partition_Interface
+ RE_TypeCode, -- System.Partition_Interface
+ RE_Any, -- System.Partition_Interface
+ RE_Mode_In, -- System.Partition_Interface
+ RE_Mode_Out, -- System.Partition_Interface
+ RE_Mode_Inout, -- System.Partition_Interface
+ RE_NamedValue, -- System.Partition_Interface
+ RE_Result_Name, -- System.Partition_Interface
+ RE_Object_Ref, -- System.Partition_Interface
+ RE_Create_Any, -- System.Partition_Interface
+ RE_Any_Aggregate_Build, -- System.Partition_Interface
+ RE_Add_Aggregate_Element, -- System.Partition_Interface
+ RE_Get_Aggregate_Element, -- System.Partition_Interface
+ RE_Content_Type, -- System.Partition_Interface
+ RE_Any_Member_Type, -- System.Partition_Interface
+ RE_Get_Nested_Sequence_Length, -- System.Partition_Interface
+ RE_Get_Any_Type, -- System.Partition_Interface
+ RE_Extract_Union_Value, -- System.Partition_Interface
+ RE_NVList_Ref, -- System.Partition_Interface
+ RE_NVList_Create, -- System.Partition_Interface
+ RE_NVList_Add_Item, -- System.Partition_Interface
+ RE_Request_Create, -- System.Partition_Interface
+ RE_Request_Invoke, -- System.Partition_Interface
+ RE_Request_Arguments, -- System.Partition_Interface
+ RE_Request_Set_Out, -- System.Partition_Interface
+ RE_Request_Raise_Occurrence, -- System.Partition_Interface
+ RE_Nil_Exc_List, -- System.Partition_Interface
+ RE_Servant, -- System.Partition_Interface
+ RE_Move_Any_Value, -- System.Partition_Interface
+ RE_Set_Result, -- System.Partition_Interface
+ RE_Register_Obj_Receiving_Stub, -- System.Partition_Interface
+ RE_Register_Pkg_Receiving_Stub, -- System.Partition_Interface
+ RE_Is_Nil, -- System.Partition_Interface
+ RE_Entity_Ptr, -- System.Partition_Interface
+ RE_Entity_Of, -- System.Partition_Interface
+ RE_Inc_Usage, -- System.Partition_Interface
+ RE_Set_Ref, -- System.Partition_Interface
+ RE_Make_Ref, -- System.Partition_Interface
+ RE_Get_Local_Address, -- System.Partition_Interface
+ RE_Get_Reference, -- System.Partition_Interface
+ RE_Asynchronous_P_To_Sync_Scope, -- System.Partition_Interface
+ RE_Buffer_Stream_Type, -- System.Partition_Interface
+ RE_Allocate_Buffer, -- System.Partition_Interface
+ RE_Release_Buffer, -- System.Partition_Interface
+ RE_BS_To_Any, -- System.Partition_Interface
+ RE_Any_To_BS, -- System.Partition_Interface
+
+ RE_FA_B, -- System.Partition_Interface
+ RE_FA_C, -- System.Partition_Interface
+ RE_FA_F, -- System.Partition_Interface
+ RE_FA_I, -- System.Partition_Interface
+ RE_FA_LF, -- System.Partition_Interface
+ RE_FA_LI, -- System.Partition_Interface
+ RE_FA_LLF, -- System.Partition_Interface
+ RE_FA_LLI, -- System.Partition_Interface
+ RE_FA_LLU, -- System.Partition_Interface
+ RE_FA_LU, -- System.Partition_Interface
+ RE_FA_SF, -- System.Partition_Interface
+ RE_FA_SI, -- System.Partition_Interface
+ RE_FA_SSI, -- System.Partition_Interface
+ RE_FA_SSU, -- System.Partition_Interface
+ RE_FA_SU, -- System.Partition_Interface
+ RE_FA_U, -- System.Partition_Interface
+ RE_FA_WC, -- System.Partition_Interface
+ RE_FA_WWC, -- System.Partition_Interface
+ RE_FA_String, -- System.Partition_Interface
+ RE_FA_ObjRef, -- System.Partition_Interface
+
+ RE_TA_A, -- System.Partition_Interface
+ RE_TA_B, -- System.Partition_Interface
+ RE_TA_C, -- System.Partition_Interface
+ RE_TA_F, -- System.Partition_Interface
+ RE_TA_I, -- System.Partition_Interface
+ RE_TA_LF, -- System.Partition_Interface
+ RE_TA_LI, -- System.Partition_Interface
+ RE_TA_LLF, -- System.Partition_Interface
+ RE_TA_LLI, -- System.Partition_Interface
+ RE_TA_LLU, -- System.Partition_Interface
+ RE_TA_LU, -- System.Partition_Interface
+ RE_TA_SF, -- System.Partition_Interface
+ RE_TA_SI, -- System.Partition_Interface
+ RE_TA_SSI, -- System.Partition_Interface
+ RE_TA_SSU, -- System.Partition_Interface
+ RE_TA_SU, -- System.Partition_Interface
+ RE_TA_U, -- System.Partition_Interface
+ RE_TA_WC, -- System.Partition_Interface
+ RE_TA_WWC, -- System.Partition_Interface
+ RE_TA_String, -- System.Partition_Interface
+ RE_TA_ObjRef, -- System.Partition_Interface
+ RE_TA_TC, -- System.Partition_Interface
+
+ RE_TC_Alias, -- System.Partition_Interface
+ RE_TC_Build, -- System.Partition_Interface
+ RE_Get_TC, -- System.Partition_Interface
+ RE_Set_TC, -- System.Partition_Interface
+ RE_TC_Any, -- System.Partition_Interface
+ RE_TC_B, -- System.Partition_Interface
+ RE_TC_C, -- System.Partition_Interface
+ RE_TC_F, -- System.Partition_Interface
+ RE_TC_I, -- System.Partition_Interface
+ RE_TC_LF, -- System.Partition_Interface
+ RE_TC_LI, -- System.Partition_Interface
+ RE_TC_LLF, -- System.Partition_Interface
+ RE_TC_LLI, -- System.Partition_Interface
+ RE_TC_LLU, -- System.Partition_Interface
+ RE_TC_LU, -- System.Partition_Interface
+ RE_TC_SF, -- System.Partition_Interface
+ RE_TC_SI, -- System.Partition_Interface
+ RE_TC_SSI, -- System.Partition_Interface
+ RE_TC_SSU, -- System.Partition_Interface
+ RE_TC_SU, -- System.Partition_Interface
+ RE_TC_U, -- System.Partition_Interface
+ RE_TC_Void, -- System.Partition_Interface
+ RE_TC_Opaque, -- System.Partition_Interface
+ RE_TC_WC, -- System.Partition_Interface
+ RE_TC_WWC, -- System.Partition_Interface
+ RE_TC_Array, -- System.Partition_Interface
+ RE_TC_Sequence, -- System.Partition_Interface
+ RE_TC_String, -- System.Partition_Interface
+ RE_TC_Struct, -- System.Partition_Interface
+ RE_TC_Union, -- System.Partition_Interface
+ RE_TC_Object, -- System.Partition_Interface
RE_IS_Is1, -- System.Scalar_Values
RE_IS_Is2, -- System.Scalar_Values
RE_IS_Iu2, -- System.Scalar_Values
RE_IS_Iu4, -- System.Scalar_Values
RE_IS_Iu8, -- System.Scalar_Values
+ RE_IS_Iz1, -- System.Scalar_Values
+ RE_IS_Iz2, -- System.Scalar_Values
+ RE_IS_Iz4, -- System.Scalar_Values
+ RE_IS_Iz8, -- System.Scalar_Values
RE_IS_Isf, -- System.Scalar_Values
RE_IS_Ifl, -- System.Scalar_Values
RE_IS_Ilf, -- System.Scalar_Values
RE_IS_Ill, -- System.Scalar_Values
+ RE_Default_Secondary_Stack_Size, -- System.Secondary_Stack
RE_Mark_Id, -- System.Secondary_Stack
RE_SS_Allocate, -- System.Secondary_Stack
RE_SS_Pool, -- System.Secondary_Stack
RE_Shared_Var_WOpen, -- System.Shared_Storage
RE_Abort_Undefer_Direct, -- System.Standard_Library
+ RE_Exception_Code, -- System.Standard_Library
RE_Exception_Data_Ptr, -- System.Standard_Library
RE_Integer_Address, -- System.Storage_Elements
RE_Storage_Offset, -- System.Storage_Elements
RE_Storage_Array, -- System.Storage_Elements
RE_To_Address, -- System.Storage_Elements
+ RE_Dummy_Communication_Block, -- System.Storage_Elements
RE_Root_Storage_Pool, -- System.Storage_Pools
RE_Allocate_Any, -- System_Storage_Pools,
RE_Deallocate_Any, -- System_Storage_Pools,
- RE_Thin_Pointer, -- System.Stream_Attributes
- RE_Fat_Pointer, -- System.Stream_Attributes
-
RE_I_AD, -- System.Stream_Attributes
RE_I_AS, -- System.Stream_Attributes
RE_I_B, -- System.Stream_Attributes
RE_I_SU, -- System.Stream_Attributes
RE_I_U, -- System.Stream_Attributes
RE_I_WC, -- System.Stream_Attributes
+ RE_I_WWC, -- System.Stream_Attributes
RE_W_AD, -- System.Stream_Attributes
RE_W_AS, -- System.Stream_Attributes
RE_W_SU, -- System.Stream_Attributes
RE_W_U, -- System.Stream_Attributes
RE_W_WC, -- System.Stream_Attributes
-
- RE_Block_Stream_Ops_OK, -- System.Stream_Attributes
+ RE_W_WWC, -- System.Stream_Attributes
RE_Str_Concat, -- System.String_Ops
RE_Str_Concat_CC, -- System.String_Ops
RE_Str_Concat_CS, -- System.String_Ops
RE_Str_Concat_SC, -- System.String_Ops
- RE_Str_Normalize, -- System.String_Ops
- RE_Wide_Str_Normalize, -- System.String_Ops
RE_Str_Concat_3, -- System.String_Ops_Concat_3
RE_Task_Info_Type, -- System.Task_Info
RE_Unspecified_Task_Info, -- System.Task_Info
- RE_Library_Task_Level, -- System.Tasking
-
RE_Task_Procedure_Access, -- System.Tasking
- RO_ST_Task_ID, -- System.Tasking
+ RO_ST_Task_Id, -- System.Tasking
+ RO_ST_Null_Task, -- System.Tasking
RE_Call_Modes, -- System.Tasking
RE_Simple_Call, -- System.Tasking
RE_Conditional_Call, -- System.Tasking
RE_Asynchronous_Call, -- System.Tasking
- RE_Timed_Call, -- System.Tasking
+
+ RE_Ada_Task_Control_Block, -- System.Tasking
RE_Task_List, -- System.Tasking
- RE_Accept_Alternative, -- System.Tasking
RE_Accept_List, -- System.Tasking
- RE_Accept_List_Access, -- System.Tasking
- RE_Max_Select, -- System.Tasking
- RE_Max_Task_Entry, -- System.Tasking
RE_No_Rendezvous, -- System.Tasking
RE_Null_Task_Entry, -- System.Tasking
- RE_Positive_Select_Index, -- System.Tasking
RE_Select_Index, -- System.Tasking
- RE_Select_Modes, -- System.Tasking
RE_Else_Mode, -- System.Tasking
RE_Simple_Mode, -- System.Tasking
RE_Terminate_Mode, -- System.Tasking
RE_Unspecified_Priority, -- System.Tasking
RE_Activation_Chain, -- System.Tasking
+ RE_Activation_Chain_Access, -- System.Tasking
+ RE_Storage_Size, -- System.Tasking
RE_Abort_Defer, -- System.Soft_Links
RE_Abort_Undefer, -- System.Soft_Links
RE_Value_Unsigned, -- System.Val_Uns
RE_Value_Wide_Character, -- System.Val_WChar
+ RE_Value_Wide_Wide_Character, -- System.Val_WChar
RE_D, -- System.Vax_Float_Operations
RE_F, -- System.Vax_Float_Operations
RE_Le_G, -- System.Vax_Float_Operations
RE_Lt_F, -- System.Vax_Float_Operations
RE_Lt_G, -- System.Vax_Float_Operations
+ RE_Ne_F, -- System.Vax_Float_Operations
+ RE_Ne_G, -- System.Vax_Float_Operations
+
+ RE_Valid_D, -- System.Vax_Float_Operations
+ RE_Valid_F, -- System.Vax_Float_Operations
+ RE_Valid_G, -- System.Vax_Float_Operations
RE_Version_String, -- System.Version_Control
RE_Get_Version_String, -- System.Version_Control
RE_Register_VMS_Exception, -- System.VMS_Exception_Table
RE_String_To_Wide_String, -- System.WCh_StW
+ RE_String_To_Wide_Wide_String, -- System.WCh_StW
RE_Wide_String_To_String, -- System.WCh_WtS
+ RE_Wide_Wide_String_To_String, -- System.WCh_WtS
RE_Wide_Width_Character, -- System.WWd_Char
+ RE_Wide_Wide_Width_Character, -- System.WWd_Char
+
+ RE_Wide_Wide_Width_Enumeration_8, -- System.WWd_Enum
+ RE_Wide_Wide_Width_Enumeration_16, -- System.WWd_Enum
+ RE_Wide_Wide_Width_Enumeration_32, -- System.WWd_Enum
RE_Wide_Width_Enumeration_8, -- System.WWd_Enum
RE_Wide_Width_Enumeration_16, -- System.WWd_Enum
RE_Wide_Width_Enumeration_32, -- System.WWd_Enum
+ RE_Wide_Wide_Width_Wide_Character, -- System.WWd_Wchar
+ RE_Wide_Wide_Width_Wide_Wide_Char, -- System.WWd_Wchar
RE_Wide_Width_Wide_Character, -- System.WWd_Wchar
+ RE_Wide_Width_Wide_Wide_Character, -- System.WWd_Wchar
RE_Width_Boolean, -- System.Wid_Bool
RE_Width_Long_Long_Unsigned, -- System.Wid_LLU
RE_Width_Wide_Character, -- System.Wid_WChar
+ RE_Width_Wide_Wide_Character, -- System.Wid_WChar
RE_Protected_Entry_Body_Array, -- Tasking.Protected_Objects.Entries
RE_Protection_Entries, -- Tasking.Protected_Objects.Entries
RE_Initialize_Protection_Entries, -- Tasking.Protected_Objects.Entries
RE_Lock_Entries, -- Tasking.Protected_Objects.Entries
- RE_Lock_Read_Only_Entries, -- Tasking.Protected_Objects.Entries
+ RO_PE_Get_Ceiling, -- Tasking.Protected_Objects.Entries
+ RO_PE_Set_Ceiling, -- Tasking.Protected_Objects.Entries
RE_Unlock_Entries, -- Tasking.Protected_Objects.Entries
RE_Communication_Block, -- Protected_Objects.Operations
RE_Protected_Entry_Call, -- Protected_Objects.Operations
RE_Protection_Entry, -- Protected_Objects.Single_Entry
RE_Initialize_Protection_Entry, -- Protected_Objects.Single_Entry
RE_Lock_Entry, -- Protected_Objects.Single_Entry
- RE_Lock_Read_Only_Entry, -- Protected_Objects.Single_Entry
RE_Unlock_Entry, -- Protected_Objects.Single_Entry
RE_Protected_Single_Entry_Call, -- Protected_Objects.Single_Entry
RE_Service_Entry, -- Protected_Objects.Single_Entry
RE_Initialize_Protection, -- System.Tasking.Protected_Objects
RE_Finalize_Protection, -- System.Tasking.Protected_Objects
RE_Lock, -- System.Tasking.Protected_Objects
- RE_Lock_Read_Only, -- System.Tasking.Protected_Objects
+ RE_Get_Ceiling, -- System.Tasking.Protected_Objects
+ RE_Set_Ceiling, -- System.Tasking.Protected_Objects
RE_Unlock, -- System.Tasking.Protected_Objects
RE_Delay_Block, -- System.Tasking.Async_Delays
RE_Complete_Task, -- System.Tasking.Stages
RE_Free_Task, -- System.Tasking.Stages
RE_Expunge_Unactivated_Tasks, -- System.Tasking.Stages
+ RE_Move_Activation_Chain, -- System_Tasking_Stages
RE_Terminated); -- System.Tasking.Stages
-- The following declarations build a table that is indexed by the
RE_Null => RTU_Null,
- RE_Exceptions_Available_In_HIE => Ada_Exceptions,
RE_Code_Loc => Ada_Exceptions,
RE_Current_Target_Exception => Ada_Exceptions, -- of JGNAT
RE_Exception_Id => Ada_Exceptions,
RE_Exception_Message => Ada_Exceptions,
RE_Exception_Name_Simple => Ada_Exceptions,
RE_Exception_Occurrence => Ada_Exceptions,
- RE_Null_Id => Ada_Exceptions,
RE_Null_Occurrence => Ada_Exceptions,
RE_Poll => Ada_Exceptions,
RE_Raise_Exception => Ada_Exceptions,
RE_Raise_Exception_Always => Ada_Exceptions,
+ RE_Raise_From_Controlled_Operation => Ada_Exceptions,
RE_Reraise_Occurrence => Ada_Exceptions,
RE_Reraise_Occurrence_Always => Ada_Exceptions,
RE_Reraise_Occurrence_No_Defer => Ada_Exceptions,
RE_List_Controller => Ada_Finalization_List_Controller,
RE_Interrupt_ID => Ada_Interrupts,
+ RE_Is_Reserved => Ada_Interrupts,
+ RE_Is_Attached => Ada_Interrupts,
+ RE_Current_Handler => Ada_Interrupts,
+ RE_Attach_Handler => Ada_Interrupts,
+ RE_Exchange_Handler => Ada_Interrupts,
+ RE_Detach_Handler => Ada_Interrupts,
+ RE_Reference => Ada_Interrupts,
RE_Names => Ada_Interrupts_Names,
RE_Root_Stream_Type => Ada_Streams,
RE_Stream_Element => Ada_Streams,
- RE_Stream_Element_Count => Ada_Streams,
- RE_Stream_Element_Offset => Ada_Streams,
- RE_Stream_Element_Array => Ada_Streams,
RE_Stream_Access => Ada_Streams_Stream_IO,
- RE_CW_Membership => Ada_Tags,
- RE_DT_Entry_Size => Ada_Tags,
- RE_DT_Prologue_Size => Ada_Tags,
+ RE_Access_Level => Ada_Tags,
+ RE_Address_Array => Ada_Tags,
+ RE_Addr_Ptr => Ada_Tags,
+ RE_Base_Address => Ada_Tags,
+ RE_Cstring_Ptr => Ada_Tags,
+ RE_Default_Prim_Op_Count => Ada_Tags,
+ RE_Descendant_Tag => Ada_Tags,
+ RE_Dispatch_Table => Ada_Tags,
+ RE_Dispatch_Table_Wrapper => Ada_Tags,
+ RE_Displace => Ada_Tags,
+ RE_DT => Ada_Tags,
+ RE_DT_Predef_Prims_Offset => Ada_Tags,
+ RE_DT_Typeinfo_Ptr_Size => Ada_Tags,
+ RE_Expanded_Name => Ada_Tags,
RE_External_Tag => Ada_Tags,
- RE_Get_Expanded_Name => Ada_Tags,
- RE_Get_External_Tag => Ada_Tags,
- RE_Get_Prim_Op_Address => Ada_Tags,
- RE_Get_RC_Offset => Ada_Tags,
- RE_Get_Remotely_Callable => Ada_Tags,
- RE_Get_TSD => Ada_Tags,
- RE_Inherit_DT => Ada_Tags,
- RE_Inherit_TSD => Ada_Tags,
- RE_Internal_Tag => Ada_Tags,
+ RE_HT_Link => Ada_Tags,
+ RO_TA_External_Tag => Ada_Tags,
+ RE_Get_Access_Level => Ada_Tags,
+ RE_Get_Entry_Index => Ada_Tags,
+ RE_Get_Offset_Index => Ada_Tags,
+ RE_Get_Prim_Op_Kind => Ada_Tags,
+ RE_Get_Tagged_Kind => Ada_Tags,
+ RE_Idepth => Ada_Tags,
+ RE_Iface_Tag => Ada_Tags,
+ RE_Ifaces_Table => Ada_Tags,
+ RE_Interfaces_Table => Ada_Tags,
+ RE_Interface_Data => Ada_Tags,
+ RE_Interface_Tag => Ada_Tags,
+ RE_IW_Membership => Ada_Tags,
+ RE_Nb_Ifaces => Ada_Tags,
+ RE_No_Dispatch_Table_Wrapper => Ada_Tags,
+ RE_NDT_Prims_Ptr => Ada_Tags,
+ RE_NDT_TSD => Ada_Tags,
+ RE_Num_Prims => Ada_Tags,
+ RE_Object_Specific_Data => Ada_Tags,
+ RE_Offset_To_Top => Ada_Tags,
+ RE_Offset_To_Top_Function_Ptr => Ada_Tags,
+ RE_OSD_Table => Ada_Tags,
+ RE_OSD_Num_Prims => Ada_Tags,
+ RE_POK_Function => Ada_Tags,
+ RE_POK_Procedure => Ada_Tags,
+ RE_POK_Protected_Entry => Ada_Tags,
+ RE_POK_Protected_Function => Ada_Tags,
+ RE_POK_Protected_Procedure => Ada_Tags,
+ RE_POK_Task_Entry => Ada_Tags,
+ RE_POK_Task_Function => Ada_Tags,
+ RE_POK_Task_Procedure => Ada_Tags,
+ RE_Predef_Prims => Ada_Tags,
+ RE_Predef_Prims_Table_Ptr => Ada_Tags,
+ RE_Prim_Op_Kind => Ada_Tags,
+ RE_Prims_Ptr => Ada_Tags,
+ RE_Primary_DT => Ada_Tags,
+ RE_Signature => Ada_Tags,
+ RE_SSD => Ada_Tags,
+ RE_TSD => Ada_Tags,
+ RE_Type_Specific_Data => Ada_Tags,
RE_Register_Tag => Ada_Tags,
- RE_Set_Expanded_Name => Ada_Tags,
- RE_Set_External_Tag => Ada_Tags,
- RE_Set_Prim_Op_Address => Ada_Tags,
- RE_Set_RC_Offset => Ada_Tags,
- RE_Set_Remotely_Callable => Ada_Tags,
- RE_Set_TSD => Ada_Tags,
- RE_Tag_Error => Ada_Tags,
- RE_TSD_Entry_Size => Ada_Tags,
- RE_TSD_Prologue_Size => Ada_Tags,
+ RE_Transportable => Ada_Tags,
+ RE_RC_Offset => Ada_Tags,
+ RE_Secondary_DT => Ada_Tags,
+ RE_Select_Specific_Data => Ada_Tags,
+ RE_Set_Entry_Index => Ada_Tags,
+ RE_Set_Offset_To_Top => Ada_Tags,
+ RE_Set_Prim_Op_Kind => Ada_Tags,
+ RE_Static_Offset_To_Top => Ada_Tags,
RE_Tag => Ada_Tags,
- RE_Address_Array => Ada_Tags,
+ RE_Tag_Error => Ada_Tags,
+ RE_Tag_Kind => Ada_Tags,
+ RE_Tag_Ptr => Ada_Tags,
+ RE_Tag_Table => Ada_Tags,
+ RE_Tags_Table => Ada_Tags,
+ RE_Tagged_Kind => Ada_Tags,
+ RE_Type_Specific_Data_Ptr => Ada_Tags,
+ RE_TK_Abstract_Limited_Tagged => Ada_Tags,
+ RE_TK_Abstract_Tagged => Ada_Tags,
+ RE_TK_Limited_Tagged => Ada_Tags,
+ RE_TK_Protected => Ada_Tags,
+ RE_TK_Tagged => Ada_Tags,
+ RE_TK_Task => Ada_Tags,
RE_Abort_Task => Ada_Task_Identification,
RE_Current_Task => Ada_Task_Identification,
- RO_AT_Task_ID => Ada_Task_Identification,
+ RO_AT_Task_Id => Ada_Task_Identification,
RO_CA_Time => Ada_Calendar,
RO_CA_Delay_For => Ada_Calendar_Delays,
RE_Unsigned_32 => Interfaces,
RE_Unsigned_64 => Interfaces,
- RE_Vtable_Ptr => Interfaces_CPP,
- RE_Displaced_This => Interfaces_CPP,
- RE_CPP_CW_Membership => Interfaces_CPP,
- RE_CPP_DT_Entry_Size => Interfaces_CPP,
- RE_CPP_DT_Prologue_Size => Interfaces_CPP,
- RE_CPP_Get_Expanded_Name => Interfaces_CPP,
- RE_CPP_Get_External_Tag => Interfaces_CPP,
- RE_CPP_Get_Prim_Op_Address => Interfaces_CPP,
- RE_CPP_Get_RC_Offset => Interfaces_CPP,
- RE_CPP_Get_Remotely_Callable => Interfaces_CPP,
- RE_CPP_Get_TSD => Interfaces_CPP,
- RE_CPP_Inherit_DT => Interfaces_CPP,
- RE_CPP_Inherit_TSD => Interfaces_CPP,
- RE_CPP_Register_Tag => Interfaces_CPP,
- RE_CPP_Set_Expanded_Name => Interfaces_CPP,
- RE_CPP_Set_External_Tag => Interfaces_CPP,
- RE_CPP_Set_Prim_Op_Address => Interfaces_CPP,
- RE_CPP_Set_RC_Offset => Interfaces_CPP,
- RE_CPP_Set_Remotely_Callable => Interfaces_CPP,
- RE_CPP_Set_TSD => Interfaces_CPP,
- RE_CPP_TSD_Entry_Size => Interfaces_CPP,
- RE_CPP_TSD_Prologue_Size => Interfaces_CPP,
-
- RE_Packed_Size => Interfaces_Packed_Decimal,
- RE_Packed_To_Int32 => Interfaces_Packed_Decimal,
- RE_Packed_To_Int64 => Interfaces_Packed_Decimal,
- RE_Int32_To_Packed => Interfaces_Packed_Decimal,
- RE_Int64_To_Packed => Interfaces_Packed_Decimal,
-
RE_Address => System,
RE_Any_Priority => System,
RE_Bit_Order => System,
- RE_Default_Priority => System,
RE_High_Order_First => System,
RE_Interrupt_Priority => System,
RE_Lib_Stop => System,
RE_Low_Order_First => System,
- RE_Max_Interrupt_Priority => System,
RE_Max_Priority => System,
RE_Null_Address => System,
RE_Priority => System,
+ RE_Address_Image => System_Address_Image,
+
RE_Add_With_Ovflo_Check => System_Arith_64,
RE_Double_Divide => System_Arith_64,
RE_Multiply_With_Ovflo_Check => System_Arith_64,
RE_Create_AST_Handler => System_AST_Handling,
+ RE_Assert_Failure => System_Assertions,
RE_Raise_Assert_Failure => System_Assertions,
RE_AST_Handler => System_Aux_DEC,
RE_Checked_Pool => System_Checked_Pools,
- RE_Boolean_Array => System_Boolean_Array_Operations,
RE_Vector_Not => System_Boolean_Array_Operations,
RE_Vector_And => System_Boolean_Array_Operations,
RE_Vector_Or => System_Boolean_Array_Operations,
RE_Compare_Array_U64 => System_Compare_Array_Unsigned_64,
+ RE_Get_Active_Partition_Id => System_DSA_Services,
+ RE_Get_Local_Partition_Id => System_DSA_Services,
+ RE_Get_Passive_Partition_Id => System_DSA_Services,
+
RE_Register_Exception => System_Exception_Table,
- RE_All_Others_Id => System_Exceptions,
- RE_Handler_Record => System_Exceptions,
- RE_Handler_Record_Ptr => System_Exceptions,
- RE_Others_Id => System_Exceptions,
- RE_Subprogram_Descriptor => System_Exceptions,
- RE_Subprogram_Descriptor_0 => System_Exceptions,
- RE_Subprogram_Descriptor_1 => System_Exceptions,
- RE_Subprogram_Descriptor_2 => System_Exceptions,
- RE_Subprogram_Descriptor_3 => System_Exceptions,
- RE_Subprogram_Descriptor_List => System_Exceptions,
- RE_Subprogram_Descriptor_Ptr => System_Exceptions,
- RE_Subprogram_Descriptors_Record => System_Exceptions,
- RE_Subprogram_Descriptors_Ptr => System_Exceptions,
+ RE_Local_Raise => System_Exceptions,
RE_Exn_Integer => System_Exn_Int,
RE_Exp_Unsigned => System_Exp_Uns,
- RE_Fat_Float => System_Fat_Flt,
+ RE_Attr_Float => System_Fat_Flt,
+
+ RE_Attr_IEEE_Long => System_Fat_IEEE_Long_Float,
+ RE_Fat_IEEE_Long => System_Fat_IEEE_Long_Float,
+
+ RE_Attr_IEEE_Short => System_Fat_IEEE_Short_Float,
+ RE_Fat_IEEE_Short => System_Fat_IEEE_Short_Float,
- RE_Fat_Long_Float => System_Fat_LFlt,
+ RE_Attr_Long_Float => System_Fat_LFlt,
- RE_Fat_Long_Long_Float => System_Fat_LLF,
+ RE_Attr_Long_Long_Float => System_Fat_LLF,
- RE_Fat_Short_Float => System_Fat_SFlt,
+ RE_Attr_Short_Float => System_Fat_SFlt,
+
+ RE_Attr_VAX_D_Float => System_Fat_VAX_D_Float,
+ RE_Fat_VAX_D => System_Fat_VAX_D_Float,
+
+ RE_Attr_VAX_F_Float => System_Fat_VAX_F_Float,
+ RE_Fat_VAX_F => System_Fat_VAX_F_Float,
+
+ RE_Attr_VAX_G_Float => System_Fat_VAX_G_Float,
+ RE_Fat_VAX_G => System_Fat_VAX_G_Float,
RE_Attach_To_Final_List => System_Finalization_Implementation,
+ RE_Finalizable_Ptr_Ptr => System_Finalization_Implementation,
+ RE_Move_Final_List => System_Finalization_Implementation,
RE_Finalize_List => System_Finalization_Implementation,
RE_Finalize_One => System_Finalization_Implementation,
RE_Global_Final_List => System_Finalization_Implementation,
RE_Record_Controller => System_Finalization_Implementation,
RE_Limited_Record_Controller => System_Finalization_Implementation,
- RE_Deep_Tag_Initialize => System_Finalization_Implementation,
- RE_Deep_Tag_Adjust => System_Finalization_Implementation,
- RE_Deep_Tag_Finalize => System_Finalization_Implementation,
RE_Deep_Tag_Attach => System_Finalization_Implementation,
- RE_Deep_Rec_Initialize => System_Finalization_Implementation,
- RE_Deep_Rec_Adjust => System_Finalization_Implementation,
- RE_Deep_Rec_Finalize => System_Finalization_Implementation,
RE_Root_Controlled => System_Finalization_Root,
RE_Finalizable => System_Finalization_Root,
RE_Image_Unsigned => System_Img_Uns,
RE_Image_Wide_Character => System_Img_WChar,
+ RE_Image_Wide_Wide_Character => System_Img_WChar,
RE_Bind_Interrupt_To_Entry => System_Interrupts,
RE_Default_Interrupt_Priority => System_Interrupts,
RE_Mantissa_Value => System_Mantissa,
- RE_memcpy => System_Memcop,
- RE_memmove => System_Memcop,
-
RE_Bits_03 => System_Pack_03,
RE_Get_03 => System_Pack_03,
RE_Set_03 => System_Pack_03,
RE_Size_Type => System_Parameters,
RE_Unspecified_Size => System_Parameters,
- RE_Get_Active_Partition_Id => System_Partition_Interface,
- RE_Get_Passive_Partition_Id => System_Partition_Interface,
- RE_Get_Local_Partition_Id => System_Partition_Interface,
+ RE_DSA_Implementation => System_Partition_Interface,
RE_Get_RCI_Package_Receiver => System_Partition_Interface,
RE_Get_Unique_Remote_Pointer => System_Partition_Interface,
- RE_RACW_Stub_Type => System_Partition_Interface,
RE_RACW_Stub_Type_Access => System_Partition_Interface,
- RE_Raise_Program_Error_For_E_4_18 => System_Partition_Interface,
+ RE_RAS_Proxy_Type_Access => System_Partition_Interface,
RE_Raise_Program_Error_Unknown_Tag => System_Partition_Interface,
RE_Register_Passive_Package => System_Partition_Interface,
RE_Register_Receiving_Stub => System_Partition_Interface,
- RE_RCI_Info => System_Partition_Interface,
+ RE_Request_Access => System_Partition_Interface,
+ RE_RCI_Locator => System_Partition_Interface,
+ RE_RCI_Subp_Info => System_Partition_Interface,
+ RE_RCI_Subp_Info_Array => System_Partition_Interface,
+ RE_Same_Partition => System_Partition_Interface,
RE_Subprogram_Id => System_Partition_Interface,
+ RE_Get_RAS_Info => System_Partition_Interface,
+
+ RE_To_PolyORB_String => System_Partition_Interface,
+ RE_Caseless_String_Eq => System_Partition_Interface,
+ RE_TypeCode => System_Partition_Interface,
+ RE_Any => System_Partition_Interface,
+ RE_Mode_In => System_Partition_Interface,
+ RE_Mode_Out => System_Partition_Interface,
+ RE_Mode_Inout => System_Partition_Interface,
+ RE_NamedValue => System_Partition_Interface,
+ RE_Result_Name => System_Partition_Interface,
+ RE_Object_Ref => System_Partition_Interface,
+ RE_Create_Any => System_Partition_Interface,
+ RE_Any_Aggregate_Build => System_Partition_Interface,
+ RE_Add_Aggregate_Element => System_Partition_Interface,
+ RE_Get_Aggregate_Element => System_Partition_Interface,
+ RE_Content_Type => System_Partition_Interface,
+ RE_Any_Member_Type => System_Partition_Interface,
+ RE_Get_Nested_Sequence_Length => System_Partition_Interface,
+ RE_Get_Any_Type => System_Partition_Interface,
+ RE_Extract_Union_Value => System_Partition_Interface,
+ RE_NVList_Ref => System_Partition_Interface,
+ RE_NVList_Create => System_Partition_Interface,
+ RE_NVList_Add_Item => System_Partition_Interface,
+ RE_Request_Create => System_Partition_Interface,
+ RE_Request_Invoke => System_Partition_Interface,
+ RE_Request_Arguments => System_Partition_Interface,
+ RE_Request_Set_Out => System_Partition_Interface,
+ RE_Request_Raise_Occurrence => System_Partition_Interface,
+ RE_Nil_Exc_List => System_Partition_Interface,
+ RE_Servant => System_Partition_Interface,
+ RE_Move_Any_Value => System_Partition_Interface,
+ RE_Set_Result => System_Partition_Interface,
+ RE_Register_Obj_Receiving_Stub => System_Partition_Interface,
+ RE_Register_Pkg_Receiving_Stub => System_Partition_Interface,
+ RE_Is_Nil => System_Partition_Interface,
+ RE_Entity_Ptr => System_Partition_Interface,
+ RE_Entity_Of => System_Partition_Interface,
+ RE_Inc_Usage => System_Partition_Interface,
+ RE_Set_Ref => System_Partition_Interface,
+ RE_Make_Ref => System_Partition_Interface,
+ RE_Get_Local_Address => System_Partition_Interface,
+ RE_Get_Reference => System_Partition_Interface,
+ RE_Asynchronous_P_To_Sync_Scope => System_Partition_Interface,
+ RE_Buffer_Stream_Type => System_Partition_Interface,
+ RE_Allocate_Buffer => System_Partition_Interface,
+ RE_Release_Buffer => System_Partition_Interface,
+ RE_BS_To_Any => System_Partition_Interface,
+ RE_Any_To_BS => System_Partition_Interface,
+
+ RE_FA_B => System_Partition_Interface,
+ RE_FA_C => System_Partition_Interface,
+ RE_FA_F => System_Partition_Interface,
+ RE_FA_I => System_Partition_Interface,
+ RE_FA_LF => System_Partition_Interface,
+ RE_FA_LI => System_Partition_Interface,
+ RE_FA_LLF => System_Partition_Interface,
+ RE_FA_LLI => System_Partition_Interface,
+ RE_FA_LLU => System_Partition_Interface,
+ RE_FA_LU => System_Partition_Interface,
+ RE_FA_SF => System_Partition_Interface,
+ RE_FA_SI => System_Partition_Interface,
+ RE_FA_SSI => System_Partition_Interface,
+ RE_FA_SSU => System_Partition_Interface,
+ RE_FA_SU => System_Partition_Interface,
+ RE_FA_U => System_Partition_Interface,
+ RE_FA_WC => System_Partition_Interface,
+ RE_FA_WWC => System_Partition_Interface,
+ RE_FA_String => System_Partition_Interface,
+ RE_FA_ObjRef => System_Partition_Interface,
+
+ RE_TA_A => System_Partition_Interface,
+ RE_TA_B => System_Partition_Interface,
+ RE_TA_C => System_Partition_Interface,
+ RE_TA_F => System_Partition_Interface,
+ RE_TA_I => System_Partition_Interface,
+ RE_TA_LF => System_Partition_Interface,
+ RE_TA_LI => System_Partition_Interface,
+ RE_TA_LLF => System_Partition_Interface,
+ RE_TA_LLI => System_Partition_Interface,
+ RE_TA_LLU => System_Partition_Interface,
+ RE_TA_LU => System_Partition_Interface,
+ RE_TA_SF => System_Partition_Interface,
+ RE_TA_SI => System_Partition_Interface,
+ RE_TA_SSI => System_Partition_Interface,
+ RE_TA_SSU => System_Partition_Interface,
+ RE_TA_SU => System_Partition_Interface,
+ RE_TA_U => System_Partition_Interface,
+ RE_TA_WC => System_Partition_Interface,
+ RE_TA_WWC => System_Partition_Interface,
+ RE_TA_String => System_Partition_Interface,
+ RE_TA_ObjRef => System_Partition_Interface,
+ RE_TA_TC => System_Partition_Interface,
+
+ RE_TC_Alias => System_Partition_Interface,
+ RE_TC_Build => System_Partition_Interface,
+ RE_Get_TC => System_Partition_Interface,
+ RE_Set_TC => System_Partition_Interface,
+ RE_TC_Any => System_Partition_Interface,
+ RE_TC_B => System_Partition_Interface,
+ RE_TC_C => System_Partition_Interface,
+ RE_TC_F => System_Partition_Interface,
+ RE_TC_I => System_Partition_Interface,
+ RE_TC_LF => System_Partition_Interface,
+ RE_TC_LI => System_Partition_Interface,
+ RE_TC_LLF => System_Partition_Interface,
+ RE_TC_LLI => System_Partition_Interface,
+ RE_TC_LLU => System_Partition_Interface,
+ RE_TC_LU => System_Partition_Interface,
+ RE_TC_SF => System_Partition_Interface,
+ RE_TC_SI => System_Partition_Interface,
+ RE_TC_SSI => System_Partition_Interface,
+ RE_TC_SSU => System_Partition_Interface,
+ RE_TC_SU => System_Partition_Interface,
+ RE_TC_U => System_Partition_Interface,
+ RE_TC_Void => System_Partition_Interface,
+ RE_TC_Opaque => System_Partition_Interface,
+ RE_TC_WC => System_Partition_Interface,
+ RE_TC_WWC => System_Partition_Interface,
+ RE_TC_Array => System_Partition_Interface,
+ RE_TC_Sequence => System_Partition_Interface,
+ RE_TC_String => System_Partition_Interface,
+ RE_TC_Struct => System_Partition_Interface,
+ RE_TC_Union => System_Partition_Interface,
+ RE_TC_Object => System_Partition_Interface,
RE_Global_Pool_Object => System_Pool_Global,
- RE_Unbounded_Reclaim_Pool => System_Pool_Local,
-
RE_Stack_Bounded_Pool => System_Pool_Size,
RE_Do_Apc => System_RPC,
RE_Do_Rpc => System_RPC,
RE_Params_Stream_Type => System_RPC,
RE_Partition_ID => System_RPC,
- RE_RPC_Receiver => System_RPC,
RE_IS_Is1 => System_Scalar_Values,
RE_IS_Is2 => System_Scalar_Values,
RE_IS_Iu2 => System_Scalar_Values,
RE_IS_Iu4 => System_Scalar_Values,
RE_IS_Iu8 => System_Scalar_Values,
+ RE_IS_Iz1 => System_Scalar_Values,
+ RE_IS_Iz2 => System_Scalar_Values,
+ RE_IS_Iz4 => System_Scalar_Values,
+ RE_IS_Iz8 => System_Scalar_Values,
RE_IS_Isf => System_Scalar_Values,
RE_IS_Ifl => System_Scalar_Values,
RE_IS_Ilf => System_Scalar_Values,
RE_IS_Ill => System_Scalar_Values,
+ RE_Default_Secondary_Stack_Size => System_Secondary_Stack,
RE_Mark_Id => System_Secondary_Stack,
RE_SS_Allocate => System_Secondary_Stack,
RE_SS_Mark => System_Secondary_Stack,
RE_Shared_Var_WOpen => System_Shared_Storage,
RE_Abort_Undefer_Direct => System_Standard_Library,
+ RE_Exception_Code => System_Standard_Library,
RE_Exception_Data_Ptr => System_Standard_Library,
RE_Integer_Address => System_Storage_Elements,
RE_Storage_Offset => System_Storage_Elements,
RE_Storage_Array => System_Storage_Elements,
RE_To_Address => System_Storage_Elements,
+ RE_Dummy_Communication_Block => System_Storage_Elements,
RE_Root_Storage_Pool => System_Storage_Pools,
RE_Allocate_Any => System_Storage_Pools,
RE_Deallocate_Any => System_Storage_Pools,
- RE_Thin_Pointer => System_Stream_Attributes,
- RE_Fat_Pointer => System_Stream_Attributes,
-
RE_I_AD => System_Stream_Attributes,
RE_I_AS => System_Stream_Attributes,
RE_I_B => System_Stream_Attributes,
RE_I_SU => System_Stream_Attributes,
RE_I_U => System_Stream_Attributes,
RE_I_WC => System_Stream_Attributes,
+ RE_I_WWC => System_Stream_Attributes,
RE_W_AD => System_Stream_Attributes,
RE_W_AS => System_Stream_Attributes,
RE_W_SU => System_Stream_Attributes,
RE_W_U => System_Stream_Attributes,
RE_W_WC => System_Stream_Attributes,
-
- RE_Block_Stream_Ops_OK => System_Stream_Attributes,
+ RE_W_WWC => System_Stream_Attributes,
RE_Str_Concat => System_String_Ops,
- RE_Str_Normalize => System_String_Ops,
- RE_Wide_Str_Normalize => System_String_Ops,
RE_Str_Concat_CC => System_String_Ops,
RE_Str_Concat_CS => System_String_Ops,
RE_Str_Concat_SC => System_String_Ops,
RE_Task_Info_Type => System_Task_Info,
RE_Unspecified_Task_Info => System_Task_Info,
- RE_Library_Task_Level => System_Tasking,
-
RE_Task_Procedure_Access => System_Tasking,
- RO_ST_Task_ID => System_Tasking,
+ RO_ST_Task_Id => System_Tasking,
+ RO_ST_Null_Task => System_Tasking,
RE_Call_Modes => System_Tasking,
RE_Simple_Call => System_Tasking,
RE_Conditional_Call => System_Tasking,
RE_Asynchronous_Call => System_Tasking,
- RE_Timed_Call => System_Tasking,
+
+ RE_Ada_Task_Control_Block => System_Tasking,
RE_Task_List => System_Tasking,
- RE_Accept_Alternative => System_Tasking,
RE_Accept_List => System_Tasking,
- RE_Accept_List_Access => System_Tasking,
- RE_Max_Select => System_Tasking,
- RE_Max_Task_Entry => System_Tasking,
RE_No_Rendezvous => System_Tasking,
RE_Null_Task_Entry => System_Tasking,
- RE_Positive_Select_Index => System_Tasking,
RE_Select_Index => System_Tasking,
- RE_Select_Modes => System_Tasking,
RE_Else_Mode => System_Tasking,
RE_Simple_Mode => System_Tasking,
RE_Terminate_Mode => System_Tasking,
RE_Unspecified_Priority => System_Tasking,
RE_Activation_Chain => System_Tasking,
+ RE_Activation_Chain_Access => System_Tasking,
+ RE_Storage_Size => System_Tasking,
RE_Abort_Defer => System_Soft_Links,
RE_Abort_Undefer => System_Soft_Links,
RE_Value_Unsigned => System_Val_Uns,
RE_Value_Wide_Character => System_Val_WChar,
+ RE_Value_Wide_Wide_Character => System_Val_WChar,
RE_D => System_Vax_Float_Operations,
RE_F => System_Vax_Float_Operations,
RE_Le_G => System_Vax_Float_Operations,
RE_Lt_F => System_Vax_Float_Operations,
RE_Lt_G => System_Vax_Float_Operations,
+ RE_Ne_F => System_Vax_Float_Operations,
+ RE_Ne_G => System_Vax_Float_Operations,
+
+ RE_Valid_D => System_Vax_Float_Operations,
+ RE_Valid_F => System_Vax_Float_Operations,
+ RE_Valid_G => System_Vax_Float_Operations,
RE_Version_String => System_Version_Control,
RE_Get_Version_String => System_Version_Control,
RE_Register_VMS_Exception => System_VMS_Exception_Table,
RE_String_To_Wide_String => System_WCh_StW,
+ RE_String_To_Wide_Wide_String => System_WCh_StW,
RE_Wide_String_To_String => System_WCh_WtS,
+ RE_Wide_Wide_String_To_String => System_WCh_WtS,
+ RE_Wide_Wide_Width_Character => System_WWd_Char,
RE_Wide_Width_Character => System_WWd_Char,
+ RE_Wide_Wide_Width_Enumeration_8 => System_WWd_Enum,
+ RE_Wide_Wide_Width_Enumeration_16 => System_WWd_Enum,
+ RE_Wide_Wide_Width_Enumeration_32 => System_WWd_Enum,
+
RE_Wide_Width_Enumeration_8 => System_WWd_Enum,
RE_Wide_Width_Enumeration_16 => System_WWd_Enum,
RE_Wide_Width_Enumeration_32 => System_WWd_Enum,
+ RE_Wide_Wide_Width_Wide_Character => System_WWd_Wchar,
+ RE_Wide_Wide_Width_Wide_Wide_Char => System_WWd_Wchar,
+
RE_Wide_Width_Wide_Character => System_WWd_Wchar,
+ RE_Wide_Width_Wide_Wide_Character => System_WWd_Wchar,
RE_Width_Boolean => System_Wid_Bool,
RE_Width_Long_Long_Unsigned => System_Wid_LLU,
RE_Width_Wide_Character => System_Wid_WChar,
+ RE_Width_Wide_Wide_Character => System_Wid_WChar,
RE_Protected_Entry_Body_Array =>
System_Tasking_Protected_Objects_Entries,
System_Tasking_Protected_Objects_Entries,
RE_Lock_Entries =>
System_Tasking_Protected_Objects_Entries,
- RE_Lock_Read_Only_Entries =>
+ RO_PE_Get_Ceiling =>
+ System_Tasking_Protected_Objects_Entries,
+ RO_PE_Set_Ceiling =>
System_Tasking_Protected_Objects_Entries,
RE_Unlock_Entries =>
System_Tasking_Protected_Objects_Entries,
System_Tasking_Protected_Objects_Single_Entry,
RE_Lock_Entry =>
System_Tasking_Protected_Objects_Single_Entry,
- RE_Lock_Read_Only_Entry =>
- System_Tasking_Protected_Objects_Single_Entry,
RE_Unlock_Entry =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Protected_Single_Entry_Call =>
RE_Initialize_Protection => System_Tasking_Protected_Objects,
RE_Finalize_Protection => System_Tasking_Protected_Objects,
RE_Lock => System_Tasking_Protected_Objects,
- RE_Lock_Read_Only => System_Tasking_Protected_Objects,
+ RE_Get_Ceiling => System_Tasking_Protected_Objects,
+ RE_Set_Ceiling => System_Tasking_Protected_Objects,
RE_Unlock => System_Tasking_Protected_Objects,
RE_Delay_Block => System_Tasking_Async_Delays,
RE_Complete_Task => System_Tasking_Stages,
RE_Free_Task => System_Tasking_Stages,
RE_Expunge_Unactivated_Tasks => System_Tasking_Stages,
+ RE_Move_Activation_Chain => System_Tasking_Stages,
RE_Terminated => System_Tasking_Stages);
--------------------------------
-- Subprograms --
-----------------
+ RE_Not_Available : exception;
+ -- Raised by RTE if the requested entity is not available. This can
+ -- occur either because the file in which the entity should be found
+ -- does not exist, or because the entity is not present in the file.
+
procedure Initialize;
-- Procedure to initialize data structures used by RTE. Called at the
-- start of processing a new main source file. Must be called after
-- Initialize_Snames (since names it enters into name table must come
-- after names entered by Snames).
- RE_Not_Available : exception;
- -- Raised by RTE if the requested entity is not available. This can
- -- occur either because the file in which the entity should be found
- -- does not exist, or because the entity is not present in the file.
+ function Is_RTE (Ent : Entity_Id; E : RE_Id) return Boolean;
+ -- This function determines if the given entity corresponds to the entity
+ -- referenced by RE_Id. It is similar in effect to (Ent = RTE (E)) except
+ -- that the latter would unconditionally load the unit containing E. For
+ -- this call, if the unit is not loaded, then a result of False is returned
+ -- immediately, since obviously Ent cannot be the entity in question if the
+ -- corresponding unit has not been loaded.
+
+ function Is_RTU (Ent : Entity_Id; U : RTU_Id) return Boolean;
+ pragma Inline (Is_RTU);
+ -- This function determines if the given entity corresponds to the entity
+ -- for the unit referenced by U. If this unit has not been loaded, the
+ -- answer will always be False. If the unit has been loaded, then the
+ -- entity id values are compared and True is returned if Ent is the
+ -- entity for this unit.
+
+ function Is_Text_IO_Kludge_Unit (Nam : Node_Id) return Boolean;
+ -- Returns True if the given Nam is an Expanded Name, whose Prefix is Ada,
+ -- and whose selector is either Text_IO.xxx or Wide_Text_IO.xxx or
+ -- Wide_Wide_Text_IO.xxx, where xxx is one of the subpackages of Text_IO
+ -- that is specially handled as described above for Text_IO_Kludge.
function RTE (E : RE_Id) return Entity_Id;
-- Given the entity defined in the above tables, as identified by the
- -- corresponding value in the RE_Id enumeration type, returns the Id
- -- of the corresponding entity, first loading in (parsing, analyzing and
- -- expanding) its spec if the unit has not already been loaded.
+ -- corresponding value in the RE_Id enumeration type, returns the Id of the
+ -- corresponding entity, first loading in (parsing, analyzing and
+ -- expanding) its spec if the unit has not already been loaded. For
+ -- efficiency reasons, this routine restricts the search to the package
+ -- entity chain.
--
- -- Note: In the case of a package, RTE can return either an entity that
- -- is declared at the top level of the package, or the package entity
- -- itself. If an entity within the package has the same simple name as
- -- the package, then the entity within the package is returned rather
+ -- Note: In the case of a package, RTE can return either an entity that is
+ -- declared at the top level of the package, or the package entity itself.
+ -- If an entity within the package has the same simple name as the package,
+ -- then the entity within the package is returned.
--
-- If RTE returns, the returned value is the required entity
--
- -- If the entity is not available, then an error message is given The
+ -- If the entity is not available, then an error message is given. The
-- form of the message depends on whether we are in configurable run time
-- mode or not. In configurable run time mode, a missing entity is not
-- that surprising and merely says that the particular construct is not
-- RE_Not_Available, which should terminate the expansion of the current
-- construct.
- function Is_RTE (Ent : Entity_Id; E : RE_Id) return Boolean;
- -- This function determines if the given entity corresponds to the entity
- -- referenced by RE_Id. It is similar in effect to (Ent = RTE (E)) except
- -- that the latter would unconditionally load the unit containing E. For
- -- this call, if the unit is not loaded, then a result of False is returned
- -- immediately, since obviously Ent cannot be the entity in question if the
- -- corresponding unit has not been loaded.
+ function RTE_Available (E : RE_Id) return Boolean;
+ -- Returns true if a call to RTE will succeed without raising an exception
+ -- and without generating an error message, i.e. if the call will obtain
+ -- the desired entity without any problems.
- function Is_RTU (Ent : Entity_Id; U : RTU_Id) return Boolean;
- pragma Inline (Is_RTU);
- -- This function determines if the given entity corresponds to the entity
- -- for the unit referenced by U. If this unit has not been loaded, the
- -- answer will always be False. If the unit has been loaded, then the
- -- entity id values are compared and True is returned if Ent is the
- -- entity for this unit.
+ function RTE_Record_Component (E : RE_Id) return Entity_Id;
+ -- Given the entity defined in the above tables, as identified by the
+ -- corresponding value in the RE_Id enumeration type, returns the Id of
+ -- the corresponding entity, first loading in (parsing, analyzing and
+ -- expanding) its spec if the unit has not already been loaded. For
+ -- efficiency reasons, this routine restricts the search of E to fields
+ -- of record type declarations found in the package entity chain.
+ --
+ -- Note: In the case of a package, RTE can return either an entity that is
+ -- declared at the top level of the package, or the package entity itself.
+ -- If an entity within the package has the same simple name as the package,
+ -- then the entity within the package is returned.
+ --
+ -- If RTE returns, the returned value is the required entity
+ --
+ -- If the entity is not available, then an error message is given. The
+ -- form of the message depends on whether we are in configurable run time
+ -- mode or not. In configurable run time mode, a missing entity is not
+ -- that surprising and merely says that the particular construct is not
+ -- supported by the run-time in use. If we are not in configurable run
+ -- time mode, a missing entity is some kind of run-time configuration
+ -- error. In either case, the result of the call is to raise the exception
+ -- RE_Not_Available, which should terminate the expansion of the current
+ -- construct.
- function RTE_Available (E : RE_Id) return Boolean;
- -- Returns true if a call to RTE will succeed without raising an
- -- exception and without generating an error message, i.e. if the
- -- call will obtain the desired entity without any problems.
+ function RTE_Record_Component_Available (E : RE_Id) return Boolean;
+ -- Returns true if a call to RTE_Record_Component will succeed without
+ -- raising an exception and without generating an error message, i.e.
+ -- if the call will obtain the desired entity without any problems.
+
+ function RTU_Entity (U : RTU_Id) return Entity_Id;
+ pragma Inline (RTU_Entity);
+ -- This function returns the entity for the unit referenced by U. If
+ -- this unit has not been loaded, it returns Empty.
+
+ function RTU_Loaded (U : RTU_Id) return Boolean;
+ pragma Inline (RTU_Loaded);
+ -- Returns true if indicated unit has already been successfully loaded.
+ -- If the unit has not been loaded, returns False. Note that this does
+ -- not mean that an attempt to load it subsequently would fail.
+
+ procedure Set_RTU_Loaded (N : Node_Id);
+ -- Register the predefined unit N as already loaded
procedure Text_IO_Kludge (Nam : Node_Id);
-- In Ada 83, and hence for compatibility in Ada 9X, package Text_IO has
-- with'ed automatically. The important result of this approach is that
-- Text_IO does not drag in all the code for the subpackages unless they
-- are used. Our test is a little crude, and could drag in stuff when it
- -- is not necessary, but that doesn't matter. Wide_Text_IO is handled in
- -- a similar manner.
-
- function Is_Text_IO_Kludge_Unit (Nam : Node_Id) return Boolean;
- -- Returns True if the given Nam is an Expanded Name, whose Prefix is
- -- Ada, and whose selector is either Text_IO.xxx or Wide_Text_IO.xxx
- -- where xxx is one of the subpackages of Text_IO that is specially
- -- handled as described above for Text_IO_Kludge.
+ -- is not necessary, but that doesn't matter. Wide_[Wide_]Text_IO is
+ -- handled in a similar manner.
end Rtsfind;