]> gcc.gnu.org Git - gcc.git/commitdiff
git://gcc.gnu.org / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4e0d20c)
[multiple changes]
authorArnaud Charlet <charlet@gcc.gnu.org>
Wed, 6 May 2009 09:29:35 +0000 (11:29 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 6 May 2009 09:29:35 +0000 (11:29 +0200)
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

gcc/ada/ChangeLog patch | blob | blame | history
gcc/ada/exp_attr.adb patch | blob | blame | history
gcc/ada/g-debuti.adb patch | blob | blame | history
gcc/ada/g-dyntab.adb patch | blob | blame | history
gcc/ada/g-dyntab.ads patch | blob | blame | history
gcc/ada/g-socthi-vms.adb patch | blob | blame | history
gcc/ada/g-table.adb patch | blob | blame | history
gcc/ada/g-table.ads patch | blob | blame | history
gcc/ada/gnat_ugn.texi patch | blob | blame | history
gcc/ada/sem_aggr.adb patch | blob | blame | history

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 84f5778d45d101e68049c4bab2714a343fed7f70..d5b500565d12cf1bbacca03f5526d826e89c15a8 100644 (file)
--- 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 5772d58487e493192995cab485f8ed297137ce58..6d8351698414971fa50c98070dd4298a9d73d19a 100644 (file)
--- 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 560f79f96d88ffc88d2858c7cb87356973a837e9..20731fb0c2d539a89a71208f9f666b5d9cfc1569 100644 (file)
--- 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 216ff5b5f1e307ef1c0bc513297e205a303846b9..1ebebe4d95d8474e0d9696638bc13d86edca52d3 100644 (file)
--- 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 7768c88cd38b81aae0b1613212ca2d30fb797989..897d7008f82022ac0f957aa3971c5fa0474ff8a1 100644 (file)
--- 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 20855c040fdcc9dd9677da4c7d7339748070f766..6384598f07ab0fa20dd971158edcff57df5516d2 100644 (file)
--- 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 60f373a4257c03391d5f4ee9af6c78c7f5372de5..bcc025f42a70dee1728d39152b0c476af6566394 100644 (file)
--- 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 b0aad3d44aa8240e768388b9b1074ffb8da89705..3a344a532f34377861b86e682f67a17fc48e079c 100644 (file)
--- 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 3cf58680c6b888c27fcb6c321413b6788a7f9eb1..10ca8ff7cc07871cf174e571b0f1e355b7c3f995 100644 (file)
--- 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 8837e8c0347cad7ce389cbe40accec68b04c131d..6bd6e636f7a7926033e67ff64789a3902d4741e6 100644 (file)
--- 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);
GNU Compiler Collection
This page took 0.086808 seconds and 5 git commands to generate.