Minor reformatting.

From-SVN: r235724

Minor reformatting.
From-SVN: r235724
7cc9a6a9 · Arnaud Charlet · c4405dfe · 7cc9a6a9
Commit 7cc9a6a9 authored May 02, 2016 by Arnaud Charlet
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletions

gcc/ada/a-direct.adb
+2 -1

No files found.
--- 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