summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-09 09:35:59 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-04-09 09:35:59 +0000
commit3fb76b03df9c44485333bb01541f0ef94e7e2520 (patch)
tree99b2cada80db2043f9c186fb2d8e6aa44b36f49b
parentf301a57be311b6929347c09364cdc2ac05759729 (diff)
downloadgcc-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.adb4
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);