diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2017-09-06 10:21:28 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-06 12:21:28 +0200 |
| commit | c99ab5f9320ddbdb2501ed766ea9c3891b620c8f (patch) | |
| tree | 5c8dcdcf1d856d0dc834547d77fdb830c6a62d08 /gcc/ada/sem_warn.adb | |
| parent | 3c0ae05d9edbf9f3c28e6458c41ec32a77337e38 (diff) | |
| download | gcc-c99ab5f9320ddbdb2501ed766ea9c3891b620c8f.zip gcc-c99ab5f9320ddbdb2501ed766ea9c3891b620c8f.tar.gz gcc-c99ab5f9320ddbdb2501ed766ea9c3891b620c8f.tar.bz2 | |
exp_attr.adb, [...]: Minor reformatting.
2017-09-06 Hristian Kirtchev <kirtchev@adacore.com>
* exp_attr.adb, sem_util.adb, sem_attr.adb, sem_ch6.adb, sem_ch8.adb,
sem_warn.adb: Minor reformatting.
From-SVN: r251772
Diffstat (limited to 'gcc/ada/sem_warn.adb')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 962e919..76e1f1b 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -3608,13 +3608,13 @@ package body Sem_Warn is -- Local variables - Act1 : Node_Id; - Act2 : Node_Id; - Form1 : Entity_Id; - Form2 : Entity_Id; - Warn_Only : Boolean; - -- GNAT warns on overlapping in-out parameters even when there - -- sre no two in-out parameters of an elementary type, as stated in + Act1 : Node_Id; + Act2 : Node_Id; + Form1 : Entity_Id; + Form2 : Entity_Id; + Warn_Only : Boolean; + -- GNAT warns on overlapping in-out parameters even when there are no + -- two in-out parameters of an elementary type, as stated in -- RM 6.5.1 (17/2). -- Start of processing for Warn_On_Overlapping_Actuals @@ -3625,8 +3625,8 @@ package body Sem_Warn is return; end if; - -- The call is illegal only if there are at least two in-out - -- parameters of the same elementary type. + -- The call is illegal only if there are at least two in-out parameters + -- of the same elementary type. Warn_Only := True; Form1 := First_Formal (Subp); @@ -3727,11 +3727,10 @@ package body Sem_Warn is or else not Is_Elementary_Type (Etype (Form1)) - -- debug flag -gnatd.E changes the error to a - -- warning even in Ada 2012 mode. + -- debug flag -gnatd.E changes the error to a warning + -- even in Ada 2012 mode. or else Error_To_Warning - or else Warn_Only; declare |