Skip to content

R
riscv-gcc-1
Commit 3f2ad11d by Arnaud Charlet
Options

Remove unused variable. 

From-SVN: r161154
parent 12577815
Showing with 15 additions and 19 deletions
gcc/ada/gnatbind.adb
...@@ -753,27 +753,23 @@ begin ...@@ -753,27 +753,23 @@ begin
-- Output list of ALI files in closure -- Output list of ALI files in closure
if Output_ALI_List then if Output_ALI_List then
declare if ALI_List_Filename /= null then
FD : File_Descriptor; Set_List_File (ALI_List_Filename.all);
begin end if;
if ALI_List_Filename /= null then
Set_List_File (ALI_List_Filename.all);
end if;
for Index in ALIs.First .. ALIs.Last loop for Index in ALIs.First .. ALIs.Last loop
declare declare
Full_Afile : constant File_Name_Type := Full_Afile : constant File_Name_Type :=
Find_File (ALIs.Table (Index).Afile, Library); Find_File (ALIs.Table (Index).Afile, Library);
begin begin
Write_Name (Full_Afile); Write_Name (Full_Afile);
Write_Eol; Write_Eol;
end; end;
end loop; end loop;
if ALI_List_Filename /= null then if ALI_List_Filename /= null then
Close_List_File; Close_List_File;
end if; end if;
end;
end if; end if;
-- Build source file table from the ALI files we have read in -- Build source file table from the ALI files we have read in
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment