diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2019-07-03 08:14:43 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-03 08:14:43 +0000 |
| commit | b5c8da6bac845e685236eeedc02f0814c05ed42f (patch) | |
| tree | a092ccbb99ba45e9d08af7fdc8a5c720eb75f418 /gcc/ada/styleg.adb | |
| parent | c4487c3be84e0b892aeb61f30435638c6d94a8ab (diff) | |
| download | gcc-b5c8da6bac845e685236eeedc02f0814c05ed42f.zip gcc-b5c8da6bac845e685236eeedc02f0814c05ed42f.tar.gz gcc-b5c8da6bac845e685236eeedc02f0814c05ed42f.tar.bz2 | |
[Ada] Minor reformatting
2019-07-03 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* bindgen.adb, inline.adb, layout.adb, sem_ch12.adb,
sem_ch13.adb, sem_ch7.adb, styleg.adb: Minor reformatting.
From-SVN: r272973
Diffstat (limited to 'gcc/ada/styleg.adb')
| -rw-r--r-- | gcc/ada/styleg.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb index fc2364b..375664b 100644 --- a/gcc/ada/styleg.adb +++ b/gcc/ada/styleg.adb @@ -618,14 +618,18 @@ package body Styleg is begin if Style_Check_Mixed_Case_Decls then case Determine_Token_Casing is - when All_Upper_Case | All_Lower_Case => + when All_Lower_Case + | All_Upper_Case + => Error_Msg_SC -- CODEFIX ("(style) bad capitalization, mixed case required"); -- The Unknown case is something like A_B_C, which is both all -- caps and mixed case. - when Mixed_Case | Unknown => + when Mixed_Case + | Unknown + => null; -- OK end case; end if; |