From a7443bd5d3f14689473213b269a2e402e3de5a6e Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 12 Sep 2007 11:59:17 +0000 Subject: * a-extiti.ads (Timer): The discriminant is a "not null access constant" in the Reference Manual. (Cancel_Handler): Cancelled is an out parameter in the Reference Manual. * a-swuwha.adb: Remove junk RM header * g-bytswa-x86.adb (Swap2, Swap4, Swap8): Remove explicit "in" mode indicator * g-bytswa.ads: Minor reformatting * g-soccon-solaris-64.ads, g-soccon-hpux-ia64.ads: Add new constant Thread_Blocking_IO, always True by default, set False on a per-runtime basis. (Need_Netdb_Buffer): New constant. * s-dsaser.ads (Get_Local_Partition_Id, Get_Passive_Partition_Id): Added renames for corresponding functions in System.Partition_Interface. * Makefile.in: Remove VMS specific System.CRTL packages which are no longer needed. * s-crtl-vms64.ads: Removed. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128430 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/s-dsaser.ads | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'gcc/ada/s-dsaser.ads') 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; -- cgit v1.2.1