diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-06-22 12:25:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@adacore.com> | 2010-06-22 12:25:00 +0000 |
| commit | 0c54bdaaa99e604ee9623b5e6a52ae259139cde2 (patch) | |
| tree | 21e00b18f308c3927a8b2cda1fa46ca79dc242b8 | |
| parent | 6d1b16fc547f8db16469c49e482de768cba2427b (diff) | |
2010-06-22 Robert Dewar <dewar@adacore.com>
* sem_res.adb, sem_aux.adb, errout.adb: Minor reformatting.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@161169 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 93e002bcf30..0dcdf463a7d 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 d71ebaddfd0..20253a5b7df 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 c1b3a331892..ae087977405 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 e0c475604b0..f4452c386fd 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). |