g-dirope.adb (Basename): correctly compute offset between the original Path and the...

	* g-dirope.adb (Basename): correctly compute offset between the
        original Path and the translated one.

	* g-dirope.adb: (Base_Name): add some comments.

From-SVN: r46502

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c1211ea..0790bbd 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,10 @@
+2001-10-25  Pascal Obry <obry@gnat.com>
+
+       * g-dirope.adb (Basename): correctly compute offset between the 
+        original Path and the translated one.
+       
+       * g-dirope.adb: (Base_Name): add some comments.
+
 2001-10-25  Robert Dewar <dewar@gnat.com>
 
        * exp_imgv.adb (Expand_Image_Attribute): Defend against bad use 

diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb
index d73d9a0..afa996c 100644 (file)
--- a/gcc/ada/g-dirope.adb
+++ b/gcc/ada/g-dirope.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision: 1.15 $
+--                            $Revision$
 --                                                                          --
 --            Copyright (C) 1998-2001 Ada Core Technologies, Inc.           --
 --                                                                          --
@@ -122,7 +122,10 @@ package body GNAT.Directory_Operations is
          end if;
 
          Check_For_Standard_Dirs : declare
-            BN : constant String := Base_Name.Path (Cut_Start .. Cut_End);
+            Offset : constant Integer := Path'First - Base_Name.Path'First;
+            BN     : constant String  :=
+                       Base_Name.Path (Cut_Start - Offset .. Cut_End - Offset);
+            --  Here we use Base_Name.Path to keep the original casing
 
          begin
             if BN = "." or else BN = ".." then