diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:46:11 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:46:11 +0000 |
| commit | c8b24b3e5723fea58f3a7972c21fec7b38ff737e (patch) | |
| tree | 0950bd0e2dbb0871d4fd7b9aa078d529c09dbd82 /gcc/ada/rtsfind.ads | |
| parent | 78185a20714f9d2ff263bf8eb1449fb51a8846c0 (diff) | |
| download | gcc-c8b24b3e5723fea58f3a7972c21fec7b38ff737e.tar.gz | |
* exp_dist.adb (Specific_Build_General_Calling_Stubs,
Specific_Build_Stub_Target): New subprograms.
(Build_Subprogram_Calling_Stubs): Make this procedure independent from
the PCS implementation used, using the above PCS-customized subprograms.
Minor reformatting.
(PolyORB_Support.Helpers): New subunit containing supporting subprograms
for generation of DSA code targeted to the PolyORB PCS.
(Add_Stub_Type): Rewrite to isolate the parts that are specific to one
implementation of the partition communication subsystem in ancillary
subprograms.
(Specific_Build_Stub_Type, GARLIC_Support.Build_Stub_Type,
PolyORB_Support.Build_Stub_Type): New subrograms containing the
PCS-specific part of Add_Stub_Type.
(Insert_Partition_Check): Use runtime library function to perform
E.4(19) check.
* rtsfind.ads: New entity System.PolyORB_Interface.Make_Ref
(RE_Same_Partition): New entity, from s-parint.
* s-parint.ads, s-parint.adb (Same_Partition): New subprogram.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91884 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/rtsfind.ads')
| -rw-r--r-- | gcc/ada/rtsfind.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index 14f8fc9bb39..04e32bb9133 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -1020,6 +1020,7 @@ package Rtsfind is 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 @@ -1072,6 +1073,7 @@ package Rtsfind is RE_Entity_Of, -- System.PolyORB_Interface RE_Inc_Usage, -- System.PolyORB_Interface RE_Set_Ref, -- System.PolyORB_Interface + RE_Make_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 @@ -2099,6 +2101,7 @@ package Rtsfind is 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, @@ -2141,6 +2144,7 @@ package Rtsfind is RE_Entity_Of => System_PolyORB_Interface, RE_Inc_Usage => System_PolyORB_Interface, RE_Set_Ref => System_PolyORB_Interface, + RE_Make_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, |