diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-09 09:35:59 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-09 09:35:59 +0000 |
commit | 3fb76b03df9c44485333bb01541f0ef94e7e2520 (patch) | |
tree | 99b2cada80db2043f9c186fb2d8e6aa44b36f49b | |
parent | f301a57be311b6929347c09364cdc2ac05759729 (diff) | |
download | gcc-3fb76b03df9c44485333bb01541f0ef94e7e2520.tar.gz |
Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145812 138bc75d-0d04-0410-961f-82ee72b054a4
-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 ba8ed162abe..fe550a7f49f 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); |