diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-13 05:41:20 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-13 05:41:20 +0200 |
| commit | 961d55b955d0a1526ebb7a5ddca8acee50b8ab1a (patch) | |
| tree | 2a3da4499451a97b884c8adee694189a4dfc1433 /src/files_map.adb | |
| parent | 5c685c2456a2320adc6f132e7bd8704170ea7665 (diff) | |
| download | ghdl-961d55b955d0a1526ebb7a5ddca8acee50b8ab1a.tar.gz ghdl-961d55b955d0a1526ebb7a5ddca8acee50b8ab1a.tar.bz2 ghdl-961d55b955d0a1526ebb7a5ddca8acee50b8ab1a.zip | |
Remove Get_File_Time_Stamp for a filename.
Preliminary work for ticket 48.
Diffstat (limited to 'src/files_map.adb')
| -rw-r--r-- | src/files_map.adb | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/src/files_map.adb b/src/files_map.adb index 94ce9cb3a..ece6e125c 100644 --- a/src/files_map.adb +++ b/src/files_map.adb @@ -15,6 +15,7 @@ -- along with GHDL; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. +with System; with Interfaces.C; with Ada.Characters.Latin_1; with Ada.Text_IO; use Ada.Text_IO; @@ -462,22 +463,6 @@ package body Files_Map is return Res; end Os_Time_To_Time_Stamp_Id; - function Get_File_Time_Stamp (Filename : System.Address) - return Time_Stamp_Id - is - use GNAT.OS_Lib; - Fd : File_Descriptor; - Res : Time_Stamp_Id; - begin - Fd := Open_Read (Filename, Binary); - if Fd = Invalid_FD then - return Null_Time_Stamp; - end if; - Res := Os_Time_To_Time_Stamp_Id (File_Time_Stamp (Fd)); - Close (Fd); - return Res; - end Get_File_Time_Stamp; - function Get_File_Time_Stamp (FD : GNAT.OS_Lib.File_Descriptor) return Time_Stamp_Id is |