2010-10-05 Ed Schonberg <schonberg@adacore.com>

	* exp_ch4.adb: Fix typo.

2010-10-05  Thomas Quinot  <quinot@adacore.com>

	* lib-writ.adb: Minor reformatting.

2010-10-05  Javier Miranda  <miranda@adacore.com>

	* sem_ch3.adb (Access_Definition): Remove useless code.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164974 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4e31803..005168f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,15 @@
+2010-10-05  Ed Schonberg  <schonberg@adacore.com>
+
+       * exp_ch4.adb: Fix typo.
+
+2010-10-05  Thomas Quinot  <quinot@adacore.com>
+
+       * lib-writ.adb: Minor reformatting.
+
+2010-10-05  Javier Miranda  <miranda@adacore.com>
+
+       * sem_ch3.adb (Access_Definition): Remove useless code.
+
 2010-10-05  Emmanuel Briot  <briot@adacore.com>
 
        * prj-env.adb, prj-env.ads (Set_Path): New subprogram.

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index ec5bb32..48a96d8 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -356,7 +356,7 @@ package body Exp_Ch4 is
                  Prefix         => Arg2,
                  Attribute_Name => Name_Address),
                Make_Attribute_Reference (Loc,
-                 Prefix         => Op1,
+                 Prefix         => Arg1,
                  Attribute_Name => Name_Length)));
       end if;
 

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index 24cce92..8912dfa 100644 (file)
--- a/gcc/ada/lib-writ.adb
+++ b/gcc/ada/lib-writ.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2010, 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- --
@@ -859,8 +859,8 @@ package body Lib.Writ is
          return;
       end if;
 
-      --  Build sorted source dependency table. We do this right away,
-      --  because it is referenced by Up_To_Date_ALI_File_Exists.
+      --  Build sorted source dependency table. We do this right away, because
+      --  it is referenced by Up_To_Date_ALI_File_Exists.
 
       for Unum in Units.First .. Last_Unit loop
          if Cunit_Entity (Unum) = Empty
@@ -875,9 +875,9 @@ package body Lib.Writ is
 
       Lib.Sort (Sdep_Table (1 .. Num_Sdep));
 
-      --  If we are not generating code, and there is an up to date
-      --  ali file accessible, read it, and acquire the compilation
-      --  arguments from this file.
+      --  If we are not generating code, and there is an up to date ALI file
+      --  file accessible, read it, and acquire the compilation arguments from
+      --  this file.
 
       if Operating_Mode /= Generate_Code then
          if Up_To_Date_ALI_File_Exists then

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 4562bfe..a48ce30 100644 (file)
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -829,12 +829,6 @@ package body Sem_Ch3 is
          Layout_Type (Anon_Type);
       end if;
 
-      --  ???The following makes no sense, because Anon_Type is an access type
-      --  and therefore cannot have components, private or otherwise. Hence
-      --  the assertion. Not sure what was meant, here.
-      Set_Depends_On_Private (Anon_Type, Has_Private_Component (Anon_Type));
-      pragma Assert (not Depends_On_Private (Anon_Type));
-
       --  Ada 2005 (AI-231): Ada 2005 semantics for anonymous access differs
       --  from Ada 95 semantics. In Ada 2005, anonymous access must specify if
       --  the null value is allowed. In Ada 95 the null value is never allowed.