mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-03 00:34:21 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

[Ada] Remove redundant condition for listing compilation units

Browse Source 
gcc/ada/

	* par-ch10.adb (Unit_Display): Remove redundant condition; fix
	whitespace.
This commit is contained in:
Piotr Trojanek 2021-05-25 20:41:55 +02:00 committed by Pierre-Marie de Rodat
parent e581fbeab6
commit e959418a07
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gcc/ada/par-ch10.adb
View File

@ -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;
-------------------