diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-10 09:01:33 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-10 09:01:33 +0000 |
commit | 7f8c1cd3675b0e30817d98e52740b918b4e970b0 (patch) | |
tree | c893e1819017c5d50981513e99833bb2cf9abc1d /gcc/ada/sem_ch4.adb | |
parent | 0b6694b4e41d394df12d159c319be4b1326745ca (diff) | |
download | gcc-7f8c1cd3675b0e30817d98e52740b918b4e970b0.zip gcc-7f8c1cd3675b0e30817d98e52740b918b4e970b0.tar.gz gcc-7f8c1cd3675b0e30817d98e52740b918b4e970b0.tar.bz2 |
[Ada] Minor reformatting
2019-07-10 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* bindo-graphs.adb, bindo.adb, debug.adb, exp_ch6.adb,
sem_ch10.adb, sem_ch13.adb, sem_ch3.adb, sem_ch4.adb,
sem_ch6.adb, sem_ch7.adb, sem_res.adb, sem_spark.adb,
sem_util.adb, warnsw.ads: Minor reformatting.
From-SVN: r273335
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
-rw-r--r-- | gcc/ada/sem_ch4.adb | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 8806cbf..2b0a8ed 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -6178,20 +6178,17 @@ package body Sem_Ch4 is and then Ekind (Entity (Name (N))) = E_Function and then Present (Homonym (Entity (Name (N)))) then - - -- A name may appear overloaded if it has a homonym, even if - -- that homonym is non-overloadable, in which case the overload - -- list is in fact empty. This specialized case deserves a - -- special message if the homonym is a child package. + -- A name may appear overloaded if it has a homonym, even if that + -- homonym is non-overloadable, in which case the overload list is + -- in fact empty. This specialized case deserves a special message + -- if the homonym is a child package. declare Nam : constant Node_Id := Name (N); H : constant Entity_Id := Homonym (Entity (Nam)); begin - if Ekind (H) = E_Package - and then Is_Child_Unit (H) - then + if Ekind (H) = E_Package and then Is_Child_Unit (H) then Error_Msg_Qual_Level := 2; Error_Msg_NE ("if an entity in package& is meant, ", Nam, H); Error_Msg_NE ("\use a fully qualified name", Nam, H); @@ -6208,9 +6205,9 @@ package body Sem_Ch4 is end if; end loop; - -- If all interpretations are procedures, this deserves a - -- more precise message. Ditto if this appears as the prefix - -- of a selected component, which may be a lexical error. + -- If all interpretations are procedures, this deserves a more + -- precise message. Ditto if this appears as the prefix of a + -- selected component, which may be a lexical error. Error_Msg_N ("\context requires function call, found procedure name", Nam); @@ -6226,8 +6223,7 @@ package body Sem_Ch4 is elsif Nkind (N) = N_Procedure_Call_Statement and then not Void_Interp_Seen then - Error_Msg_N ( - "\function name found in procedure call", Nam); + Error_Msg_N ("\function name found in procedure call", Nam); end if; All_Errors_Mode := Err_Mode; |