diff options
author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-05-22 13:18:45 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-22 13:18:45 +0000 |
commit | e5fc017905d64f59f189bf9453978fa158a289e6 (patch) | |
tree | 44e8266a22d377a573a5832275bbfaa3c1090da2 /gcc/ada/sem_res.adb | |
parent | eaf51442d2d20864713492eb0355a9ec4abe0573 (diff) | |
download | gcc-e5fc017905d64f59f189bf9453978fa158a289e6.zip gcc-e5fc017905d64f59f189bf9453978fa158a289e6.tar.gz gcc-e5fc017905d64f59f189bf9453978fa158a289e6.tar.bz2 |
[Ada] Minor reformattings
2018-05-22 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_ch5.adb, freeze.adb, pprint.adb, sem_ch4.adb, sem_res.adb: Minor
reformattings.
From-SVN: r260508
Diffstat (limited to 'gcc/ada/sem_res.adb')
-rw-r--r-- | gcc/ada/sem_res.adb | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index d31aca2..41de3fe 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -13011,18 +13011,15 @@ package body Sem_Res is -- Here we have a real conversion error else + -- Check for missing regular with_clause when only a limited view of + -- target is available. - -- Check for missing regular with_clause when only a limited view - -- of target is available. - - if From_Limited_With (Opnd_Type) - and then In_Package_Body - then + if From_Limited_With (Opnd_Type) and then In_Package_Body then Conversion_Error_NE ("invalid conversion, not compatible with limited view of }", - N, Opnd_Type); - Conversion_Error_NE ("\add with_clause for& to current unit!", N, - Scope (Opnd_Type)); + N, Opnd_Type); + Conversion_Error_NE + ("\add with_clause for& to current unit!", N, Scope (Opnd_Type)); elsif Is_Access_Type (Opnd_Type) and then From_Limited_With (Designated_Type (Opnd_Type)) @@ -13030,8 +13027,9 @@ package body Sem_Res is then Conversion_Error_NE ("invalid conversion, not compatible with }", N, Opnd_Type); - Conversion_Error_NE ("\add with_clause for& to current unit!", N, - Scope (Designated_Type (Opnd_Type))); + Conversion_Error_NE + ("\add with_clause for& to current unit!", + N, Scope (Designated_Type (Opnd_Type))); else Conversion_Error_NE |