From 7cc9a6a92d7d1b094a3cf0e8c3149a304c2c5e6b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 2 May 2016 11:45:17 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r235724 --- gcc/ada/a-direct.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb index 500a31d4096..766415428ec 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 -- 2.30.2