projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c4405df)
Minor reformatting.
authorArnaud Charlet <charlet@gcc.gnu.org>
Mon, 2 May 2016 09:45:17 +0000 (11:45 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Mon, 2 May 2016 09:45:17 +0000 (11:45 +0200)
From-SVN: r235724

gcc/ada/a-direct.adb patch | blob | history

diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb
index 500a31d409626b80491842d3e86f8d70b8d2ae1b..766415428ecbb8529f36f690e0c5f745b2f5b865 100644 (file)
--- 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