diff options
Diffstat (limited to 'gcc/ada/s-dsaser.ads')
| -rw-r--r-- | gcc/ada/s-dsaser.ads | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/s-dsaser.ads b/gcc/ada/s-dsaser.ads index 9d5eec4eda0..5275a79bf69 100644 --- a/gcc/ada/s-dsaser.ads +++ b/gcc/ada/s-dsaser.ads @@ -42,6 +42,15 @@ package System.DSA_Services is function Get_Active_Partition_ID (Name : Partition_Interface.Unit_Name) return RPC.Partition_ID renames Partition_Interface.Get_Active_Partition_ID; - -- Returns the partition ID of the partition in which Name resides + -- Return the partition ID of the partition in which unit Name resides + + function Get_Local_Partition_ID return RPC.Partition_ID + renames Partition_Interface.Get_Local_Partition_ID; + -- Return the Partition_ID of the current partition + + function Get_Passive_Partition_ID + (Name : Partition_Interface.Unit_Name) return RPC.Partition_ID + renames Partition_Interface.Get_Passive_Partition_ID; + -- Return the Partition_ID of the given shared passive partition end System.DSA_Services; |