diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 09:29:54 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 09:29:54 +0000 |
| commit | 543c8be5a073d518439a80f4e0ac9470a50e149f (patch) | |
| tree | f9b4e0397263795900a2a5e40576976a075bf65b /gcc/ada/s-os_lib.adb | |
| parent | f4228f09aab2d8a3a5c9e9c8d07ed94cdd27c289 (diff) | |
| download | gcc-543c8be5a073d518439a80f4e0ac9470a50e149f.tar.gz | |
2014-07-18 Ed Schonberg <schonberg@adacore.com>
* sem_ch4.adb (Try_Container_Indexing): Refine previous patch for
indexing over containers that are derived types: check whether
signature of found operation has the correct first parameter
before retrieving directly a primitive operation.
2014-07-18 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Analyze_Attribute, case 'Update): Set
Do_Range_Check flag on dynamic bounds of a range used in a
component association in the argument of Update.
2014-07-18 Thomas Quinot <quinot@adacore.com>
* adaint.c: #define _REENTRANT and _THREAD_SAFE in order for
accesses to errno(3) to be thread safe.
2014-07-18 Vincent Celier <celier@adacore.com>
* prj-tree.adb (Imported_Or_Extended_Project_Of): For each non
limited imported project that is an extending project, return
a project being extended if it has the expected name.
2014-07-18 Pascal Obry <obry@adacore.com>
* s-os_lib.ads, s-os_lib.adb (Set_File_Last_Modify_Time_Stamp): New
routine to set the last modification time stamp for the given file.
* gnatchop.adb (File_Time_Stamp): Removed.
(Write_Unit): Use
Set_File_Last_Modify_Time_Stamp instead of ad-hoc implementation.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212787 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-os_lib.adb')
| -rw-r--r-- | gcc/ada/s-os_lib.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index 6669b42f0cc..17ac32e3bdb 100644 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -2385,6 +2385,20 @@ package body System.OS_Lib is C_Set_Executable (C_Name (C_Name'First)'Address, Mode); end Set_Executable; + ------------------------------------- + -- Set_File_Last_Modify_Time_Stamp -- + ------------------------------------- + + procedure Set_File_Last_Modify_Time_Stamp (Name : String; Time : OS_Time) is + procedure C_Set_File_Time (Name : C_File_Name; Time : OS_Time); + pragma Import (C, C_Set_File_Time, "__gnat_set_file_time_name"); + C_Name : aliased String (Name'First .. Name'Last + 1); + begin + C_Name (Name'Range) := Name; + C_Name (C_Name'Last) := ASCII.NUL; + C_Set_File_Time (C_Name'Address, Time); + end Set_File_Last_Modify_Time_Stamp; + ---------------------- -- Set_Non_Readable -- ---------------------- |