diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-05 11:42:12 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-05 11:42:12 +0200 |
| commit | a8ef12e56bd1e729917e63ad98c68072d7605f81 (patch) | |
| tree | 4e57fa2567bf2f6057c16ef8f3c27eb8f5379c98 | |
| parent | 79d34420f69ba14ae2250503f3287552e77a0773 (diff) | |
| download | gcc-a8ef12e56bd1e729917e63ad98c68072d7605f81.zip gcc-a8ef12e56bd1e729917e63ad98c68072d7605f81.tar.gz gcc-a8ef12e56bd1e729917e63ad98c68072d7605f81.tar.bz2 | |
[multiple changes]
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.
From-SVN: r164974
| -rw-r--r-- | gcc/ada/ChangeLog | 12 | ||||
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/lib-writ.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 6 |
4 files changed, 19 insertions, 13 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4e31803..005168f 100644 --- 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 --- 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 --- 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 --- 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. |