diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-12-08 12:46:11 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-12-08 12:46:11 +0100 |
commit | bd7f7a653fcfe6f9e6c62d18522d8792341cfd48 (patch) | |
tree | 0950bd0e2dbb0871d4fd7b9aa078d529c09dbd82 /gcc/ada/rtsfind.ads | |
parent | 14532762245860c7f5fef6cd83f283359590b22b (diff) | |
download | gcc-bd7f7a653fcfe6f9e6c62d18522d8792341cfd48.zip gcc-bd7f7a653fcfe6f9e6c62d18522d8792341cfd48.tar.gz gcc-bd7f7a653fcfe6f9e6c62d18522d8792341cfd48.tar.bz2 |
exp_dist.adb (Specific_Build_General_Calling_Stubs, [...]): New subprograms.
* 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.
From-SVN: r91884
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 14f8fc9..04e32bb 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, |