a-extiti.ads (Timer): The discriminant is a "not null access constant" in the Reference Manual.

	* 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.

From-SVN: r128430

7 files changed, 64 insertions, 34 deletions

diff --git a/gcc/ada/a-extiti.ads b/gcc/ada/a-extiti.ads
index f2b62ca..411371d 100644
--- a/gcc/ada/a-extiti.ads
+++ b/gcc/ada/a-extiti.ads
@@ -28,11 +28,10 @@ package Ada.Execution_Time.Timers is
 
    pragma Unimplemented_Unit;
 
-   type Timer (T : access Ada.Task_Identification.Task_Id) is
+   type Timer (T : not null access constant Ada.Task_Identification.Task_Id) is
       tagged limited private;
 
-   type Timer_Handler is
-      access protected procedure (TM : in out Timer);
+   type Timer_Handler is access protected procedure (TM : in out Timer);
 
    Min_Handler_Ceiling : constant System.Any_Priority := System.Priority'Last;
 
@@ -50,7 +49,7 @@ package Ada.Execution_Time.Timers is
 
    procedure Cancel_Handler
      (TM        : in out Timer;
-      Cancelled : in out Boolean);
+      Cancelled : out Boolean);
 
    function Time_Remaining (TM : Timer) return Ada.Real_Time.Time_Span;
 
diff --git a/gcc/ada/a-swuwha.adb b/gcc/ada/a-swuwha.adb
index e4572c2..0790faa 100644
--- a/gcc/ada/a-swuwha.adb
+++ b/gcc/ada/a-swuwha.adb
@@ -6,11 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2004-2005 Free Software Foundation, Inc.          --
---                                                                          --
--- This specification is derived from the Ada Reference Manual for use with --
--- GNAT. The copyright notice above, and the license provisions that follow --
--- apply solely to the  contents of the part following the private keyword. --
+--          Copyright (C) 2004-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
diff --git a/gcc/ada/g-bytswa-x86.adb b/gcc/ada/g-bytswa-x86.adb
index 1ec8a0f..3af9516 100644
--- a/gcc/ada/g-bytswa-x86.adb
+++ b/gcc/ada/g-bytswa-x86.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                      Copyright (C) 2006, AdaCore                         --
+--                     Copyright (C) 2006-2007, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -98,7 +98,7 @@ package body GNAT.Byte_Swapping is
       function As_U64 is new Ada.Unchecked_Conversion
          (Source => Item, Target => Unsigned_64);
 
-      X : Unsigned_64 renames As_U64 (Input);
+      X : constant Unsigned_64 := As_U64 (Input);
 
       type Two_Words is array (0 .. 1) of Unsigned_32;
       for Two_Words'Component_Size use Unsigned_32'Size;
@@ -125,7 +125,7 @@ package body GNAT.Byte_Swapping is
    -- Swap2 --
    -----------
 
-   procedure Swap2 (Location : in System.Address) is
+   procedure Swap2 (Location : System.Address) is
 
       X : Unsigned_16;
       for X'Address use Location;
@@ -140,7 +140,7 @@ package body GNAT.Byte_Swapping is
    -- Swap4 --
    -----------
 
-   procedure Swap4 (Location : in System.Address) is
+   procedure Swap4 (Location : System.Address) is
 
       X : Unsigned_32;
       for X'Address use Location;
@@ -168,7 +168,7 @@ package body GNAT.Byte_Swapping is
    -- Swap8 --
    -----------
 
-   procedure Swap8 (Location : in System.Address) is
+   procedure Swap8 (Location : System.Address) is
 
       X : Unsigned_64;
       for X'Address use Location;
diff --git a/gcc/ada/g-bytswa.ads b/gcc/ada/g-bytswa.ads
index 5c97414..a8d2d9c 100644
--- a/gcc/ada/g-bytswa.ads
+++ b/gcc/ada/g-bytswa.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                      Copyright (C) 2006, AdaCore                         --
+--                     Copyright (C) 2006-2007, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -31,14 +31,14 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  Simple routines for swapping the bytes of 16-, 32-, and 64-bit objects.
+--  Simple routines for swapping the bytes of 16-, 32-, and 64-bit objects
 
---  The generic functions should be instantiated with types that
---  are of a size in bytes corresponding to the name of the generic. For
---  example, a 2-byte integer type would be compatible with Swapped2, 4-byte
---  integer with Swapped4, and so on. Failure to do so will result in a
---  warning when compiling the instantiation; this warning should be heeded.
---  Ignoring this warning can result in unexpected results.
+--  The generic functions should be instantiated with types that are of a size
+--  in bytes corresponding to the name of the generic. For example, a 2-byte
+--  integer type would be compatible with Swapped2, 4-byte integer with
+--  Swapped4, and so on. Failure to do so will result in a warning when
+--  compiling the instantiation; this warning should be heeded. Ignoring this
+--  warning can result in unexpected results.
 
 --  An example of proper usage follows:
 
@@ -85,12 +85,12 @@
 --        ...
 --     end;
 
---  A properly-sized record type will also be acceptable, and so forth.
+--  A properly-sized record type will also be acceptable, and so forth
 
---  However, as described, a size mismatch must be avoided. In the following
---  we instantiate one of the generics with a type that is too large. The
---  result of the function call is undefined, such that assignment to an
---  object can result in garbage values.
+--  However, as described, a size mismatch must be avoided. In the following we
+--  instantiate one of the generics with a type that is too large. The result
+--  of the function call is undefined, such that assignment to an object can
+--  result in garbage values.
 
 --     Wrong: declare
 --        subtype String16 is String (1 .. 16);
@@ -114,8 +114,8 @@
 --        Put_Line (S);
 --     end Wrong;
 
---  When the size of the type is larger than 8 bytes, the use of the
---  non-generic procedures is an alternative because no function result is
+--  When the size of the type is larger than 8 bytes, the use of the non-
+--  generic procedures is an alternative because no function result is
 --  involved; manipulation of the object is direct.
 
 --  The procedures are passed the address of an object to manipulate. They will
@@ -141,8 +141,8 @@
 --        Put_Line (S8);
 --     end;
 
---  If an object of a type larger than N is passed, the remaining
---  bytes of the object are undisturbed.  For example:
+--  If an object of a type larger than N is passed, the remaining bytes of the
+--  object are undisturbed. For example:
 
 --     declare
 --        subtype String16 is String (1 .. 16);
diff --git a/gcc/ada/g-soccon-hpux-ia64.ads b/gcc/ada/g-soccon-hpux-ia64.ads
index ea7a63d..04cfc15a 100644
--- a/gcc/ada/g-soccon-hpux-ia64.ads
+++ b/gcc/ada/g-soccon-hpux-ia64.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2000-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 2000-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -178,4 +178,17 @@ package GNAT.Sockets.Constants is
    SIZEOF_tv_sec      : constant :=           8; --  tv_sec
    SIZEOF_tv_usec     : constant :=           8; --  tv_usec
 
+   ----------------------------------------
+   -- Properties of supported interfaces --
+   ----------------------------------------
+
+   Need_Netdb_Buffer  : constant :=           0; --  Need buffer for Netdb ops
+
+   ----------------------
+   -- Additional flags --
+   ----------------------
+
+   Thread_Blocking_IO : constant Boolean := True;
+   --  Set False for contexts where socket i/o are process blocking
+
 end GNAT.Sockets.Constants;
diff --git a/gcc/ada/g-soccon-solaris-64.ads b/gcc/ada/g-soccon-solaris-64.ads
index be1fc4f..46300e0 100644
--- a/gcc/ada/g-soccon-solaris-64.ads
+++ b/gcc/ada/g-soccon-solaris-64.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2000-2005, Free Software Foundation, Inc.         --
+--          Copyright (C) 2000-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -178,4 +178,17 @@ package GNAT.Sockets.Constants is
    SIZEOF_tv_sec      : constant :=           8; --  tv_sec
    SIZEOF_tv_usec     : constant :=           8; --  tv_usec
 
+   ----------------------------------------
+   -- Properties of supported interfaces --
+   ----------------------------------------
+
+   Need_Netdb_Buffer  : constant :=           1; --  Need buffer for Netdb ops
+
+   ----------------------
+   -- Additional flags --
+   ----------------------
+
+   Thread_Blocking_IO : constant Boolean := True;
+   --  Set False for contexts where socket i/o are process blocking
+
 end GNAT.Sockets.Constants;
diff --git a/gcc/ada/s-dsaser.ads b/gcc/ada/s-dsaser.ads
index 9d5eec4..5275a79 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;