* osint.adb (Is_Relative): Remove duplicate.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46504 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 58187a0..91ef805 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-25  Geert Bosch  <bosch@gnat.com>
+
+       * osint.adb (Is_Relative): Remove duplicate.
+
 2001-10-25  Pascal Obry <obry@gnat.com>
 
        * osint.adb (Read_Default_Search_Dirs): correctly detect relative 
@@ -7,7 +11,7 @@
        * osint.adb: Minor reformatting
        
        * osint.adb (Is_Relative): implementation using 
-        GNAT.OS_Lib.Is_Absolute_Path. Better fix for 8121-009.
+        GNAT.OS_Lib.Is_Absolute_Path. Better fix.
 
 2001-10-25  Pascal Obry <obry@gnat.com>
 

diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb
index b43f2d7..f871a19 100644 (file)
--- a/gcc/ada/osint.adb
+++ b/gcc/ada/osint.adb
@@ -1681,26 +1681,6 @@ package body Osint is
       Search_Dir_Default_Name : String_Access)
       return                  String_Access
    is
-      function Is_Relative (S : String; K : Positive) return Boolean;
-      --  Returns True if a relative directory specification is found in S at
-      --  position K.
-
-      function Is_Relative (S : String; K : Positive) return Boolean is
-      begin
-         return
-           not (Is_Directory_Separator (S (K)) -- Unix style absolute pathname
-
-                or else -- DOS style absolute pathname with drive letter
-
-                (S'Last > K + 2
-                    and then
-                 (S (K) in 'a' .. 'z' or else S (K) in 'A' .. 'Z')
-                    and then
-                 S (K + 1) = ':'
-                    and then
-                 Is_Directory_Separator (S (K + 2))));
-      end Is_Relative;
-
       Prefix_Len : constant Integer := Search_Dir_Prefix.all'Length;
       Buffer     : String (1 .. Prefix_Len + Search_File.all'Length + 1);
       File_FD    : File_Descriptor;