diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-22 12:25:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 14:25:00 +0200 |
| commit | 9e64a2c19dd0e4020f5e2c7f735f29b7fb187fef (patch) | |
| tree | 21e00b18f308c3927a8b2cda1fa46ca79dc242b8 | |
| parent | 0d6a035dc026bb1594eb87c8af736cc0254eac8e (diff) | |
| download | gcc-9e64a2c19dd0e4020f5e2c7f735f29b7fb187fef.zip gcc-9e64a2c19dd0e4020f5e2c7f735f29b7fb187fef.tar.gz gcc-9e64a2c19dd0e4020f5e2c7f735f29b7fb187fef.tar.bz2 | |
sem_res.adb, [...]: Minor reformatting.
2010-06-22 Robert Dewar <dewar@adacore.com>
* sem_res.adb, sem_aux.adb, errout.adb: Minor reformatting.
From-SVN: r161169
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/errout.adb | 2 | ||||
| -rwxr-xr-x | gcc/ada/sem_aux.adb | 7 | ||||
| -rw-r--r-- | gcc/ada/sem_res.adb | 5 |
4 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 93e002b..0dcdf46 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2010-06-22 Robert Dewar <dewar@adacore.com> + + * sem_res.adb, sem_aux.adb, errout.adb: Minor reformatting. + 2010-06-22 Ed Schonberg <schonberg@adacore.com> * sem_res.adb: Additional special-case for VMS. diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index d71ebad..20253a5 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -2567,8 +2567,8 @@ package body Errout is Is_Unconditional_Msg := False; Msglen := 0; Flag_Source := Get_Source_File_Index (Flag); - P := Text'First; + P := Text'First; while P <= Text'Last loop C := Text (P); P := P + 1; diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index c1b3a33..ae08797 100755 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.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- -- @@ -312,8 +312,8 @@ package body Sem_Aux is Ent : Entity_Id; begin - -- If the base type has no freeze node, it is a type in Standard, - -- and always acts as its own first subtype unless it is one of the + -- If the base type has no freeze node, it is a type in Standard, and + -- always acts as its own first subtype, except where it is one of the -- predefined integer types. If the type is formal, it is also a first -- subtype, and its base type has no freeze node. On the other hand, a -- subtype of a generic formal is not its own first subtype. Its base @@ -321,7 +321,6 @@ package body Sem_Aux is -- the first subtype is obtained. if No (F) then - if B = Base_Type (Standard_Integer) then return Standard_Integer; diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index e0c4756..f4452c38 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -1452,9 +1452,8 @@ package body Sem_Res is null; else - -- Note: we go to First_Subtype here to ensure the message - -- has the proper source type name (Typ may be an anonymous - -- base type). + -- Note: go to First_Subtype here to ensure the message has the + -- proper source type name (Typ may be an anonymous base type). -- Could we use Wrong_Type here??? (this would require setting -- Etype (N) to the actual type found where Typ was expected). |