From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 2 May 2016 09:45:17 +0000 (+0200)
Subject: Minor reformatting.
X-Git-Tag: basepoints/gcc-8~7227
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=7cc9a6a92d7d1b094a3cf0e8c3149a304c2c5e6b;p=thirdparty%2Fgcc.git

Minor reformatting.

From-SVN: r235724
---

diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb
index 500a31d40962..766415428ecb 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