diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 11:39:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-22 11:39:24 +0200 |
| commit | 3f2ad11d1898de8bb3c31157bfed76ca9e411f31 (patch) | |
| tree | d6bda84ca09a1e69761e6db02a899077673de81f | |
| parent | 125778158bac64ccea58a2156c743fa607545429 (diff) | |
| download | gcc-3f2ad11d1898de8bb3c31157bfed76ca9e411f31.zip gcc-3f2ad11d1898de8bb3c31157bfed76ca9e411f31.tar.gz gcc-3f2ad11d1898de8bb3c31157bfed76ca9e411f31.tar.bz2 | |
Remove unused variable.
From-SVN: r161154
| -rw-r--r-- | gcc/ada/gnatbind.adb | 34 |
1 files changed, 15 insertions, 19 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index c09f795..cb234d2 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -753,27 +753,23 @@ begin -- Output list of ALI files in closure if Output_ALI_List then - declare - FD : File_Descriptor; - begin - if ALI_List_Filename /= null then - Set_List_File (ALI_List_Filename.all); - 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 - declare - Full_Afile : constant File_Name_Type := - Find_File (ALIs.Table (Index).Afile, Library); - begin - Write_Name (Full_Afile); - Write_Eol; - end; - end loop; + for Index in ALIs.First .. ALIs.Last loop + declare + Full_Afile : constant File_Name_Type := + Find_File (ALIs.Table (Index).Afile, Library); + begin + Write_Name (Full_Afile); + Write_Eol; + end; + end loop; - if ALI_List_Filename /= null then - Close_List_File; - end if; - end; + if ALI_List_Filename /= null then + Close_List_File; + end if; end if; -- Build source file table from the ALI files we have read in |