diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-30 13:36:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-10-30 13:36:19 +0000 |
| commit | 3a0397df51186c36495bd8585b6277b4cb511f2b (patch) | |
| tree | ac9b5440b907b6e387b17022a9d5e9132c597231 /gcc/ada/osint.adb | |
| parent | bd33e436e4d6b29d608f7021e91fab58e5c57296 (diff) | |
| download | gcc-3a0397df51186c36495bd8585b6277b4cb511f2b.tar.gz | |
2009-10-30 Emmanuel Briot <briot@adacore.com>
* make.adb, osint.adb, osint.ads (Library_File_Stamp): Removed, since
unused.
(Read_Library_Info_From_Full): New subprogram.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@153746 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index a8db0a557a8..11197f42c22 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1529,15 +1529,6 @@ package body Osint is return Name_Find; end Lib_File_Name; - ------------------------ - -- Library_File_Stamp -- - ------------------------ - - function Library_File_Stamp (N : File_Name_Type) return Time_Stamp_Type is - begin - return File_Stamp (Find_File (N, Library)); - end Library_File_Stamp; - ----------------- -- Locate_File -- ----------------- @@ -2119,7 +2110,20 @@ package body Osint is function Read_Library_Info (Lib_File : File_Name_Type; - Fatal_Err : Boolean := False) return Text_Buffer_Ptr + Fatal_Err : Boolean := False) return Text_Buffer_Ptr is + begin + return Read_Library_Info_From_Full + (Full_Lib_File => Find_File (Lib_File, Library), + Fatal_Err => Fatal_Err); + end Read_Library_Info; + + --------------------------------- + -- Read_Library_Info_From_Full -- + --------------------------------- + + function Read_Library_Info_From_Full + (Full_Lib_File : File_Name_Type; + Fatal_Err : Boolean := False) return Text_Buffer_Ptr is Lib_FD : File_Descriptor; -- The file descriptor for the current library file. A negative value @@ -2133,7 +2137,7 @@ package body Osint is -- For the calls to Close begin - Current_Full_Lib_Name := Find_File (Lib_File, Library); + Current_Full_Lib_Name := Full_Lib_File; Current_Full_Obj_Name := Object_File_Name (Current_Full_Lib_Name); if Current_Full_Lib_Name = No_File then @@ -2239,7 +2243,7 @@ package body Osint is return Text; - end Read_Library_Info; + end Read_Library_Info_From_Full; ---------------------- -- Read_Source_File -- |