diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-05 11:39:05 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-05 11:39:05 +0200 |
| commit | 45a9255f9e5fb2fc7c64f5d6d9c3c8829cb3b5f8 (patch) | |
| tree | c79319209efe53f73effcb36e2ecdb80c5ef613c /gcc | |
| parent | a96ced8e6f0eb5bfc3c1144096c3c2adeaf87731 (diff) | |
| download | gcc-45a9255f9e5fb2fc7c64f5d6d9c3c8829cb3b5f8.zip gcc-45a9255f9e5fb2fc7c64f5d6d9c3c8829cb3b5f8.tar.gz gcc-45a9255f9e5fb2fc7c64f5d6d9c3c8829cb3b5f8.tar.bz2 | |
sem_ch3.adb: Minor reformatting
2008-08-05 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb: Minor reformatting
From-SVN: r138695
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index cf31e49..3720b3b 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -2550,10 +2550,9 @@ package body Sem_Ch3 is Set_Etype (Id, T); Resolve (E, T); - -- If E is "null", and has been replaced by an - -- N_Raise_Constraint_Error node (which was marked already-analyzed), - -- we need to set the type to something other than Any_Access in - -- order to keep gigi happy. + -- If E is null and has been replaced by an N_Raise_Constraint_Error + -- node (which was marked already-analyzed), we need to set the type + -- to something other than Any_Access in order to keep gigi happy. if Etype (E) = Any_Access then Set_Etype (E, T); |