From: Arnaud Charlet Date: Thu, 9 Apr 2009 09:35:59 +0000 (+0200) Subject: Minor reformatting. X-Git-Tag: releases/gcc-4.5.0~6758 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a8ea8a9d3bfb1d48233c298e492acffc2609e421;p=thirdparty%2Fgcc.git Minor reformatting. From-SVN: r145812 --- diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index ba8ed162abeb..fe550a7f49f3 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);