diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-12 11:59:17 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-09-12 11:59:17 +0000 |
| commit | a7443bd5d3f14689473213b269a2e402e3de5a6e (patch) | |
| tree | e7db31d50f4d59f06dae04e8d2af2e5babe721cc /gcc/ada/s-dsaser.ads | |
| parent | cd277670e8d2c9987f3d783304432915fff243ee (diff) | |
| download | gcc-a7443bd5d3f14689473213b269a2e402e3de5a6e.tar.gz | |
* 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
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; |