[multiple changes]

2009-05-06  Gary Dismukes  <dismukes@adacore.com>

	* gnat_ugn.texi: Fix typo.

2009-05-06  Thomas Quinot  <quinot@adacore.com>

	* g-debuti.adb: Minor reformatting

	* exp_attr.adb: Minor reformatting

2009-05-06  Robert Dewar  <dewar@adacore.com>

	* sem_aggr.adb: Minor reformatting.

	* g-socthi-vms.adb: Minor reformatting

2009-05-06  Bob Duff  <duff@adacore.com>

	* g-table.ads, g-table.adb, g-dyntab.ads, g-dyntab.adb:
	(Append_All): Add Append_All to g-table and g-dyntab, similar to table.

From-SVN: r147162

10 files changed, 64 insertions, 12 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 84f5778..d5b5005 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,24 @@
+2009-05-06  Gary Dismukes  <dismukes@adacore.com>
+
+	* gnat_ugn.texi: Fix typo.
+
+2009-05-06  Thomas Quinot  <quinot@adacore.com>
+
+	* g-debuti.adb: Minor reformatting
+
+	* exp_attr.adb: Minor reformatting
+
+2009-05-06  Robert Dewar  <dewar@adacore.com>
+
+	* sem_aggr.adb: Minor reformatting.
+
+	* g-socthi-vms.adb: Minor reformatting
+
+2009-05-06  Bob Duff  <duff@adacore.com>
+
+	* g-table.ads, g-table.adb, g-dyntab.ads, g-dyntab.adb:
+	(Append_All): Add Append_All to g-table and g-dyntab, similar to table.
+
 2009-05-06  Bob Duff  <duff@adacore.com>
 
 	* gnat_ugn.texi, gnat_rm.texi: Add missing documentation for warnings
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 5772d58..6d83516 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -1218,7 +1218,7 @@ package body Exp_Attr is
       --  A reference to P'Body_Version or P'Version is expanded to
 
       --     Vnn : Unsigned;
-      --     pragma Import (C, Vnn, "uuuuT";
+      --     pragma Import (C, Vnn, "uuuuT");
       --     ...
       --     Get_Version_String (Vnn)
 
diff --git a/gcc/ada/g-debuti.adb b/gcc/ada/g-debuti.adb
index 560f79f..20731fb 100644
--- a/gcc/ada/g-debuti.adb
+++ b/gcc/ada/g-debuti.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1997-2005, AdaCore                     --
+--                     Copyright (C) 1997-2009, 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- --
@@ -36,8 +36,8 @@ with System.Storage_Elements; use System.Storage_Elements;
 
 package body GNAT.Debug_Utilities is
 
-      H : constant array (0 .. 15) of Character := "0123456789ABCDEF";
-      --  Table of hex digits
+   H : constant array (0 .. 15) of Character := "0123456789ABCDEF";
+   --  Table of hex digits
 
    -----------
    -- Image --
diff --git a/gcc/ada/g-dyntab.adb b/gcc/ada/g-dyntab.adb
index 216ff5b..1ebebe4 100644
--- a/gcc/ada/g-dyntab.adb
+++ b/gcc/ada/g-dyntab.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 2000-2008, AdaCore                     --
+--                     Copyright (C) 2000-2009, 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- --
@@ -85,6 +85,17 @@ package body GNAT.Dynamic_Tables is
       Set_Item (T, Table_Index_Type (T.P.Last_Val + 1), New_Val);
    end Append;
 
+   ----------------
+   -- Append_All --
+   ----------------
+
+   procedure Append_All (T : in out Instance; New_Vals : Table_Type) is
+   begin
+      for J in New_Vals'Range loop
+         Append (T, New_Vals (J));
+      end loop;
+   end Append_All;
+
    --------------------
    -- Decrement_Last --
    --------------------
diff --git a/gcc/ada/g-dyntab.ads b/gcc/ada/g-dyntab.ads
index 7768c88..897d700 100644
--- a/gcc/ada/g-dyntab.ads
+++ b/gcc/ada/g-dyntab.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 2000-2008, AdaCore                     --
+--                     Copyright (C) 2000-2009, 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- --
@@ -169,6 +169,9 @@ package GNAT.Dynamic_Tables is
    --  i.e. the table size is increased by one, and the given new item
    --  stored in the newly created table element.
 
+   procedure Append_All (T : in out Instance; New_Vals : Table_Type);
+   --  Appends all components of New_Vals
+
    procedure Set_Item
      (T     : in out Instance;
       Index : Table_Index_Type;
diff --git a/gcc/ada/g-socthi-vms.adb b/gcc/ada/g-socthi-vms.adb
index 20855c0..6384598f 100644
--- a/gcc/ada/g-socthi-vms.adb
+++ b/gcc/ada/g-socthi-vms.adb
@@ -51,7 +51,7 @@ package body GNAT.Sockets.Thin is
    --  when a thread wants to perform a blocking IO operation. But the user can
    --  also set a socket in non-blocking mode by purpose. In order to make a
    --  difference between these two situations, we track the origin of
-   --  non-blocking mode in Non_Blocking_Sockets. If S is in
+   --  non-blocking mode in Non_Blocking_Sockets. Note that if S is in
    --  Non_Blocking_Sockets, it has been set in non-blocking mode by the user.
 
    Quantum : constant Duration := 0.2;
@@ -215,7 +215,6 @@ package body GNAT.Sockets.Thin is
 
       if Res = Failure and then Errno = SOSC.EISCONN then
          return Thin_Common.Success;
-
       else
          return Res;
       end if;
@@ -310,6 +309,7 @@ package body GNAT.Sockets.Thin is
       pragma Import (Ada, GNAT_Msg);
 
       VMS_Msg : aliased VMS_Msghdr := VMS_Msghdr (GNAT_Msg);
+
    begin
       loop
          Res := Syscall_Recvmsg (S, VMS_Msg'Address, Flags);
@@ -319,6 +319,7 @@ package body GNAT.Sockets.Thin is
            or else Errno /= SOSC.EWOULDBLOCK;
          delay Quantum;
       end loop;
+
       GNAT_Msg := Msghdr (VMS_Msg);
 
       return ssize_t (Res);
@@ -350,6 +351,7 @@ package body GNAT.Sockets.Thin is
            or else Errno /= SOSC.EWOULDBLOCK;
          delay Quantum;
       end loop;
+
       GNAT_Msg := Msghdr (VMS_Msg);
 
       return ssize_t (Res);
diff --git a/gcc/ada/g-table.adb b/gcc/ada/g-table.adb
index 60f373a..bcc025f 100644
--- a/gcc/ada/g-table.adb
+++ b/gcc/ada/g-table.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                     Copyright (C) 1998-2008, AdaCore                     --
+--                     Copyright (C) 1998-2009, 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- --
@@ -96,6 +96,17 @@ package body GNAT.Table is
       Set_Item (Table_Index_Type (Last_Val + 1), New_Val);
    end Append;
 
+   ----------------
+   -- Append_All --
+   ----------------
+
+   procedure Append_All (New_Vals : Table_Type) is
+   begin
+      for J in New_Vals'Range loop
+         Append (New_Vals (J));
+      end loop;
+   end Append_All;
+
    --------------------
    -- Decrement_Last --
    --------------------
diff --git a/gcc/ada/g-table.ads b/gcc/ada/g-table.ads
index b0aad3d..3a344a5 100644
--- a/gcc/ada/g-table.ads
+++ b/gcc/ada/g-table.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1998-2008, AdaCore                     --
+--                     Copyright (C) 1998-2009, 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- --
@@ -184,6 +184,9 @@ package GNAT.Table is
    --  i.e. the table size is increased by one, and the given new item
    --  stored in the newly created table element.
 
+   procedure Append_All (New_Vals : Table_Type);
+   --  Appends all components of New_Vals
+
    procedure Set_Item
      (Index : Table_Index_Type;
       Item  : Table_Component_Type);
diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi
index 3cf5868..10ca8ff 100644
--- a/gcc/ada/gnat_ugn.texi
+++ b/gcc/ada/gnat_ugn.texi
@@ -3345,7 +3345,7 @@ In this case the components DT inherited from the C++ side must be
 initialized by a C++ constructor, and the additional Ada components
 of type DT are initialized by GNAT. The initialization of such an
 object is done either by default, or by means of a function returning
-an aggregate of type DT, or by means of an extended aggregate.
+an aggregate of type DT, or by means of an extension aggregate.
 
 @smallexample @c ada
   Obj5 : DT;
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 8837e8c..6bd6e63 100644
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -3083,6 +3083,7 @@ package body Sem_Aggr is
                else
                   Root_Typ := Base_Type (Etype (Ancestor_Part (N)));
                end if;
+
             else
                Root_Typ := Root_Type (Typ);
 
@@ -3461,7 +3462,7 @@ package body Sem_Aggr is
                                    (Inner_Comp, New_Aggr,
                                      Component_Associations (Aggr));
 
-                                 --  Collect disciminant values, and recurse.
+                                 --  Collect disciminant values and recurse
 
                                  Add_Discriminant_Values
                                    (New_Aggr, Assoc_List);