From a8ea8a9d3bfb1d48233c298e492acffc2609e421 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 9 Apr 2009 11:35:59 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r145812 --- gcc/ada/g-comlin.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index ba8ed16..fe550a7 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -265,7 +265,8 @@ package body GNAT.Command_Line is end if; end if; - -- Check the relative path against the pattern. + -- Check the relative path against the pattern + -- Note that we try to match also against directory names, since -- clients of this function may expect to retrieve directories. @@ -273,6 +274,7 @@ package body GNAT.Command_Line is Name : String := It.Dir_Name (It.Start .. It.Levels (Current).Name_Last) & S (1 .. Last); + begin Canonical_Case_File_Name (Name); -- 2.7.4