diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 11:35:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 11:35:59 +0200 |
| commit | a8ea8a9d3bfb1d48233c298e492acffc2609e421 (patch) | |
| tree | 99b2cada80db2043f9c186fb2d8e6aa44b36f49b /gcc/ada | |
| parent | b16d9747ffdb247f08d2647aafcebabc517b87ee (diff) | |
| download | gcc-a8ea8a9d3bfb1d48233c298e492acffc2609e421.zip gcc-a8ea8a9d3bfb1d48233c298e492acffc2609e421.tar.gz gcc-a8ea8a9d3bfb1d48233c298e492acffc2609e421.tar.bz2 | |
Minor reformatting.
From-SVN: r145812
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/g-comlin.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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); |