diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 01:38:15 +0200 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-26 01:38:15 +0200 |
| commit | 1a7e4df49b261b50a442961d56c288d40d334665 (patch) | |
| tree | 3f32ca7883a6ae6ded71064f0b3a7ad5ab82c692 | |
| parent | 90a9fff2b07b27a3d6fae98f3565ab0536f981c6 (diff) | |
| download | gcc-1a7e4df49b261b50a442961d56c288d40d334665.zip gcc-1a7e4df49b261b50a442961d56c288d40d334665.tar.gz gcc-1a7e4df49b261b50a442961d56c288d40d334665.tar.bz2 | |
* osint.adb (Is_Relative): Remove duplicate.
From-SVN: r46504
| -rw-r--r-- | gcc/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/ada/osint.adb | 20 |
2 files changed, 5 insertions, 21 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 58187a0..91ef805 100644 --- 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 --- 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; |