diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-11-30 14:19:48 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 15:19:48 +0100 |
| commit | 637da456be0b398ca1ffa7393514973e49f2f32d (patch) | |
| tree | b15b484bca7e37e75b002ff11bffecb3a8bc4929 /gcc/ada/osint.adb | |
| parent | cca5ded0939249809c40e5365016757575b12a1e (diff) | |
| download | gcc-637da456be0b398ca1ffa7393514973e49f2f32d.zip gcc-637da456be0b398ca1ffa7393514973e49f2f32d.tar.gz gcc-637da456be0b398ca1ffa7393514973e49f2f32d.tar.bz2 | |
osint.adb, [...]: Minor reformatting.
2009-11-30 Robert Dewar <dewar@adacore.com>
* osint.adb, a-rttiev.adb: Minor reformatting.
From-SVN: r154808
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 510e1e9..6265ede 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1081,7 +1081,8 @@ package body Osint is function File_Time_Stamp (Name : Path_Name_Type; - Attr : access File_Attributes) return Time_Stamp_Type is + Attr : access File_Attributes) return Time_Stamp_Type + is begin if Name = No_Path then return Empty_Time_Stamp; @@ -1090,7 +1091,7 @@ package body Osint is Get_Name_String (Name); Name_Buffer (Name_Len + 1) := ASCII.NUL; return OS_Time_To_GNAT_Time - (File_Time_Stamp (Name_Buffer'Address, Attr)); + (File_Time_Stamp (Name_Buffer'Address, Attr)); end File_Time_Stamp; ---------------- |