diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:45:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 11:45:17 +0200 |
| commit | 7cc9a6a92d7d1b094a3cf0e8c3149a304c2c5e6b (patch) | |
| tree | 083b96ff53887ed6a5edb376bfe48da494108d49 /gcc | |
| parent | c4405dfe1ddddff2f5635e3d220c5c59a4c61a92 (diff) | |
| download | gcc-7cc9a6a92d7d1b094a3cf0e8c3149a304c2c5e6b.zip gcc-7cc9a6a92d7d1b094a3cf0e8c3149a304c2c5e6b.tar.gz gcc-7cc9a6a92d7d1b094a3cf0e8c3149a304c2c5e6b.tar.bz2 | |
Minor reformatting.
From-SVN: r235724
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-direct.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb index 500a31d..7664154 100644 --- a/gcc/ada/a-direct.adb +++ b/gcc/ada/a-direct.adb @@ -623,8 +623,9 @@ package body Ada.Directories is Get_Next_Entry (Search, Dir_Ent); declare + Fname : constant String := Full_Name (Dir_Ent); Sname : constant String := Simple_Name (Dir_Ent); - Fname : constant String := Full_Name (Dir_Ent); + begin if OS_Lib.Is_Directory (Fname) then if Sname /= "." and then Sname /= ".." then |