aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/rtsfind.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2004-12-08 12:46:11 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2004-12-08 12:46:11 +0100
commitbd7f7a653fcfe6f9e6c62d18522d8792341cfd48 (patch)
tree0950bd0e2dbb0871d4fd7b9aa078d529c09dbd82 /gcc/ada/rtsfind.ads
parent14532762245860c7f5fef6cd83f283359590b22b (diff)
downloadgcc-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.ads4
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,