2009-11-30 Vincent Celier <celier@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / osint.adb

diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb
index 1fcff59..fd42107 100644 (file)
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -893,13 +893,13 @@ package body Osint is
 
             Add_Suffix := True;
             if Only_If_No_Suffix then
-               for J in reverse 1 .. Name_Len loop
-                  if Name_Buffer (J) = '.' then
+               for J in reverse Canonical_Name'Range loop
+                  if Canonical_Name (J) = '.' then
                      Add_Suffix := False;
                      exit;
 
-                  elsif Name_Buffer (J) = '/' or else
-                    Name_Buffer (J) = Directory_Separator
+                  elsif Canonical_Name (J) = '/' or else
+                        Canonical_Name (J) = Directory_Separator
                   then
                      exit;
                   end if;