blob: fe6c31b0dc2261ebc0824d1f39569fb320a29559 [file] [log] [blame]
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- R T S F I N D --
-- --
-- S p e c --
-- --
-- $Revision$
-- --
-- Copyright (C) 1992-2001, 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- --
-- ware Foundation; either version 2, or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- 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. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
-- --
------------------------------------------------------------------------------
with Types; use Types;
package Rtsfind is
-- This package contains the routine that is used to obtain runtime library
-- entities, loading in the required runtime library packages on demand. It
-- is also used for such purposes as finding System.Address when System has
-- not been explicitly With'ed.
------------------------
-- Runtime Unit Table --
------------------------
-- The following type includes an enumeration entry for each runtime
-- unit. The enumeration literal represents the fully qualified
-- name of the unit, as follows:
-- Names of the form Ada_xxx are first level children of Ada, whose
-- name is Ada.xxx. For example, the name Ada_Tags refers to package
-- Ada.Tags.
-- Names of the form Ada_Calendar_xxx are second level children
-- of Ada.Calendar. This is part of a temporary implementation of
-- delays; eventually, packages implementing delays will be found
-- relative to the package that declares the time type.
-- Names of the form Interfaces_xxx are first level children of
-- Interfaces_CPP refers to package Interfaces.CPP
-- Names of the form System_xxx are first level children of System, whose
-- name is System.xxx. For example, the name System_Str_Concat refers to
-- package System.Str_Concat.
-- Names of the form System_Tasking_xxx are second level children of the
-- package System.Tasking. For example, System_Tasking_Stages refers to
-- refers to the package System.Tasking.Stages.
-- Other names stand for themselves (e.g. System for package System)
-- This list can contain both subprogram and package unit names. For
-- packages, the accessible entities in the package are separately
-- listed in the package entity table. The units must be either library
-- level package declarations, or library level subprogram declarations.
-- 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.
-- IMPORTANT NOTE: the specs of packages and procedures with'ed using
-- this mechanism may not contain use clauses. This is because these
-- subprograms are compiled in the current visibility environment, and
-- it would be too much trouble to establish a clean environment for the
-- compilation. The presence of extraneous visible stuff has no effect
-- on the compilation except in the presence of use clauses (which might
-- result in unexpected ambiguities).
type RTU_Id is (
-- Runtime packages, for list of accessible entities in each
-- package see declarations in the runtime entity table below.
RTU_Null,
-- Used as a null entry. Will cause an error if referenced.
-- Children of Ada
Ada_Calendar,
Ada_Exceptions,
Ada_Finalization,
Ada_Interrupts,
Ada_Real_Time,
Ada_Streams,
Ada_Tags,
Ada_Task_Identification,
-- Children of Ada.Calendar
Ada_Calendar_Delays,
-- Children of Ada.Finalization
Ada_Finalization_List_Controller,
-- Children of Ada.Real_Time
Ada_Real_Time_Delays,
-- Children of Ada.Streams
Ada_Streams_Stream_IO,
-- Children of Ada.Text_IO (for Text_IO_Kludge)
Ada_Text_IO_Decimal_IO,
Ada_Text_IO_Enumeration_IO,
Ada_Text_IO_Fixed_IO,
Ada_Text_IO_Float_IO,
Ada_Text_IO_Integer_IO,
Ada_Text_IO_Modular_IO,
-- Children of Ada.Wide_Text_IO (for Text_IO_Kludge)
Ada_Wide_Text_IO_Decimal_IO,
Ada_Wide_Text_IO_Enumeration_IO,
Ada_Wide_Text_IO_Fixed_IO,
Ada_Wide_Text_IO_Float_IO,
Ada_Wide_Text_IO_Integer_IO,
Ada_Wide_Text_IO_Modular_IO,
-- Interfaces
Interfaces,
-- Children of Interfaces
Interfaces_CPP,
Interfaces_Packed_Decimal,
-- Package System
System,
-- Children of System
System_Arith_64,
System_AST_Handling,
System_Assertions,
System_Aux_DEC,
System_Bit_Ops,
System_Checked_Pools,
System_Exception_Table,
System_Exceptions,
System_Delay_Operations,
System_Exn_Flt,
System_Exn_Int,
System_Exn_LFlt,
System_Exn_LInt,
System_Exn_LLF,
System_Exn_LLI,
System_Exn_SFlt,
System_Exn_SInt,
System_Exn_SSI,
System_Exp_Flt,
System_Exp_Int,
System_Exp_LFlt,
System_Exp_LInt,
System_Exp_LLF,
System_Exp_LLI,
System_Exp_LLU,
System_Exp_Mod,
System_Exp_SFlt,
System_Exp_SInt,
System_Exp_SSI,
System_Exp_Uns,
System_Fat_Flt,
System_Fat_LFlt,
System_Fat_LLF,
System_Fat_SFlt,
System_Finalization_Implementation,
System_Finalization_Root,
System_Fore,
System_Img_Bool,
System_Img_Char,
System_Img_Dec,
System_Img_Enum,
System_Img_Int,
System_Img_LLD,
System_Img_LLI,
System_Img_LLU,
System_Img_Name,
System_Img_Real,
System_Img_Uns,
System_Img_WChar,
System_Interrupts,
System_Machine_Code,
System_Mantissa,
System_Pack_03,
System_Pack_05,
System_Pack_06,
System_Pack_07,
System_Pack_09,
System_Pack_10,
System_Pack_11,
System_Pack_12,
System_Pack_13,
System_Pack_14,
System_Pack_15,
System_Pack_17,
System_Pack_18,
System_Pack_19,
System_Pack_20,
System_Pack_21,
System_Pack_22,
System_Pack_23,
System_Pack_24,
System_Pack_25,
System_Pack_26,
System_Pack_27,
System_Pack_28,
System_Pack_29,
System_Pack_30,
System_Pack_31,
System_Pack_33,
System_Pack_34,
System_Pack_35,
System_Pack_36,
System_Pack_37,
System_Pack_38,
System_Pack_39,
System_Pack_40,
System_Pack_41,
System_Pack_42,
System_Pack_43,
System_Pack_44,
System_Pack_45,
System_Pack_46,
System_Pack_47,
System_Pack_48,
System_Pack_49,
System_Pack_50,
System_Pack_51,
System_Pack_52,
System_Pack_53,
System_Pack_54,
System_Pack_55,
System_Pack_56,
System_Pack_57,
System_Pack_58,
System_Pack_59,
System_Pack_60,
System_Pack_61,
System_Pack_62,
System_Pack_63,
System_Parameters,
System_Partition_Interface,
System_Pool_Global,
System_Pool_Empty,
System_Pool_Local,
System_Pool_Size,
System_RPC,
System_Scalar_Values,
System_Secondary_Stack,
System_Shared_Storage,
System_Soft_Links,
System_Standard_Library,
System_Storage_Elements,
System_Storage_Pools,
System_Stream_Attributes,
System_String_Ops,
System_String_Ops_Concat_3,
System_String_Ops_Concat_4,
System_String_Ops_Concat_5,
System_Task_Info,
System_Tasking,
System_Unsigned_Types,
System_Val_Bool,
System_Val_Char,
System_Val_Dec,
System_Val_Enum,
System_Val_Int,
System_Val_LLD,
System_Val_LLI,
System_Val_LLU,
System_Val_Name,
System_Val_Real,
System_Val_Uns,
System_Val_WChar,
System_Vax_Float_Operations,
System_Version_Control,
System_VMS_Exception_Table,
System_WCh_StW,
System_WCh_WtS,
System_Wid_Bool,
System_Wid_Char,
System_Wid_Enum,
System_Wid_LLI,
System_Wid_LLU,
System_Wid_Name,
System_Wid_WChar,
System_WWd_Char,
System_WWd_Enum,
System_WWd_Wchar,
-- Children of System.Tasking
System_Tasking_Async_Delays,
System_Tasking_Async_Delays_Enqueue_Calendar,
System_Tasking_Async_Delays_Enqueue_RT,
System_Tasking_Protected_Objects,
System_Tasking_Protected_Objects_Entries,
System_Tasking_Protected_Objects_Operations,
System_Tasking_Protected_Objects_Single_Entry,
System_Tasking_Restricted_Stages,
System_Tasking_Rendezvous,
System_Tasking_Stages);
subtype Ada_Child is RTU_Id
range Ada_Calendar .. Ada_Wide_Text_IO_Modular_IO;
-- Range of values for children or grand-children of Ada
subtype Ada_Calendar_Child is Ada_Child
range Ada_Calendar_Delays .. Ada_Calendar_Delays;
-- Range of values for children of Ada.Calendar
subtype Ada_Finalization_Child is Ada_Child range
Ada_Finalization_List_Controller .. Ada_Finalization_List_Controller;
-- Range of values for children of Ada.Finalization
subtype Ada_Real_Time_Child is Ada_Child
range Ada_Real_Time_Delays .. Ada_Real_Time_Delays;
-- Range of values for children of Ada.Real_Time
subtype Ada_Streams_Child is Ada_Child
range Ada_Streams_Stream_IO .. Ada_Streams_Stream_IO;
subtype Ada_Text_IO_Child is Ada_Child
range Ada_Text_IO_Decimal_IO .. Ada_Text_IO_Modular_IO;
-- Range of values for children of Ada.Text_IO
subtype Ada_Wide_Text_IO_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 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 of values for children or grandchildren of System
subtype System_Tasking_Child is System_Child
range System_Tasking_Async_Delays .. System_Tasking_Stages;
-- Range of values for children of System.Tasking
subtype System_Tasking_Protected_Objects_Child is System_Tasking_Child
range System_Tasking_Protected_Objects_Entries ..
System_Tasking_Protected_Objects_Single_Entry;
-- Range of values for children of System.Tasking.Protected_Objects
subtype System_Tasking_Restricted_Child is System_Tasking_Child
range System_Tasking_Restricted_Stages ..
System_Tasking_Restricted_Stages;
-- Range of values for children of System.Tasking.Restricted
subtype System_Tasking_Async_Delays_Child is System_Tasking_Child
range System_Tasking_Async_Delays_Enqueue_Calendar ..
System_Tasking_Async_Delays_Enqueue_RT;
-- Range of values for children of System.Tasking.Async_Delays
OK_To_Use_In_No_Run_Time_Mode : array (RTU_Id) of Boolean :=
(Ada_Tags => True,
Ada_Exceptions => True,
Interfaces => True,
System => True,
System_Fat_Flt => True,
System_Fat_LFlt => True,
System_Fat_LLF => True,
System_Fat_SFlt => True,
System_Machine_Code => True,
System_Storage_Elements => True,
System_Unsigned_Types => True,
System_Secondary_Stack => True,
others => False);
-- This array defines the set of packages that can legitimately be
-- accessed by Rtsfind in No_Run_Time mode. Any attempt to load
-- any other package in this mode will result in a message noting
-- use of a feature not supported in high integrity mode.
OK_To_Use_In_Ravenscar_Mode : array (RTU_Id) of Boolean :=
(System_Interrupts => True,
System_Tasking => True,
System_Tasking_Protected_Objects => True,
System_Tasking_Restricted_Stages => True,
System_Tasking_Protected_Objects_Single_Entry => True,
System_Task_Info => True,
System_Parameters => True,
Ada_Real_Time => True,
Ada_Real_Time_Delays => True,
others => False);
-- This array defines the set of packages that can legitimately be
-- accessed by Rtsfind in Ravenscar mode, in addition to the
-- No_Run_Time units which are also allowed.
--------------------------
-- Runtime Entity Table --
--------------------------
-- This is the enumeration type used to define the argument passed to
-- the RTE function. The name must exactly match the name of the entity
-- involved, and in the case of a package entity, this name must uniquely
-- imply the package containing the entity.
-- As far as possible, we avoid duplicate names in runtime packages, so
-- that the name RE_nnn uniquely identifies the entity nnn. In some cases,
-- it is impossible to avoid such duplication because the names come from
-- RM defined packages. In such cases, the name is of the form RO_XX_nnn
-- where XX is two letters used to differentiate the multiple occurrences
-- of the name xx, and nnn is the entity name.
-- Note that not all entities in the units contained in the run-time unit
-- table are included in the following table, only those that actually
-- have to be referenced from generated code.
-- Note on RE_Null. This value is used as a null entry where an RE_Id
-- value is required syntactically, but no real entry is required or
-- needed. Use of this value will cause a fatal error in an RTE call.
type RE_Id is (
RE_Null,
RE_Code_Loc, -- Ada.Exceptions
RE_Current_Target_Exception, -- Ada.Exceptions (JGNAT use only)
RE_Exception_Id, -- Ada.Exceptions
RE_Exception_Information, -- 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_Reraise_Occurrence, -- Ada.Exceptions
RE_Reraise_Occurrence_Always, -- Ada.Exceptions
RE_Reraise_Occurrence_No_Defer, -- Ada.Exceptions
RE_Save_Occurrence, -- Ada.Exceptions
RE_Simple_List_Controller, -- Ada.Finalization.List_Controller
RE_List_Controller, -- Ada.Finalization.List_Controller
RE_Interrupt_Id, -- Ada.Interrupts
RE_Root_Stream_Type, -- Ada.Streams
RE_Stream_Element, -- 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_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_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_Tag, -- Ada.Tags
RE_Address_Array, -- Ada.Tags
RE_Current_Task, -- Ada.Task_Identification
RO_AT_Task_ID, -- Ada.Task_Identification
RO_CA_Time, -- Ada.Calendar
RO_CA_Delay_For, -- Ada.Calendar.Delays
RO_CA_Delay_Until, -- Ada.Calendar.Delays
RO_CA_To_Duration, -- Ada.Calendar.Delays
RO_RT_Time, -- Ada.Real_Time
RO_RT_Delay_Until, -- Ada.Real_Time.Delays
RO_RT_To_Duration, -- Ada.Real_Time.Delays
RE_Integer_64, -- Interfaces
RE_Unsigned_8, -- Interfaces
RE_Unsigned_16, -- Interfaces
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_Add_With_Ovflo_Check, -- System.Arith_64
RE_Double_Divide, -- System.Arith_64
RE_Multiply_With_Ovflo_Check, -- System.Arith_64
RE_Scaled_Divide, -- System.Arith_64
RE_Subtract_With_Ovflo_Check, -- System.Arith_64
RE_Create_AST_Handler, -- System.AST_Handling
RE_Raise_Assert_Failure, -- System.Assertions
RE_AST_Handler, -- System.Aux_DEC
RE_Import_Value, -- System.Aux_DEC
RE_No_AST_Handler, -- System.Aux_DEC
RE_Type_Class, -- System.Aux_DEC
RE_Type_Class_Enumeration, -- System.Aux_DEC
RE_Type_Class_Integer, -- System.Aux_DEC
RE_Type_Class_Fixed_Point, -- System.Aux_DEC
RE_Type_Class_Floating_Point, -- System.Aux_DEC
RE_Type_Class_Array, -- System.Aux_DEC
RE_Type_Class_Record, -- System.Aux_DEC
RE_Type_Class_Access, -- System.Aux_DEC
RE_Type_Class_Task, -- System.Aux_DEC
RE_Type_Class_Address, -- System.Aux_DEC
RE_Bit_And, -- System.Bit_Ops
RE_Bit_Eq, -- System.Bit_Ops
RE_Bit_Not, -- System.Bit_Ops
RE_Bit_Or, -- System.Bit_Ops
RE_Bit_Xor, -- System.Bit_Ops
RE_Checked_Pool, -- System.Checked_Pools
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_Exn_Float, -- System.Exn_Flt
RE_Exn_Integer, -- System.Exn_Int
RE_Exn_Long_Float, -- System.Exn_LFlt
RE_Exn_Long_Integer, -- System.Exn_LInt
RE_Exn_Long_Long_Float, -- System.Exn_LLF
RE_Exn_Long_Long_Integer, -- System.Exn_LLI
RE_Exn_Short_Float, -- System.Exn_SFlt
RE_Exn_Short_Integer, -- System.Exn_SInt
RE_Exn_Short_Short_Integer, -- System.Exn_SSI
RE_Exp_Float, -- System.Exp_Flt
RE_Exp_Integer, -- System.Exp_Int
RE_Exp_Long_Float, -- System.Exp_LFlt
RE_Exp_Long_Integer, -- System.Exp_LInt
RE_Exp_Long_Long_Float, -- System.Exp_LLF
RE_Exp_Long_Long_Integer, -- System.Exp_LLI
RE_Exp_Long_Long_Unsigned, -- System.Exp_LLU
RE_Exp_Modular, -- System.Exp_Mod
RE_Exp_Short_Float, -- System.Exp_SFlt
RE_Exp_Short_Integer, -- System.Exp_SInt
RE_Exp_Short_Short_Integer, -- System.Exp_SSI
RE_Exp_Unsigned, -- System.Exp_Uns
RE_Fat_Float, -- System.Fat_Flt
RE_Fat_Long_Float, -- System.Fat_LFlt
RE_Fat_Long_Long_Float, -- System.Fat_LLF
RE_Fat_Short_Float, -- System.Fat_SFlt
RE_Attach_To_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_Finalizable_Ptr, -- System.Finalization_Root
RE_Fore, -- System.Fore
RE_Image_Boolean, -- System.Img_Bool
RE_Image_Character, -- System.Img_Char
RE_Image_Decimal, -- System.Img_Dec
RE_Image_Enumeration_8, -- System.Img_Enum
RE_Image_Enumeration_16, -- System.Img_Enum
RE_Image_Enumeration_32, -- System.Img_Enum
RE_Image_Integer, -- System.Img_Int
RE_Image_Long_Long_Decimal, -- System.Img_LLD
RE_Image_Long_Long_Integer, -- System.Img_LLI
RE_Image_Long_Long_Unsigned, -- System.Img_LLU
RE_Image_Ordinary_Fixed_Point, -- System.Img_Real
RE_Image_Floating_Point, -- System.Img_Real
RE_Image_Unsigned, -- System.Img_Uns
RE_Image_Wide_Character, -- System.Img_WChar
RE_Bind_Interrupt_To_Entry, -- System.Interrupts
RE_Default_Interrupt_Priority, -- System.Interrupts
RE_Dynamic_Interrupt_Protection, -- System.Interrupts
RE_Install_Handlers, -- System.Interrupts
RE_Register_Interrupt_Handler, -- System.Interrupts
RE_Static_Interrupt_Protection, -- System.Interrupts
RE_Asm_Insn, -- System.Machine_Code
RE_Asm_Input_Operand, -- System.Machine_Code
RE_Asm_Output_Operand, -- System.Machine_Code
RE_Mantissa_Value, -- System_Mantissa
RE_Bits_03, -- System.Pack_03
RE_Get_03, -- System.Pack_03
RE_Set_03, -- System.Pack_03
RE_Bits_05, -- System.Pack_05
RE_Get_05, -- System.Pack_05
RE_Set_05, -- System.Pack_05
RE_Bits_06, -- System.Pack_06
RE_Get_06, -- System.Pack_06
RE_GetU_06, -- System.Pack_06
RE_Set_06, -- System.Pack_06
RE_SetU_06, -- System.Pack_06
RE_Bits_07, -- System.Pack_07
RE_Get_07, -- System.Pack_07
RE_Set_07, -- System.Pack_07
RE_Bits_09, -- System.Pack_09
RE_Get_09, -- System.Pack_09
RE_Set_09, -- System.Pack_09
RE_Bits_10, -- System.Pack_10
RE_Get_10, -- System.Pack_10
RE_GetU_10, -- System.Pack_10
RE_Set_10, -- System.Pack_10
RE_SetU_10, -- System.Pack_10
RE_Bits_11, -- System.Pack_11
RE_Get_11, -- System.Pack_11
RE_Set_11, -- System.Pack_11
RE_Bits_12, -- System.Pack_12
RE_Get_12, -- System.Pack_12
RE_GetU_12, -- System.Pack_12
RE_Set_12, -- System.Pack_12
RE_SetU_12, -- System.Pack_12
RE_Bits_13, -- System.Pack_13
RE_Get_13, -- System.Pack_13
RE_Set_13, -- System.Pack_13
RE_Bits_14, -- System.Pack_14
RE_Get_14, -- System.Pack_14
RE_GetU_14, -- System.Pack_14
RE_Set_14, -- System.Pack_14
RE_SetU_14, -- System.Pack_14
RE_Bits_15, -- System.Pack_15
RE_Get_15, -- System.Pack_15
RE_Set_15, -- System.Pack_15
RE_Bits_17, -- System.Pack_17
RE_Get_17, -- System.Pack_17
RE_Set_17, -- System.Pack_17
RE_Bits_18, -- System.Pack_18
RE_Get_18, -- System.Pack_18
RE_GetU_18, -- System.Pack_18
RE_Set_18, -- System.Pack_18
RE_SetU_18, -- System.Pack_18
RE_Bits_19, -- System.Pack_19
RE_Get_19, -- System.Pack_19
RE_Set_19, -- System.Pack_19
RE_Bits_20, -- System.Pack_20
RE_Get_20, -- System.Pack_20
RE_GetU_20, -- System.Pack_20
RE_Set_20, -- System.Pack_20
RE_SetU_20, -- System.Pack_20
RE_Bits_21, -- System.Pack_21
RE_Get_21, -- System.Pack_21
RE_Set_21, -- System.Pack_21
RE_Bits_22, -- System.Pack_22
RE_Get_22, -- System.Pack_22
RE_GetU_22, -- System.Pack_22
RE_Set_22, -- System.Pack_22
RE_SetU_22, -- System.Pack_22
RE_Bits_23, -- System.Pack_23
RE_Get_23, -- System.Pack_23
RE_Set_23, -- System.Pack_23
RE_Bits_24, -- System.Pack_24
RE_Get_24, -- System.Pack_24
RE_GetU_24, -- System.Pack_24
RE_Set_24, -- System.Pack_24
RE_SetU_24, -- System.Pack_24
RE_Bits_25, -- System.Pack_25
RE_Get_25, -- System.Pack_25
RE_Set_25, -- System.Pack_25
RE_Bits_26, -- System.Pack_26
RE_Get_26, -- System.Pack_26
RE_GetU_26, -- System.Pack_26
RE_Set_26, -- System.Pack_26
RE_SetU_26, -- System.Pack_26
RE_Bits_27, -- System.Pack_27
RE_Get_27, -- System.Pack_27
RE_Set_27, -- System.Pack_27
RE_Bits_28, -- System.Pack_28
RE_Get_28, -- System.Pack_28
RE_GetU_28, -- System.Pack_28
RE_Set_28, -- System.Pack_28
RE_SetU_28, -- System.Pack_28
RE_Bits_29, -- System.Pack_29
RE_Get_29, -- System.Pack_29
RE_Set_29, -- System.Pack_29
RE_Bits_30, -- System.Pack_30
RE_Get_30, -- System.Pack_30
RE_GetU_30, -- System.Pack_30
RE_Set_30, -- System.Pack_30
RE_SetU_30, -- System.Pack_30
RE_Bits_31, -- System.Pack_31
RE_Get_31, -- System.Pack_31
RE_Set_31, -- System.Pack_31
RE_Bits_33, -- System.Pack_33
RE_Get_33, -- System.Pack_33
RE_Set_33, -- System.Pack_33
RE_Bits_34, -- System.Pack_34
RE_Get_34, -- System.Pack_34
RE_GetU_34, -- System.Pack_34
RE_Set_34, -- System.Pack_34
RE_SetU_34, -- System.Pack_34
RE_Bits_35, -- System.Pack_35
RE_Get_35, -- System.Pack_35
RE_Set_35, -- System.Pack_35
RE_Bits_36, -- System.Pack_36
RE_Get_36, -- System.Pack_36
RE_GetU_36, -- System.Pack_36
RE_Set_36, -- System.Pack_36
RE_SetU_36, -- System.Pack_36
RE_Bits_37, -- System.Pack_37
RE_Get_37, -- System.Pack_37
RE_Set_37, -- System.Pack_37
RE_Bits_38, -- System.Pack_38
RE_Get_38, -- System.Pack_38
RE_GetU_38, -- System.Pack_38
RE_Set_38, -- System.Pack_38
RE_SetU_38, -- System.Pack_38
RE_Bits_39, -- System.Pack_39
RE_Get_39, -- System.Pack_39
RE_Set_39, -- System.Pack_39
RE_Bits_40, -- System.Pack_40
RE_Get_40, -- System.Pack_40
RE_GetU_40, -- System.Pack_40
RE_Set_40, -- System.Pack_40
RE_SetU_40, -- System.Pack_40
RE_Bits_41, -- System.Pack_41
RE_Get_41, -- System.Pack_41
RE_Set_41, -- System.Pack_41
RE_Bits_42, -- System.Pack_42
RE_Get_42, -- System.Pack_42
RE_GetU_42, -- System.Pack_42
RE_Set_42, -- System.Pack_42
RE_SetU_42, -- System.Pack_42
RE_Bits_43, -- System.Pack_43
RE_Get_43, -- System.Pack_43
RE_Set_43, -- System.Pack_43
RE_Bits_44, -- System.Pack_44
RE_Get_44, -- System.Pack_44
RE_GetU_44, -- System.Pack_44
RE_Set_44, -- System.Pack_44
RE_SetU_44, -- System.Pack_44
RE_Bits_45, -- System.Pack_45
RE_Get_45, -- System.Pack_45
RE_Set_45, -- System.Pack_45
RE_Bits_46, -- System.Pack_46
RE_Get_46, -- System.Pack_46
RE_GetU_46, -- System.Pack_46
RE_Set_46, -- System.Pack_46
RE_SetU_46, -- System.Pack_46
RE_Bits_47, -- System.Pack_47
RE_Get_47, -- System.Pack_47
RE_Set_47, -- System.Pack_47
RE_Bits_48, -- System.Pack_48
RE_Get_48, -- System.Pack_48
RE_GetU_48, -- System.Pack_48
RE_Set_48, -- System.Pack_48
RE_SetU_48, -- System.Pack_48
RE_Bits_49, -- System.Pack_49
RE_Get_49, -- System.Pack_49
RE_Set_49, -- System.Pack_49
RE_Bits_50, -- System.Pack_50
RE_Get_50, -- System.Pack_50
RE_GetU_50, -- System.Pack_50
RE_Set_50, -- System.Pack_50
RE_SetU_50, -- System.Pack_50
RE_Bits_51, -- System.Pack_51
RE_Get_51, -- System.Pack_51
RE_Set_51, -- System.Pack_51
RE_Bits_52, -- System.Pack_52
RE_Get_52, -- System.Pack_52
RE_GetU_52, -- System.Pack_52
RE_Set_52, -- System.Pack_52
RE_SetU_52, -- System.Pack_52
RE_Bits_53, -- System.Pack_53
RE_Get_53, -- System.Pack_53
RE_Set_53, -- System.Pack_53
RE_Bits_54, -- System.Pack_54
RE_Get_54, -- System.Pack_54
RE_GetU_54, -- System.Pack_54
RE_Set_54, -- System.Pack_54
RE_SetU_54, -- System.Pack_54
RE_Bits_55, -- System.Pack_55
RE_Get_55, -- System.Pack_55
RE_Set_55, -- System.Pack_55
RE_Bits_56, -- System.Pack_56
RE_Get_56, -- System.Pack_56
RE_GetU_56, -- System.Pack_56
RE_Set_56, -- System.Pack_56
RE_SetU_56, -- System.Pack_56
RE_Bits_57, -- System.Pack_57
RE_Get_57, -- System.Pack_57
RE_Set_57, -- System.Pack_57
RE_Bits_58, -- System.Pack_58
RE_Get_58, -- System.Pack_58
RE_GetU_58, -- System.Pack_58
RE_Set_58, -- System.Pack_58
RE_SetU_58, -- System.Pack_58
RE_Bits_59, -- System.Pack_59
RE_Get_59, -- System.Pack_59
RE_Set_59, -- System.Pack_59
RE_Bits_60, -- System.Pack_60
RE_Get_60, -- System.Pack_60
RE_GetU_60, -- System.Pack_60
RE_Set_60, -- System.Pack_60
RE_SetU_60, -- System.Pack_60
RE_Bits_61, -- System.Pack_61
RE_Get_61, -- System.Pack_61
RE_Set_61, -- System.Pack_61
RE_Bits_62, -- System.Pack_62
RE_Get_62, -- System.Pack_62
RE_GetU_62, -- System.Pack_62
RE_Set_62, -- System.Pack_62
RE_SetU_62, -- System.Pack_62
RE_Bits_63, -- System.Pack_63
RE_Get_63, -- System.Pack_63
RE_Set_63, -- System.Pack_63
RE_Adjust_Storage_Size, -- System_Parameters
RE_Default_Stack_Size, -- System.Parameters
RE_Garbage_Collected, -- System.Parameters
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_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_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_Subprogram_Id, -- 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_Is4, -- System.Scalar_Values
RE_IS_Is8, -- System.Scalar_Values
RE_IS_Iu1, -- System.Scalar_Values
RE_IS_Iu2, -- System.Scalar_Values
RE_IS_Iu4, -- System.Scalar_Values
RE_IS_Iu8, -- 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_Mark_Id, -- System.Secondary_Stack
RE_SS_Allocate, -- System.Secondary_Stack
RE_SS_Pool, -- System.Secondary_Stack
RE_SS_Mark, -- System.Secondary_Stack
RE_SS_Release, -- System.Secondary_Stack
RE_Shared_Var_Close, -- System.Shared_Storage
RE_Shared_Var_Lock, -- System.Shared_Storage
RE_Shared_Var_ROpen, -- System.Shared_Storage
RE_Shared_Var_Unlock, -- System.Shared_Storage
RE_Shared_Var_WOpen, -- System.Shared_Storage
RE_Abort_Undefer_Direct, -- 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_Root_Storage_Pool, -- 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_C, -- System.Stream_Attributes
RE_I_F, -- System.Stream_Attributes
RE_I_I, -- System.Stream_Attributes
RE_I_LF, -- System.Stream_Attributes
RE_I_LI, -- System.Stream_Attributes
RE_I_LLF, -- System.Stream_Attributes
RE_I_LLI, -- System.Stream_Attributes
RE_I_LLU, -- System.Stream_Attributes
RE_I_LU, -- System.Stream_Attributes
RE_I_SF, -- System.Stream_Attributes
RE_I_SI, -- System.Stream_Attributes
RE_I_SSI, -- System.Stream_Attributes
RE_I_SSU, -- System.Stream_Attributes
RE_I_SU, -- System.Stream_Attributes
RE_I_U, -- System.Stream_Attributes
RE_I_WC, -- System.Stream_Attributes
RE_W_AD, -- System.Stream_Attributes
RE_W_AS, -- System.Stream_Attributes
RE_W_B, -- System.Stream_Attributes
RE_W_C, -- System.Stream_Attributes
RE_W_F, -- System.Stream_Attributes
RE_W_I, -- System.Stream_Attributes
RE_W_LF, -- System.Stream_Attributes
RE_W_LI, -- System.Stream_Attributes
RE_W_LLF, -- System.Stream_Attributes
RE_W_LLI, -- System.Stream_Attributes
RE_W_LLU, -- System.Stream_Attributes
RE_W_LU, -- System.Stream_Attributes
RE_W_SF, -- System.Stream_Attributes
RE_W_SI, -- System.Stream_Attributes
RE_W_SSI, -- System.Stream_Attributes
RE_W_SSU, -- System.Stream_Attributes
RE_W_SU, -- System.Stream_Attributes
RE_W_U, -- System.Stream_Attributes
RE_W_WC, -- 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_Equal, -- 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_Str_Concat_4, -- System.String_Ops_Concat_4
RE_Str_Concat_5, -- System.String_Ops_Concat_5
RE_Free_Task_Image, -- System.Task_Info
RE_Task_Info_Type, -- System.Task_Info
RE_Task_Image_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
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_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_Delay_Mode, -- System.Tasking
RE_Task_Entry_Index, -- System.Tasking
RE_Self, -- System.Tasking
RE_Master_Id, -- System.Tasking
RE_Unspecified_Priority, -- System.Tasking
RE_Activation_Chain, -- System.Tasking
RE_Abort_Defer, -- System.Soft_Links
RE_Abort_Undefer, -- System.Soft_Links
RE_Complete_Master, -- System.Soft_Links
RE_Current_Master, -- System.Soft_Links
RE_Enter_Master, -- System.Soft_Links
RE_Get_Current_Excep, -- System.Soft_Links
RE_Get_GNAT_Exception, -- System.Soft_Links
RE_Update_Exception, -- System.Soft_Links
RE_Bits_1, -- System.Unsigned_Types
RE_Bits_2, -- System.Unsigned_Types
RE_Bits_4, -- System.Unsigned_Types
RE_Float_Unsigned, -- System.Unsigned_Types
RE_Long_Long_Unsigned, -- System.Unsigned_Types
RE_Packed_Byte, -- System.Unsigned_Types
RE_Packed_Bytes1, -- System.Unsigned_Types
RE_Packed_Bytes2, -- System.Unsigned_Types
RE_Packed_Bytes4, -- System.Unsigned_Types
RE_Unsigned, -- System.Unsigned_Types
RE_Value_Boolean, -- System.Val_Bool
RE_Value_Character, -- System.Val_Char
RE_Value_Decimal, -- System.Val_Dec
RE_Value_Enumeration_8, -- System.Val_Enum
RE_Value_Enumeration_16, -- System.Val_Enum
RE_Value_Enumeration_32, -- System.Val_Enum
RE_Value_Integer, -- System.Val_Int
RE_Value_Long_Long_Decimal, -- System.Val_LLD
RE_Value_Long_Long_Integer, -- System.Val_LLI
RE_Value_Long_Long_Unsigned, -- System.Val_LLU
RE_Value_Real, -- System.Val_Real
RE_Value_Unsigned, -- System.Val_Uns
RE_Value_Wide_Character, -- System.Val_WChar
RE_D, -- System.Vax_Float_Operations
RE_F, -- System.Vax_Float_Operations
RE_G, -- System.Vax_Float_Operations
RE_Q, -- System.Vax_Float_Operations
RE_S, -- System.Vax_Float_Operations
RE_T, -- System.Vax_Float_Operations
RE_D_To_G, -- System.Vax_Float_Operations
RE_F_To_G, -- System.Vax_Float_Operations
RE_F_To_Q, -- System.Vax_Float_Operations
RE_F_To_S, -- System.Vax_Float_Operations
RE_G_To_D, -- System.Vax_Float_Operations
RE_G_To_F, -- System.Vax_Float_Operations
RE_G_To_Q, -- System.Vax_Float_Operations
RE_G_To_T, -- System.Vax_Float_Operations
RE_Q_To_F, -- System.Vax_Float_Operations
RE_Q_To_G, -- System.Vax_Float_Operations
RE_S_To_F, -- System.Vax_Float_Operations
RE_T_To_D, -- System.Vax_Float_Operations
RE_T_To_G, -- System.Vax_Float_Operations
RE_Abs_F, -- System.Vax_Float_Operations
RE_Abs_G, -- System.Vax_Float_Operations
RE_Add_F, -- System.Vax_Float_Operations
RE_Add_G, -- System.Vax_Float_Operations
RE_Div_F, -- System.Vax_Float_Operations
RE_Div_G, -- System.Vax_Float_Operations
RE_Mul_F, -- System.Vax_Float_Operations
RE_Mul_G, -- System.Vax_Float_Operations
RE_Neg_F, -- System.Vax_Float_Operations
RE_Neg_G, -- System.Vax_Float_Operations
RE_Sub_F, -- System.Vax_Float_Operations
RE_Sub_G, -- System.Vax_Float_Operations
RE_Eq_F, -- System.Vax_Float_Operations
RE_Eq_G, -- System.Vax_Float_Operations
RE_Le_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_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_Wide_String_To_String, -- System.WCh_WtS
RE_Wide_Width_Character, -- System.WWd_Char
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_Width_Wide_Character, -- System.WWd_Wchar
RE_Width_Boolean, -- System.Wid_Bool
RE_Width_Character, -- System.Wid_Char
RE_Width_Enumeration_8, -- System.Wid_Enum
RE_Width_Enumeration_16, -- System.Wid_Enum
RE_Width_Enumeration_32, -- System.Wid_Enum
RE_Width_Long_Long_Integer, -- System.Wid_LLI
RE_Width_Long_Long_Unsigned, -- System.Wid_LLU
RE_Width_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
RE_Unlock_Entries, -- Tasking.Protected_Objects.Entries
RE_Communication_Block, -- Protected_Objects.Operations
RE_Protected_Entry_Call, -- Protected_Objects.Operations
RE_Service_Entries, -- Protected_Objects.Operations
RE_Cancel_Protected_Entry_Call, -- Protected_Objects.Operations
RE_Enqueued, -- Protected_Objects.Operations
RE_Cancelled, -- Protected_Objects.Operations
RE_Complete_Entry_Body, -- Protected_Objects.Operations
RE_Exceptional_Complete_Entry_Body, -- Protected_Objects.Operations
RE_Requeue_Protected_Entry, -- Protected_Objects.Operations
RE_Requeue_Task_To_Protected_Entry, -- Protected_Objects.Operations
RE_Protected_Count, -- Protected_Objects.Operations
RE_Protected_Entry_Caller, -- Protected_Objects.Operations
RE_Timed_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_Complete_Single_Entry_Body, -- Protected_Objects.Single_Entry
RE_Exceptional_Complete_Single_Entry_Body,
RE_Protected_Count_Entry, -- Protected_Objects.Single_Entry
RE_Protected_Single_Entry_Caller, -- Protected_Objects.Single_Entry
RE_Timed_Protected_Single_Entry_Call,
RE_Protected_Entry_Index, -- System.Tasking.Protected_Objects
RE_Entry_Body, -- System.Tasking.Protected_Objects
RE_Protection, -- System.Tasking.Protected_Objects
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_Unlock, -- System.Tasking.Protected_Objects
RE_Delay_Block, -- System.Tasking.Async_Delays
RE_Timed_Out, -- System.Tasking.Async_Delays
RE_Cancel_Async_Delay, -- System.Tasking.Async_Delays
RE_Enqueue_Duration, -- System.Tasking.Async_Delays
RE_Enqueue_Calendar, -- System.Tasking.Async_Delays
RE_Enqueue_RT, -- System.Tasking.Async_Delays
RE_Accept_Call, -- System.Tasking.Rendezvous
RE_Accept_Trivial, -- System.Tasking.Rendezvous
RE_Callable, -- System.Tasking.Rendezvous
RE_Call_Simple, -- System.Tasking.Rendezvous
RE_Requeue_Task_Entry, -- System.Tasking.Rendezvous
RE_Requeue_Protected_To_Task_Entry, -- System.Tasking.Rendezvous
RE_Cancel_Task_Entry_Call, -- System.Tasking.Rendezvous
RE_Complete_Rendezvous, -- System.Tasking.Rendezvous
RE_Task_Count, -- System.Tasking.Rendezvous
RE_Exceptional_Complete_Rendezvous, -- System.Tasking.Rendezvous
RE_Selective_Wait, -- System.Tasking.Rendezvous
RE_Task_Entry_Call, -- System.Tasking.Rendezvous
RE_Task_Entry_Caller, -- System.Tasking.Rendezvous
RE_Timed_Task_Entry_Call, -- System.Tasking.Rendezvous
RE_Timed_Selective_Wait, -- System.Tasking.Rendezvous
RE_Activate_Restricted_Tasks, -- System.Tasking.Restricted.Stages
RE_Complete_Restricted_Activation, -- System.Tasking.Restricted.Stages
RE_Create_Restricted_Task, -- System.Tasking.Restricted.Stages
RE_Complete_Restricted_Task, -- System.Tasking.Restricted.Stages
RE_Restricted_Terminated, -- System.Tasking.Restricted.Stages
RE_Abort_Tasks, -- System.Tasking.Stages
RE_Activate_Tasks, -- System.Tasking.Stages
RE_Complete_Activation, -- System.Tasking.Stages
RE_Create_Task, -- System.Tasking.Stages
RE_Complete_Task, -- System.Tasking.Stages
RE_Free_Task, -- System.Tasking.Stages
RE_Expunge_Unactivated_Tasks, -- System.Tasking.Stages
RE_Terminated); -- System.Tasking.Stages
-- The following declarations build a table that is indexed by the
-- RTE function to determine the unit containing the given entity.
-- This table is sorted in order of package names.
RE_Unit_Table : array (RE_Id) of RTU_Id := (
RE_Null => RTU_Null,
RE_Code_Loc => Ada_Exceptions,
RE_Current_Target_Exception => Ada_Exceptions, -- of JGNAT
RE_Exception_Id => Ada_Exceptions,
RE_Exception_Information => 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_Reraise_Occurrence => Ada_Exceptions,
RE_Reraise_Occurrence_Always => Ada_Exceptions,
RE_Reraise_Occurrence_No_Defer => Ada_Exceptions,
RE_Save_Occurrence => Ada_Exceptions,
RE_Simple_List_Controller => Ada_Finalization_List_Controller,
RE_List_Controller => Ada_Finalization_List_Controller,
RE_Interrupt_Id => Ada_Interrupts,
RE_Root_Stream_Type => Ada_Streams,
RE_Stream_Element => 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_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_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_Tag => Ada_Tags,
RE_Address_Array => Ada_Tags,
RE_Current_Task => Ada_Task_Identification,
RO_AT_Task_ID => Ada_Task_Identification,
RO_CA_Time => Ada_Calendar,
RO_CA_Delay_For => Ada_Calendar_Delays,
RO_CA_Delay_Until => Ada_Calendar_Delays,
RO_CA_To_Duration => Ada_Calendar_Delays,
RO_RT_Time => Ada_Real_Time,
RO_RT_Delay_Until => Ada_Real_Time_Delays,
RO_RT_To_Duration => Ada_Real_Time_Delays,
RE_Integer_64 => Interfaces,
RE_Unsigned_8 => Interfaces,
RE_Unsigned_16 => Interfaces,
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_Add_With_Ovflo_Check => System_Arith_64,
RE_Double_Divide => System_Arith_64,
RE_Multiply_With_Ovflo_Check => System_Arith_64,
RE_Scaled_Divide => System_Arith_64,
RE_Subtract_With_Ovflo_Check => System_Arith_64,
RE_Create_AST_Handler => System_AST_Handling,
RE_Raise_Assert_Failure => System_Assertions,
RE_AST_Handler => System_Aux_DEC,
RE_Import_Value => System_Aux_DEC,
RE_No_AST_Handler => System_Aux_DEC,
RE_Type_Class => System_Aux_DEC,
RE_Type_Class_Enumeration => System_Aux_DEC,
RE_Type_Class_Integer => System_Aux_DEC,
RE_Type_Class_Fixed_Point => System_Aux_DEC,
RE_Type_Class_Floating_Point => System_Aux_DEC,
RE_Type_Class_Array => System_Aux_DEC,
RE_Type_Class_Record => System_Aux_DEC,
RE_Type_Class_Access => System_Aux_DEC,
RE_Type_Class_Task => System_Aux_DEC,
RE_Type_Class_Address => System_Aux_DEC,
RE_Bit_And => System_Bit_Ops,
RE_Bit_Eq => System_Bit_Ops,
RE_Bit_Not => System_Bit_Ops,
RE_Bit_Or => System_Bit_Ops,
RE_Bit_Xor => System_Bit_Ops,
RE_Checked_Pool => System_Checked_Pools,
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_Exn_Float => System_Exn_Flt,
RE_Exn_Integer => System_Exn_Int,
RE_Exn_Long_Float => System_Exn_LFlt,
RE_Exn_Long_Integer => System_Exn_LInt,
RE_Exn_Long_Long_Float => System_Exn_LLF,
RE_Exn_Long_Long_Integer => System_Exn_LLI,
RE_Exn_Short_Float => System_Exn_SFlt,
RE_Exn_Short_Integer => System_Exn_SInt,
RE_Exn_Short_Short_Integer => System_Exn_SSI,
RE_Exp_Float => System_Exp_Flt,
RE_Exp_Integer => System_Exp_Int,
RE_Exp_Long_Float => System_Exp_LFlt,
RE_Exp_Long_Integer => System_Exp_LInt,
RE_Exp_Long_Long_Float => System_Exp_LLF,
RE_Exp_Long_Long_Integer => System_Exp_LLI,
RE_Exp_Long_Long_Unsigned => System_Exp_LLU,
RE_Exp_Modular => System_Exp_Mod,
RE_Exp_Short_Float => System_Exp_SFlt,
RE_Exp_Short_Integer => System_Exp_SInt,
RE_Exp_Short_Short_Integer => System_Exp_SSI,
RE_Exp_Unsigned => System_Exp_Uns,
RE_Fat_Float => System_Fat_Flt,
RE_Fat_Long_Float => System_Fat_LFlt,
RE_Fat_Long_Long_Float => System_Fat_LLF,
RE_Fat_Short_Float => System_Fat_SFlt,
RE_Attach_To_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_Finalizable_Ptr => System_Finalization_Root,
RE_Fore => System_Fore,
RE_Image_Boolean => System_Img_Bool,
RE_Image_Character => System_Img_Char,
RE_Image_Decimal => System_Img_Dec,
RE_Image_Enumeration_8 => System_Img_Enum,
RE_Image_Enumeration_16 => System_Img_Enum,
RE_Image_Enumeration_32 => System_Img_Enum,
RE_Image_Integer => System_Img_Int,
RE_Image_Long_Long_Decimal => System_Img_LLD,
RE_Image_Long_Long_Integer => System_Img_LLI,
RE_Image_Long_Long_Unsigned => System_Img_LLU,
RE_Image_Ordinary_Fixed_Point => System_Img_Real,
RE_Image_Floating_Point => System_Img_Real,
RE_Image_Unsigned => System_Img_Uns,
RE_Image_Wide_Character => System_Img_WChar,
RE_Bind_Interrupt_To_Entry => System_Interrupts,
RE_Default_Interrupt_Priority => System_Interrupts,
RE_Dynamic_Interrupt_Protection => System_Interrupts,
RE_Install_Handlers => System_Interrupts,
RE_Register_Interrupt_Handler => System_Interrupts,
RE_Static_Interrupt_Protection => System_Interrupts,
RE_Asm_Insn => System_Machine_Code,
RE_Asm_Input_Operand => System_Machine_Code,
RE_Asm_Output_Operand => System_Machine_Code,
RE_Mantissa_Value => System_Mantissa,
RE_Bits_03 => System_Pack_03,
RE_Get_03 => System_Pack_03,
RE_Set_03 => System_Pack_03,
RE_Bits_05 => System_Pack_05,
RE_Get_05 => System_Pack_05,
RE_Set_05 => System_Pack_05,
RE_Bits_06 => System_Pack_06,
RE_Get_06 => System_Pack_06,
RE_GetU_06 => System_Pack_06,
RE_Set_06 => System_Pack_06,
RE_SetU_06 => System_Pack_06,
RE_Bits_07 => System_Pack_07,
RE_Get_07 => System_Pack_07,
RE_Set_07 => System_Pack_07,
RE_Bits_09 => System_Pack_09,
RE_Get_09 => System_Pack_09,
RE_Set_09 => System_Pack_09,
RE_Bits_10 => System_Pack_10,
RE_Get_10 => System_Pack_10,
RE_GetU_10 => System_Pack_10,
RE_Set_10 => System_Pack_10,
RE_SetU_10 => System_Pack_10,
RE_Bits_11 => System_Pack_11,
RE_Get_11 => System_Pack_11,
RE_Set_11 => System_Pack_11,
RE_Bits_12 => System_Pack_12,
RE_Get_12 => System_Pack_12,
RE_GetU_12 => System_Pack_12,
RE_Set_12 => System_Pack_12,
RE_SetU_12 => System_Pack_12,
RE_Bits_13 => System_Pack_13,
RE_Get_13 => System_Pack_13,
RE_Set_13 => System_Pack_13,
RE_Bits_14 => System_Pack_14,
RE_Get_14 => System_Pack_14,
RE_GetU_14 => System_Pack_14,
RE_Set_14 => System_Pack_14,
RE_SetU_14 => System_Pack_14,
RE_Bits_15 => System_Pack_15,
RE_Get_15 => System_Pack_15,
RE_Set_15 => System_Pack_15,
RE_Bits_17 => System_Pack_17,
RE_Get_17 => System_Pack_17,
RE_Set_17 => System_Pack_17,
RE_Bits_18 => System_Pack_18,
RE_Get_18 => System_Pack_18,
RE_GetU_18 => System_Pack_18,
RE_Set_18 => System_Pack_18,
RE_SetU_18 => System_Pack_18,
RE_Bits_19 => System_Pack_19,
RE_Get_19 => System_Pack_19,
RE_Set_19 => System_Pack_19,
RE_Bits_20 => System_Pack_20,
RE_Get_20 => System_Pack_20,
RE_GetU_20 => System_Pack_20,
RE_Set_20 => System_Pack_20,
RE_SetU_20 => System_Pack_20,
RE_Bits_21 => System_Pack_21,
RE_Get_21 => System_Pack_21,
RE_Set_21 => System_Pack_21,
RE_Bits_22 => System_Pack_22,
RE_Get_22 => System_Pack_22,
RE_GetU_22 => System_Pack_22,
RE_Set_22 => System_Pack_22,
RE_SetU_22 => System_Pack_22,
RE_Bits_23 => System_Pack_23,
RE_Get_23 => System_Pack_23,
RE_Set_23 => System_Pack_23,
RE_Bits_24 => System_Pack_24,
RE_Get_24 => System_Pack_24,
RE_GetU_24 => System_Pack_24,
RE_Set_24 => System_Pack_24,
RE_SetU_24 => System_Pack_24,
RE_Bits_25 => System_Pack_25,
RE_Get_25 => System_Pack_25,
RE_Set_25 => System_Pack_25,
RE_Bits_26 => System_Pack_26,
RE_Get_26 => System_Pack_26,
RE_GetU_26 => System_Pack_26,
RE_Set_26 => System_Pack_26,
RE_SetU_26 => System_Pack_26,
RE_Bits_27 => System_Pack_27,
RE_Get_27 => System_Pack_27,
RE_Set_27 => System_Pack_27,
RE_Bits_28 => System_Pack_28,
RE_Get_28 => System_Pack_28,
RE_GetU_28 => System_Pack_28,
RE_Set_28 => System_Pack_28,
RE_SetU_28 => System_Pack_28,
RE_Bits_29 => System_Pack_29,
RE_Get_29 => System_Pack_29,
RE_Set_29 => System_Pack_29,
RE_Bits_30 => System_Pack_30,
RE_Get_30 => System_Pack_30,
RE_GetU_30 => System_Pack_30,
RE_Set_30 => System_Pack_30,
RE_SetU_30 => System_Pack_30,
RE_Bits_31 => System_Pack_31,
RE_Get_31 => System_Pack_31,
RE_Set_31 => System_Pack_31,
RE_Bits_33 => System_Pack_33,
RE_Get_33 => System_Pack_33,
RE_Set_33 => System_Pack_33,
RE_Bits_34 => System_Pack_34,
RE_Get_34 => System_Pack_34,
RE_GetU_34 => System_Pack_34,
RE_Set_34 => System_Pack_34,
RE_SetU_34 => System_Pack_34,
RE_Bits_35 => System_Pack_35,
RE_Get_35 => System_Pack_35,
RE_Set_35 => System_Pack_35,
RE_Bits_36 => System_Pack_36,
RE_Get_36 => System_Pack_36,
RE_GetU_36 => System_Pack_36,
RE_Set_36 => System_Pack_36,
RE_SetU_36 => System_Pack_36,
RE_Bits_37 => System_Pack_37,
RE_Get_37 => System_Pack_37,
RE_Set_37 => System_Pack_37,
RE_Bits_38 => System_Pack_38,
RE_Get_38 => System_Pack_38,
RE_GetU_38 => System_Pack_38,
RE_Set_38 => System_Pack_38,
RE_SetU_38 => System_Pack_38,
RE_Bits_39 => System_Pack_39,
RE_Get_39 => System_Pack_39,
RE_Set_39 => System_Pack_39,
RE_Bits_40 => System_Pack_40,
RE_Get_40 => System_Pack_40,
RE_GetU_40 => System_Pack_40,
RE_Set_40 => System_Pack_40,
RE_SetU_40 => System_Pack_40,
RE_Bits_41 => System_Pack_41,
RE_Get_41 => System_Pack_41,
RE_Set_41 => System_Pack_41,
RE_Bits_42 => System_Pack_42,
RE_Get_42 => System_Pack_42,
RE_GetU_42 => System_Pack_42,
RE_Set_42 => System_Pack_42,
RE_SetU_42 => System_Pack_42,
RE_Bits_43 => System_Pack_43,
RE_Get_43 => System_Pack_43,
RE_Set_43 => System_Pack_43,
RE_Bits_44 => System_Pack_44,
RE_Get_44 => System_Pack_44,
RE_GetU_44 => System_Pack_44,
RE_Set_44 => System_Pack_44,
RE_SetU_44 => System_Pack_44,
RE_Bits_45 => System_Pack_45,
RE_Get_45 => System_Pack_45,
RE_Set_45 => System_Pack_45,
RE_Bits_46 => System_Pack_46,
RE_Get_46 => System_Pack_46,
RE_GetU_46 => System_Pack_46,
RE_Set_46 => System_Pack_46,
RE_SetU_46 => System_Pack_46,
RE_Bits_47 => System_Pack_47,
RE_Get_47 => System_Pack_47,
RE_Set_47 => System_Pack_47,
RE_Bits_48 => System_Pack_48,
RE_Get_48 => System_Pack_48,
RE_GetU_48 => System_Pack_48,
RE_Set_48 => System_Pack_48,
RE_SetU_48 => System_Pack_48,
RE_Bits_49 => System_Pack_49,
RE_Get_49 => System_Pack_49,
RE_Set_49 => System_Pack_49,
RE_Bits_50 => System_Pack_50,
RE_Get_50 => System_Pack_50,
RE_GetU_50 => System_Pack_50,
RE_Set_50 => System_Pack_50,
RE_SetU_50 => System_Pack_50,
RE_Bits_51 => System_Pack_51,
RE_Get_51 => System_Pack_51,
RE_Set_51 => System_Pack_51,
RE_Bits_52 => System_Pack_52,
RE_Get_52 => System_Pack_52,
RE_GetU_52 => System_Pack_52,
RE_Set_52 => System_Pack_52,
RE_SetU_52 => System_Pack_52,
RE_Bits_53 => System_Pack_53,
RE_Get_53 => System_Pack_53,
RE_Set_53 => System_Pack_53,
RE_Bits_54 => System_Pack_54,
RE_Get_54 => System_Pack_54,
RE_GetU_54 => System_Pack_54,
RE_Set_54 => System_Pack_54,
RE_SetU_54 => System_Pack_54,
RE_Bits_55 => System_Pack_55,
RE_Get_55 => System_Pack_55,
RE_Set_55 => System_Pack_55,
RE_Bits_56 => System_Pack_56,
RE_Get_56 => System_Pack_56,
RE_GetU_56 => System_Pack_56,
RE_Set_56 => System_Pack_56,
RE_SetU_56 => System_Pack_56,
RE_Bits_57 => System_Pack_57,
RE_Get_57 => System_Pack_57,
RE_Set_57 => System_Pack_57,
RE_Bits_58 => System_Pack_58,
RE_Get_58 => System_Pack_58,
RE_GetU_58 => System_Pack_58,
RE_Set_58 => System_Pack_58,
RE_SetU_58 => System_Pack_58,
RE_Bits_59 => System_Pack_59,
RE_Get_59 => System_Pack_59,
RE_Set_59 => System_Pack_59,
RE_Bits_60 => System_Pack_60,
RE_Get_60 => System_Pack_60,
RE_GetU_60 => System_Pack_60,
RE_Set_60 => System_Pack_60,
RE_SetU_60 => System_Pack_60,
RE_Bits_61 => System_Pack_61,
RE_Get_61 => System_Pack_61,
RE_Set_61 => System_Pack_61,
RE_Bits_62 => System_Pack_62,
RE_Get_62 => System_Pack_62,
RE_GetU_62 => System_Pack_62,
RE_Set_62 => System_Pack_62,
RE_SetU_62 => System_Pack_62,
RE_Bits_63 => System_Pack_63,
RE_Get_63 => System_Pack_63,
RE_Set_63 => System_Pack_63,
RE_Adjust_Storage_Size => System_Parameters,
RE_Default_Stack_Size => System_Parameters,
RE_Garbage_Collected => System_Parameters,
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_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_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_Subprogram_Id => 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_Is4 => System_Scalar_Values,
RE_IS_Is8 => System_Scalar_Values,
RE_IS_Iu1 => System_Scalar_Values,
RE_IS_Iu2 => System_Scalar_Values,
RE_IS_Iu4 => System_Scalar_Values,
RE_IS_Iu8 => 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_Mark_Id => System_Secondary_Stack,
RE_SS_Allocate => System_Secondary_Stack,
RE_SS_Mark => System_Secondary_Stack,
RE_SS_Pool => System_Secondary_Stack,
RE_SS_Release => System_Secondary_Stack,
RE_Shared_Var_Close => System_Shared_Storage,
RE_Shared_Var_Lock => System_Shared_Storage,
RE_Shared_Var_ROpen => System_Shared_Storage,
RE_Shared_Var_Unlock => System_Shared_Storage,
RE_Shared_Var_WOpen => System_Shared_Storage,
RE_Abort_Undefer_Direct => 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_Root_Storage_Pool => 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_C => System_Stream_Attributes,
RE_I_F => System_Stream_Attributes,
RE_I_I => System_Stream_Attributes,
RE_I_LF => System_Stream_Attributes,
RE_I_LI => System_Stream_Attributes,
RE_I_LLF => System_Stream_Attributes,
RE_I_LLI => System_Stream_Attributes,
RE_I_LLU => System_Stream_Attributes,
RE_I_LU => System_Stream_Attributes,
RE_I_SF => System_Stream_Attributes,
RE_I_SI => System_Stream_Attributes,
RE_I_SSI => System_Stream_Attributes,
RE_I_SSU => System_Stream_Attributes,
RE_I_SU => System_Stream_Attributes,
RE_I_U => System_Stream_Attributes,
RE_I_WC => System_Stream_Attributes,
RE_W_AD => System_Stream_Attributes,
RE_W_AS => System_Stream_Attributes,
RE_W_B => System_Stream_Attributes,
RE_W_C => System_Stream_Attributes,
RE_W_F => System_Stream_Attributes,
RE_W_I => System_Stream_Attributes,
RE_W_LF => System_Stream_Attributes,
RE_W_LI => System_Stream_Attributes,
RE_W_LLF => System_Stream_Attributes,
RE_W_LLI => System_Stream_Attributes,
RE_W_LLU => System_Stream_Attributes,
RE_W_LU => System_Stream_Attributes,
RE_W_SF => System_Stream_Attributes,
RE_W_SI => System_Stream_Attributes,
RE_W_SSI => System_Stream_Attributes,
RE_W_SSU => System_Stream_Attributes,
RE_W_SU => System_Stream_Attributes,
RE_W_U => System_Stream_Attributes,
RE_W_WC => System_Stream_Attributes,
RE_Str_Concat => System_String_Ops,
RE_Str_Equal => 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_Str_Concat_3 => System_String_Ops_Concat_3,
RE_Str_Concat_4 => System_String_Ops_Concat_4,
RE_Str_Concat_5 => System_String_Ops_Concat_5,
RE_Free_Task_Image => System_Task_Info,
RE_Task_Info_Type => System_Task_Info,
RE_Task_Image_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,
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_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_Delay_Mode => System_Tasking,
RE_Task_Entry_Index => System_Tasking,
RE_Self => System_Tasking,
RE_Master_Id => System_Tasking,
RE_Unspecified_Priority => System_Tasking,
RE_Activation_Chain => System_Tasking,
RE_Abort_Defer => System_Soft_Links,
RE_Abort_Undefer => System_Soft_Links,
RE_Complete_Master => System_Soft_Links,
RE_Current_Master => System_Soft_Links,
RE_Enter_Master => System_Soft_Links,
RE_Get_Current_Excep => System_Soft_Links,
RE_Get_GNAT_Exception => System_Soft_Links,
RE_Update_Exception => System_Soft_Links,
RE_Bits_1 => System_Unsigned_Types,
RE_Bits_2 => System_Unsigned_Types,
RE_Bits_4 => System_Unsigned_Types,
RE_Float_Unsigned => System_Unsigned_Types,
RE_Long_Long_Unsigned => System_Unsigned_Types,
RE_Packed_Byte => System_Unsigned_Types,
RE_Packed_Bytes1 => System_Unsigned_Types,
RE_Packed_Bytes2 => System_Unsigned_Types,
RE_Packed_Bytes4 => System_Unsigned_Types,
RE_Unsigned => System_Unsigned_Types,
RE_Value_Boolean => System_Val_Bool,
RE_Value_Character => System_Val_Char,
RE_Value_Decimal => System_Val_Dec,
RE_Value_Enumeration_8 => System_Val_Enum,
RE_Value_Enumeration_16 => System_Val_Enum,
RE_Value_Enumeration_32 => System_Val_Enum,
RE_Value_Integer => System_Val_Int,
RE_Value_Long_Long_Decimal => System_Val_LLD,
RE_Value_Long_Long_Integer => System_Val_LLI,
RE_Value_Long_Long_Unsigned => System_Val_LLU,
RE_Value_Real => System_Val_Real,
RE_Value_Unsigned => System_Val_Uns,
RE_Value_Wide_Character => System_Val_WChar,
RE_D => System_Vax_Float_Operations,
RE_F => System_Vax_Float_Operations,
RE_G => System_Vax_Float_Operations,
RE_Q => System_Vax_Float_Operations,
RE_S => System_Vax_Float_Operations,
RE_T => System_Vax_Float_Operations,
RE_D_To_G => System_Vax_Float_Operations,
RE_F_To_G => System_Vax_Float_Operations,
RE_F_To_Q => System_Vax_Float_Operations,
RE_F_To_S => System_Vax_Float_Operations,
RE_G_To_D => System_Vax_Float_Operations,
RE_G_To_F => System_Vax_Float_Operations,
RE_G_To_Q => System_Vax_Float_Operations,
RE_G_To_T => System_Vax_Float_Operations,
RE_Q_To_F => System_Vax_Float_Operations,
RE_Q_To_G => System_Vax_Float_Operations,
RE_S_To_F => System_Vax_Float_Operations,
RE_T_To_D => System_Vax_Float_Operations,
RE_T_To_G => System_Vax_Float_Operations,
RE_Abs_F => System_Vax_Float_Operations,
RE_Abs_G => System_Vax_Float_Operations,
RE_Add_F => System_Vax_Float_Operations,
RE_Add_G => System_Vax_Float_Operations,
RE_Div_F => System_Vax_Float_Operations,
RE_Div_G => System_Vax_Float_Operations,
RE_Mul_F => System_Vax_Float_Operations,
RE_Mul_G => System_Vax_Float_Operations,
RE_Neg_F => System_Vax_Float_Operations,
RE_Neg_G => System_Vax_Float_Operations,
RE_Sub_F => System_Vax_Float_Operations,
RE_Sub_G => System_Vax_Float_Operations,
RE_Eq_F => System_Vax_Float_Operations,
RE_Eq_G => System_Vax_Float_Operations,
RE_Le_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_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_Wide_String_To_String => System_WCh_WtS,
RE_Wide_Width_Character => System_WWd_Char,
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_Width_Wide_Character => System_WWd_Wchar,
RE_Width_Boolean => System_Wid_Bool,
RE_Width_Character => System_Wid_Char,
RE_Width_Enumeration_8 => System_Wid_Enum,
RE_Width_Enumeration_16 => System_Wid_Enum,
RE_Width_Enumeration_32 => System_Wid_Enum,
RE_Width_Long_Long_Integer => System_Wid_LLI,
RE_Width_Long_Long_Unsigned => System_Wid_LLU,
RE_Width_Wide_Character => System_Wid_WChar,
RE_Protected_Entry_Body_Array =>
System_Tasking_Protected_Objects_Entries,
RE_Protection_Entries =>
System_Tasking_Protected_Objects_Entries,
RE_Initialize_Protection_Entries =>
System_Tasking_Protected_Objects_Entries,
RE_Lock_Entries =>
System_Tasking_Protected_Objects_Entries,
RE_Lock_Read_Only_Entries =>
System_Tasking_Protected_Objects_Entries,
RE_Unlock_Entries =>
System_Tasking_Protected_Objects_Entries,
RE_Communication_Block =>
System_Tasking_Protected_Objects_Operations,
RE_Protected_Entry_Call =>
System_Tasking_Protected_Objects_Operations,
RE_Service_Entries =>
System_Tasking_Protected_Objects_Operations,
RE_Cancel_Protected_Entry_Call =>
System_Tasking_Protected_Objects_Operations,
RE_Enqueued =>
System_Tasking_Protected_Objects_Operations,
RE_Cancelled =>
System_Tasking_Protected_Objects_Operations,
RE_Complete_Entry_Body =>
System_Tasking_Protected_Objects_Operations,
RE_Exceptional_Complete_Entry_Body =>
System_Tasking_Protected_Objects_Operations,
RE_Requeue_Protected_Entry =>
System_Tasking_Protected_Objects_Operations,
RE_Requeue_Task_To_Protected_Entry =>
System_Tasking_Protected_Objects_Operations,
RE_Protected_Count =>
System_Tasking_Protected_Objects_Operations,
RE_Protected_Entry_Caller =>
System_Tasking_Protected_Objects_Operations,
RE_Timed_Protected_Entry_Call =>
System_Tasking_Protected_Objects_Operations,
RE_Protection_Entry =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Initialize_Protection_Entry =>
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 =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Service_Entry =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Complete_Single_Entry_Body =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Exceptional_Complete_Single_Entry_Body =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Protected_Count_Entry =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Protected_Single_Entry_Caller =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Timed_Protected_Single_Entry_Call =>
System_Tasking_Protected_Objects_Single_Entry,
RE_Protected_Entry_Index => System_Tasking_Protected_Objects,
RE_Entry_Body => System_Tasking_Protected_Objects,
RE_Protection => System_Tasking_Protected_Objects,
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_Unlock => System_Tasking_Protected_Objects,
RE_Delay_Block => System_Tasking_Async_Delays,
RE_Timed_Out => System_Tasking_Async_Delays,
RE_Cancel_Async_Delay => System_Tasking_Async_Delays,
RE_Enqueue_Duration => System_Tasking_Async_Delays,
RE_Enqueue_Calendar =>
System_Tasking_Async_Delays_Enqueue_Calendar,
RE_Enqueue_RT =>
System_Tasking_Async_Delays_Enqueue_RT,
RE_Accept_Call => System_Tasking_Rendezvous,
RE_Accept_Trivial => System_Tasking_Rendezvous,
RE_Callable => System_Tasking_Rendezvous,
RE_Call_Simple => System_Tasking_Rendezvous,
RE_Cancel_Task_Entry_Call => System_Tasking_Rendezvous,
RE_Requeue_Task_Entry => System_Tasking_Rendezvous,
RE_Requeue_Protected_To_Task_Entry => System_Tasking_Rendezvous,
RE_Complete_Rendezvous => System_Tasking_Rendezvous,
RE_Task_Count => System_Tasking_Rendezvous,
RE_Exceptional_Complete_Rendezvous => System_Tasking_Rendezvous,
RE_Selective_Wait => System_Tasking_Rendezvous,
RE_Task_Entry_Call => System_Tasking_Rendezvous,
RE_Task_Entry_Caller => System_Tasking_Rendezvous,
RE_Timed_Task_Entry_Call => System_Tasking_Rendezvous,
RE_Timed_Selective_Wait => System_Tasking_Rendezvous,
RE_Activate_Restricted_Tasks => System_Tasking_Restricted_Stages,
RE_Complete_Restricted_Activation => System_Tasking_Restricted_Stages,
RE_Create_Restricted_Task => System_Tasking_Restricted_Stages,
RE_Complete_Restricted_Task => System_Tasking_Restricted_Stages,
RE_Restricted_Terminated => System_Tasking_Restricted_Stages,
RE_Abort_Tasks => System_Tasking_Stages,
RE_Activate_Tasks => System_Tasking_Stages,
RE_Complete_Activation => System_Tasking_Stages,
RE_Create_Task => System_Tasking_Stages,
RE_Complete_Task => System_Tasking_Stages,
RE_Free_Task => System_Tasking_Stages,
RE_Expunge_Unactivated_Tasks => System_Tasking_Stages,
RE_Terminated => System_Tasking_Stages);
-----------------
-- Subprograms --
-----------------
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).
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. If the
-- unit cannot be found, or if it does not contain the specified entity,
-- then an appropriate error message is output ("run-time configuration
-- error") and an Unrecoverable_Error exception is raised. There is one
-- situation in which RTE can generate an error message, and that is if
-- an unuathorized entity is accessed in high integrity mode. If this
-- occurs, the result returned may be Empty, and the caller must deal
-- with this possibility if the call to RTE may occur in high integrity
-- mode (often this will have been ruled out by specific checks for
-- high integrity mode prior to the RTE call).
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.
procedure Text_IO_Kludge (Nam : Node_Id);
-- In Ada 83, and hence for compatibility in Ada 9X, package Text_IO has
-- generic subpackages (e.g. Integer_IO). They really should be child
-- packages, and in GNAT, they *are* child packages. To maintain the
-- required compatibility, this routine is called for package renamings
-- and generic instantiations, with the simple name of the referenced
-- package. If Text_IO has been with'ed and if the simple name of Nam
-- matches one of the subpackages of Text_IO, then this subpackage 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.
end Rtsfind;