diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-25 20:41:55 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-08 13:34:20 +0000 |
| commit | e959418a07c3753877aac9a3194d740c38e7058b (patch) | |
| tree | 706d04847accdb07f0f461b501ba3eb06d001cb1 /gcc | |
| parent | e581fbeab695838c3e36bf31072c1dad11d9f81b (diff) | |
| download | gcc-e959418a07c3753877aac9a3194d740c38e7058b.zip gcc-e959418a07c3753877aac9a3194d740c38e7058b.tar.gz gcc-e959418a07c3753877aac9a3194d740c38e7058b.tar.bz2 | |
[Ada] Remove redundant condition for listing compilation units
gcc/ada/
* par-ch10.adb (Unit_Display): Remove redundant condition; fix
whitespace.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/par-ch10.adb | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index 9a49d45..f02934a 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -1162,24 +1162,22 @@ package body Ch10 is Loc : Source_Ptr; SR_Present : Boolean) is - Unum : constant Unit_Number_Type := Get_Cunit_Unit_Number (Cunit); - Sind : constant Source_File_Index := Source_Index (Unum); - Unam : constant Unit_Name_Type := Unit_Name (Unum); + Unum : constant Unit_Number_Type := Get_Cunit_Unit_Number (Cunit); + Sind : constant Source_File_Index := Source_Index (Unum); + Unam : constant Unit_Name_Type := Unit_Name (Unum); begin - if List_Units then - Write_Str ("Unit "); - Write_Unit_Name (Unit_Name (Unum)); - Unit_Location (Sind, Loc); + Write_Str ("Unit "); + Write_Unit_Name (Unit_Name (Unum)); + Unit_Location (Sind, Loc); - if SR_Present then - Write_Str (", SR"); - end if; - - Write_Str (", file name "); - Write_Name (Get_File_Name (Unam, Nkind (Unit (Cunit)) = N_Subunit)); - Write_Eol; + if SR_Present then + Write_Str (", SR"); end if; + + Write_Str (", file name "); + Write_Name (Get_File_Name (Unam, Nkind (Unit (Cunit)) = N_Subunit)); + Write_Eol; end Unit_Display; ------------------- |