X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Frtsfind.ads;h=769720e458cda7ae958234f58a1802552f979f3a;hb=068f40295c3c2ba63eb76bb3e589978da09d8842;hp=ce8368422e18bbc68a8067561ff267c18a8900c5;hpb=284faf8b1b957275c50d243666ba898a77aa3785;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index ce8368422e1..769720e458c 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2004, 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- -- @@ -16,8 +16,8 @@ -- 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. -- @@ -69,6 +69,9 @@ package Rtsfind is -- 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 @@ -89,8 +92,8 @@ package Rtsfind is -- 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 @@ -105,7 +108,7 @@ package Rtsfind is -- 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 @@ -117,6 +120,7 @@ package Rtsfind is Ada_Streams, Ada_Tags, Ada_Task_Identification, + Ada_Task_Termination, -- Children of Ada.Calendar @@ -156,6 +160,15 @@ package Rtsfind is 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, @@ -171,6 +184,7 @@ package Rtsfind is -- Children of System + System_Address_Image, System_Arith_64, System_AST_Handling, System_Assertions, @@ -186,6 +200,7 @@ package Rtsfind is 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, @@ -198,9 +213,14 @@ package Rtsfind is 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, @@ -279,7 +299,6 @@ package Rtsfind is System_Pack_63, System_Parameters, System_Partition_Interface, - System_PolyORB_Interface, System_Pool_Global, System_Pool_Empty, System_Pool_Local, @@ -343,7 +362,7 @@ package Rtsfind is 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 @@ -373,12 +392,16 @@ package Rtsfind is 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 @@ -428,7 +451,6 @@ package Rtsfind is 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 @@ -436,11 +458,11 @@ package Rtsfind is 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 @@ -462,37 +484,83 @@ package Rtsfind is 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_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_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 + 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_Interfaces_Array, -- Ada.Tags + RE_Interfaces_Table, -- Ada.Tags + RE_Interface_Data, -- Ada.Tags + RE_Interface_Data_Element, -- Ada.Tags + RE_Interface_Tag, -- Ada.Tags + RE_IW_Membership, -- Ada.Tags + RE_Max_Predef_Prims, -- 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_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_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 @@ -515,48 +583,19 @@ package Rtsfind is 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 @@ -565,6 +604,7 @@ package Rtsfind is RE_Create_AST_Handler, -- System.AST_Handling + RE_Assert_Failure, -- System.Assertions RE_Raise_Assert_Failure, -- System.Assertions RE_AST_Handler, -- System.Aux_DEC @@ -587,7 +627,6 @@ package Rtsfind is 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, @@ -616,21 +655,13 @@ package Rtsfind is 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 @@ -648,27 +679,38 @@ package Rtsfind is 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 @@ -700,6 +742,7 @@ package Rtsfind is 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 @@ -715,9 +758,6 @@ package Rtsfind is 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 @@ -1005,162 +1045,154 @@ package Rtsfind is RE_Unspecified_Size, -- System.Parameters RE_DSA_Implementation, -- System.Partition_Interface - 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_PCS_Version, -- 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_RAS_Proxy_Type, -- 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.PolyORB_Interface - RE_To_Standard_String, -- System.PolyORB_Interface - RE_Caseless_String_Eq, -- System.PolyORB_Interface - RE_TypeCode, -- System.PolyORB_Interface - RE_Any, -- System.PolyORB_Interface - RE_Mode_In, -- System.PolyORB_Interface - RE_Mode_Out, -- System.PolyORB_Interface - RE_Mode_Inout, -- System.PolyORB_Interface - RE_NamedValue, -- System.PolyORB_Interface - RE_Result_Name, -- System.PolyORB_Interface - RE_Object_Ref, -- System.PolyORB_Interface - RE_Create_Any, -- System.PolyORB_Interface - RE_Any_Aggregate_Build, -- System.PolyORB_Interface - RE_Add_Aggregate_Element, -- System.PolyORB_Interface - RE_Get_Aggregate_Element, -- System.PolyORB_Interface - RE_Content_Type, -- System.PolyORB_Interface - RE_Any_Member_Type, -- System.PolyORB_Interface - RE_Get_Nested_Sequence_Length, -- System.PolyORB_Interface - RE_Extract_Union_Value, -- System.PolyORB_Interface - RE_NVList_Ref, -- System.PolyORB_Interface - RE_NVList_Create, -- System.PolyORB_Interface - RE_NVList_Add_Item, -- System.PolyORB_Interface - RE_Request_Access, -- System.PolyORB_Interface - RE_Request_Create, -- System.PolyORB_Interface - RE_Request_Invoke, -- System.PolyORB_Interface - RE_Request_Arguments, -- System.PolyORB_Interface - RE_Request_Set_Out, -- System.PolyORB_Interface - RE_Request_Raise_Occurrence, -- System.PolyORB_Interface - RE_Nil_Exc_List, -- System.PolyORB_Interface - RE_Servant, -- System.PolyORB_Interface - RE_Copy_Any_Value, -- System.PolyORB_Interface - RE_Set_Result, -- System.PolyORB_Interface - RE_Register_Obj_Receiving_Stub, -- System.PolyORB_Interface - RE_Register_Pkg_Receiving_Stub, -- System.PolyORB_Interface - RE_Is_Nil, -- System.PolyORB_Interface - RE_Entity_Ptr, -- System.PolyORB_Interface - RE_Entity_Of, -- System.PolyORB_Interface - RE_Inc_Usage, -- System.PolyORB_Interface - RE_Set_Ref, -- System.PolyORB_Interface - RE_Get_Local_Address, -- System.PolyORB_Interface - RE_Get_Reference, -- System.PolyORB_Interface - RE_Local_Oid_To_Address, -- System.PolyORB_Interface - RE_RCI_Locator, -- System.PolyORB_Interface - RE_Asynchronous_P_To_Sync_Scope, -- System.PolyORB_Interface - RE_Buffer_Stream_Type, -- System.PolyORB_Interface - RE_Allocate_Buffer, -- System.PolyORB_Interface - RE_Release_Buffer, -- System.PolyORB_Interface - RE_BS_To_Any, -- System.PolyORB_Interface - RE_Any_To_BS, -- System.PolyORB_Interface - - RE_FA_AD, -- System.PolyORB_Interface - RE_FA_AS, -- System.PolyORB_Interface - RE_FA_B, -- System.PolyORB_Interface - RE_FA_C, -- System.PolyORB_Interface - RE_FA_F, -- System.PolyORB_Interface - RE_FA_I, -- System.PolyORB_Interface - RE_FA_LF, -- System.PolyORB_Interface - RE_FA_LI, -- System.PolyORB_Interface - RE_FA_LLF, -- System.PolyORB_Interface - RE_FA_LLI, -- System.PolyORB_Interface - RE_FA_LLU, -- System.PolyORB_Interface - RE_FA_LU, -- System.PolyORB_Interface - RE_FA_SF, -- System.PolyORB_Interface - RE_FA_SI, -- System.PolyORB_Interface - RE_FA_SSI, -- System.PolyORB_Interface - RE_FA_SSU, -- System.PolyORB_Interface - RE_FA_SU, -- System.PolyORB_Interface - RE_FA_U, -- System.PolyORB_Interface - RE_FA_WC, -- System.PolyORB_Interface - RE_FA_String, -- System.PolyORB_Interface - RE_FA_ObjRef, -- System.PolyORB_Interface - - RE_TA_AD, -- System.PolyORB_Interface - RE_TA_AS, -- System.PolyORB_Interface - RE_TA_B, -- System.PolyORB_Interface - RE_TA_C, -- System.PolyORB_Interface - RE_TA_F, -- System.PolyORB_Interface - RE_TA_I, -- System.PolyORB_Interface - RE_TA_LF, -- System.PolyORB_Interface - RE_TA_LI, -- System.PolyORB_Interface - RE_TA_LLF, -- System.PolyORB_Interface - RE_TA_LLI, -- System.PolyORB_Interface - RE_TA_LLU, -- System.PolyORB_Interface - RE_TA_LU, -- System.PolyORB_Interface - RE_TA_SF, -- System.PolyORB_Interface - RE_TA_SI, -- System.PolyORB_Interface - RE_TA_SSI, -- System.PolyORB_Interface - RE_TA_SSU, -- System.PolyORB_Interface - RE_TA_SU, -- System.PolyORB_Interface - RE_TA_U, -- System.PolyORB_Interface - RE_TA_WC, -- System.PolyORB_Interface - RE_TA_String, -- System.PolyORB_Interface - RE_TA_ObjRef, -- System.PolyORB_Interface - RE_TA_TC, -- System.PolyORB_Interface - - RE_TC_Alias, -- System.PolyORB_Interface - RE_TC_Build, -- System.PolyORB_Interface - RE_Set_TC, -- System.PolyORB_Interface - RE_TC_Any, -- System.PolyORB_Interface - RE_TC_AD, -- System.PolyORB_Interface - RE_TC_AS, -- System.PolyORB_Interface - RE_TC_B, -- System.PolyORB_Interface - RE_TC_C, -- System.PolyORB_Interface - RE_TC_F, -- System.PolyORB_Interface - RE_TC_I, -- System.PolyORB_Interface - RE_TC_LF, -- System.PolyORB_Interface - RE_TC_LI, -- System.PolyORB_Interface - RE_TC_LLF, -- System.PolyORB_Interface - RE_TC_LLI, -- System.PolyORB_Interface - RE_TC_LLU, -- System.PolyORB_Interface - RE_TC_LU, -- System.PolyORB_Interface - RE_TC_SF, -- System.PolyORB_Interface - RE_TC_SI, -- System.PolyORB_Interface - RE_TC_SSI, -- System.PolyORB_Interface - RE_TC_SSU, -- System.PolyORB_Interface - RE_TC_SU, -- System.PolyORB_Interface - RE_TC_U, -- System.PolyORB_Interface - RE_TC_Void, -- System.PolyORB_Interface - RE_TC_Opaque, -- System.PolyORB_Interface, - RE_TC_WC, -- System.PolyORB_Interface - RE_TC_Array, -- System.PolyORB_Interface, - RE_TC_Sequence, -- System.PolyORB_Interface, - RE_TC_String, -- System.PolyORB_Interface, - RE_TC_Struct, -- System.PolyORB_Interface, - RE_TC_Union, -- System.PolyORB_Interface, - RE_TC_Object, -- System.PolyORB_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_IS_Is1, -- System.Scalar_Values RE_IS_Is2, -- System.Scalar_Values @@ -1170,6 +1202,10 @@ package Rtsfind is 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 @@ -1196,14 +1232,12 @@ package Rtsfind is 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 @@ -1223,6 +1257,7 @@ package Rtsfind is 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 @@ -1243,15 +1278,12 @@ package Rtsfind is 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 @@ -1262,32 +1294,24 @@ package Rtsfind is 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_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 @@ -1299,6 +1323,8 @@ package Rtsfind is 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 @@ -1309,11 +1335,6 @@ package Rtsfind is RE_Get_GNAT_Exception, -- System.Soft_Links RE_Update_Exception, -- System.Soft_Links - RE_ATSD, -- System.Threads - RE_Thread_Body_Enter, -- System.Threads - RE_Thread_Body_Exceptional_Exit, -- System.Threads - RE_Thread_Body_Leave, -- System.Threads - RE_Bits_1, -- System.Unsigned_Types RE_Bits_2, -- System.Unsigned_Types RE_Bits_4, -- System.Unsigned_Types @@ -1351,6 +1372,7 @@ package Rtsfind is 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 @@ -1392,6 +1414,12 @@ package Rtsfind is 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 @@ -1399,16 +1427,26 @@ package Rtsfind is 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 @@ -1423,12 +1461,14 @@ package Rtsfind is 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 @@ -1447,7 +1487,6 @@ package Rtsfind is 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 @@ -1463,7 +1502,8 @@ package Rtsfind is 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 @@ -1502,6 +1542,7 @@ package Rtsfind is 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 @@ -1512,7 +1553,6 @@ package Rtsfind is 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, @@ -1520,11 +1560,11 @@ package Rtsfind is 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, @@ -1546,37 +1586,83 @@ package Rtsfind is 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_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_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, + 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_Interfaces_Array => Ada_Tags, + RE_Interfaces_Table => Ada_Tags, + RE_Interface_Data => Ada_Tags, + RE_Interface_Data_Element => Ada_Tags, + RE_Interface_Tag => Ada_Tags, + RE_IW_Membership => Ada_Tags, + RE_Max_Predef_Prims => 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_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_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, @@ -1597,48 +1683,19 @@ package Rtsfind is 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, @@ -1647,6 +1704,7 @@ package Rtsfind is RE_Create_AST_Handler => System_AST_Handling, + RE_Assert_Failure => System_Assertions, RE_Raise_Assert_Failure => System_Assertions, RE_AST_Handler => System_Aux_DEC, @@ -1671,7 +1729,6 @@ package Rtsfind is 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, @@ -1698,21 +1755,13 @@ package Rtsfind is 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, @@ -1730,27 +1779,38 @@ package Rtsfind is 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, @@ -1782,6 +1842,7 @@ package Rtsfind is 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, @@ -1797,9 +1858,6 @@ package Rtsfind is 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, @@ -2087,162 +2145,154 @@ package Rtsfind is RE_Unspecified_Size => System_Parameters, RE_DSA_Implementation => System_Partition_Interface, - 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_PCS_Version => 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_RAS_Proxy_Type => 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_PolyORB_Interface, - RE_To_Standard_String => System_PolyORB_Interface, - RE_Caseless_String_Eq => System_PolyORB_Interface, - RE_TypeCode => System_PolyORB_Interface, - RE_Any => System_PolyORB_Interface, - RE_Mode_In => System_PolyORB_Interface, - RE_Mode_Out => System_PolyORB_Interface, - RE_Mode_Inout => System_PolyORB_Interface, - RE_NamedValue => System_PolyORB_Interface, - RE_Result_Name => System_PolyORB_Interface, - RE_Object_Ref => System_PolyORB_Interface, - RE_Create_Any => System_PolyORB_Interface, - RE_Any_Aggregate_Build => System_PolyORB_Interface, - RE_Add_Aggregate_Element => System_PolyORB_Interface, - RE_Get_Aggregate_Element => System_PolyORB_Interface, - RE_Content_Type => System_PolyORB_Interface, - RE_Any_Member_Type => System_PolyORB_Interface, - RE_Get_Nested_Sequence_Length => System_PolyORB_Interface, - RE_Extract_Union_Value => System_PolyORB_Interface, - RE_NVList_Ref => System_PolyORB_Interface, - RE_NVList_Create => System_PolyORB_Interface, - RE_NVList_Add_Item => System_PolyORB_Interface, - RE_Request_Access => System_PolyORB_Interface, - RE_Request_Create => System_PolyORB_Interface, - RE_Request_Invoke => System_PolyORB_Interface, - RE_Request_Arguments => System_PolyORB_Interface, - RE_Request_Set_Out => System_PolyORB_Interface, - RE_Request_Raise_Occurrence => System_PolyORB_Interface, - RE_Nil_Exc_List => System_PolyORB_Interface, - RE_Servant => System_PolyORB_Interface, - RE_Copy_Any_Value => System_PolyORB_Interface, - RE_Set_Result => System_PolyORB_Interface, - RE_Register_Obj_Receiving_Stub => System_PolyORB_Interface, - RE_Register_Pkg_Receiving_Stub => System_PolyORB_Interface, - RE_Is_Nil => System_PolyORB_Interface, - RE_Entity_Ptr => System_PolyORB_Interface, - RE_Entity_Of => System_PolyORB_Interface, - RE_Inc_Usage => System_PolyORB_Interface, - RE_Set_Ref => System_PolyORB_Interface, - RE_Get_Local_Address => System_PolyORB_Interface, - RE_Get_Reference => System_PolyORB_Interface, - RE_Local_Oid_To_Address => System_PolyORB_Interface, - RE_RCI_Locator => System_PolyORB_Interface, - RE_Asynchronous_P_To_Sync_Scope => System_PolyORB_Interface, - RE_Buffer_Stream_Type => System_PolyORB_Interface, - RE_Allocate_Buffer => System_PolyORB_Interface, - RE_Release_Buffer => System_PolyORB_Interface, - RE_BS_To_Any => System_PolyORB_Interface, - RE_Any_To_BS => System_PolyORB_Interface, - - RE_FA_AD => System_PolyORB_Interface, - RE_FA_AS => System_PolyORB_Interface, - RE_FA_B => System_PolyORB_Interface, - RE_FA_C => System_PolyORB_Interface, - RE_FA_F => System_PolyORB_Interface, - RE_FA_I => System_PolyORB_Interface, - RE_FA_LF => System_PolyORB_Interface, - RE_FA_LI => System_PolyORB_Interface, - RE_FA_LLF => System_PolyORB_Interface, - RE_FA_LLI => System_PolyORB_Interface, - RE_FA_LLU => System_PolyORB_Interface, - RE_FA_LU => System_PolyORB_Interface, - RE_FA_SF => System_PolyORB_Interface, - RE_FA_SI => System_PolyORB_Interface, - RE_FA_SSI => System_PolyORB_Interface, - RE_FA_SSU => System_PolyORB_Interface, - RE_FA_SU => System_PolyORB_Interface, - RE_FA_U => System_PolyORB_Interface, - RE_FA_WC => System_PolyORB_Interface, - RE_FA_String => System_PolyORB_Interface, - RE_FA_ObjRef => System_PolyORB_Interface, - - RE_TA_AD => System_PolyORB_Interface, - RE_TA_AS => System_PolyORB_Interface, - RE_TA_B => System_PolyORB_Interface, - RE_TA_C => System_PolyORB_Interface, - RE_TA_F => System_PolyORB_Interface, - RE_TA_I => System_PolyORB_Interface, - RE_TA_LF => System_PolyORB_Interface, - RE_TA_LI => System_PolyORB_Interface, - RE_TA_LLF => System_PolyORB_Interface, - RE_TA_LLI => System_PolyORB_Interface, - RE_TA_LLU => System_PolyORB_Interface, - RE_TA_LU => System_PolyORB_Interface, - RE_TA_SF => System_PolyORB_Interface, - RE_TA_SI => System_PolyORB_Interface, - RE_TA_SSI => System_PolyORB_Interface, - RE_TA_SSU => System_PolyORB_Interface, - RE_TA_SU => System_PolyORB_Interface, - RE_TA_U => System_PolyORB_Interface, - RE_TA_WC => System_PolyORB_Interface, - RE_TA_String => System_PolyORB_Interface, - RE_TA_ObjRef => System_PolyORB_Interface, - RE_TA_TC => System_PolyORB_Interface, - - RE_TC_Alias => System_PolyORB_Interface, - RE_TC_Build => System_PolyORB_Interface, - RE_Set_TC => System_PolyORB_Interface, - RE_TC_Any => System_PolyORB_Interface, - RE_TC_AD => System_PolyORB_Interface, - RE_TC_AS => System_PolyORB_Interface, - RE_TC_B => System_PolyORB_Interface, - RE_TC_C => System_PolyORB_Interface, - RE_TC_F => System_PolyORB_Interface, - RE_TC_I => System_PolyORB_Interface, - RE_TC_LF => System_PolyORB_Interface, - RE_TC_LI => System_PolyORB_Interface, - RE_TC_LLF => System_PolyORB_Interface, - RE_TC_LLI => System_PolyORB_Interface, - RE_TC_LLU => System_PolyORB_Interface, - RE_TC_LU => System_PolyORB_Interface, - RE_TC_SF => System_PolyORB_Interface, - RE_TC_SI => System_PolyORB_Interface, - RE_TC_SSI => System_PolyORB_Interface, - RE_TC_SSU => System_PolyORB_Interface, - RE_TC_SU => System_PolyORB_Interface, - RE_TC_U => System_PolyORB_Interface, - RE_TC_Void => System_PolyORB_Interface, - RE_TC_Opaque => System_PolyORB_Interface, - RE_TC_WC => System_PolyORB_Interface, - RE_TC_Array => System_PolyORB_Interface, - RE_TC_Sequence => System_PolyORB_Interface, - RE_TC_String => System_PolyORB_Interface, - RE_TC_Struct => System_PolyORB_Interface, - RE_TC_Union => System_PolyORB_Interface, - RE_TC_Object => System_PolyORB_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, @@ -2252,6 +2302,10 @@ package Rtsfind is 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, @@ -2278,14 +2332,12 @@ package Rtsfind is 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, @@ -2305,6 +2357,7 @@ package Rtsfind is 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, @@ -2325,12 +2378,9 @@ package Rtsfind is 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, @@ -2344,32 +2394,24 @@ package Rtsfind is 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_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, @@ -2381,6 +2423,8 @@ package Rtsfind is 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, @@ -2391,11 +2435,6 @@ package Rtsfind is RE_Get_GNAT_Exception => System_Soft_Links, RE_Update_Exception => System_Soft_Links, - RE_ATSD => System_Threads, - RE_Thread_Body_Enter => System_Threads, - RE_Thread_Body_Exceptional_Exit => System_Threads, - RE_Thread_Body_Leave => System_Threads, - RE_Bits_1 => System_Unsigned_Types, RE_Bits_2 => System_Unsigned_Types, RE_Bits_4 => System_Unsigned_Types, @@ -2433,6 +2472,7 @@ package Rtsfind is 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, @@ -2474,6 +2514,12 @@ package Rtsfind is 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, @@ -2481,16 +2527,27 @@ package Rtsfind is 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, @@ -2505,6 +2562,7 @@ package Rtsfind is 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, @@ -2514,7 +2572,9 @@ package Rtsfind is 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, @@ -2551,8 +2611,6 @@ package Rtsfind is 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 => @@ -2576,7 +2634,8 @@ package Rtsfind is 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, @@ -2618,6 +2677,7 @@ package Rtsfind is 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); -------------------------------- @@ -2681,27 +2741,51 @@ package Rtsfind is -- 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 -- @@ -2715,26 +2799,45 @@ package Rtsfind is -- 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); @@ -2743,7 +2846,7 @@ package Rtsfind is -- 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. + -- 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 @@ -2756,13 +2859,7 @@ package Rtsfind is -- 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;