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 /gcc/ada/sem_aux.adb | |
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
Diffstat (limited to 'gcc/ada/sem_aux.adb')
-rwxr-xr-x | gcc/ada/sem_aux.adb | 7 |
1 files changed, 3 insertions, 4 deletions
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; |