diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2018-05-30 08:56:18 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-30 08:56:18 +0000 |
| commit | f537fc00c7c21ad07b184aa056df733a4cb87c83 (patch) | |
| tree | d4fa45bb3c4db3faacf0f3298fa7bb2b081b5a90 /gcc/ada/libgnat | |
| parent | c0368be1a18a9ae007ed3f4ef0f2b1400c6b43f6 (diff) | |
| download | gcc-f537fc00c7c21ad07b184aa056df733a4cb87c83.zip gcc-f537fc00c7c21ad07b184aa056df733a4cb87c83.tar.gz gcc-f537fc00c7c21ad07b184aa056df733a4cb87c83.tar.bz2 | |
[Ada] Minor reformatting
2018-05-30 Hristian Kirtchev <kirtchev@adacore.com>
gcc/ada/
* exp_aggr.adb, exp_ch3.adb, exp_ch4.adb, exp_ch7.adb, exp_unst.adb,
exp_util.adb, exp_util.ads, libgnat/a-calcon.adb, libgnat/a-calcon.ads,
libgnat/s-os_lib.adb, repinfo.adb, sem_ch3.adb, sem_disp.adb,
sem_disp.ads, sem_util.adb: Minor reformatting.
From-SVN: r260923
Diffstat (limited to 'gcc/ada/libgnat')
| -rw-r--r-- | gcc/ada/libgnat/a-calcon.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/libgnat/a-calcon.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/libgnat/s-os_lib.adb | 5 |
3 files changed, 9 insertions, 6 deletions
diff --git a/gcc/ada/libgnat/a-calcon.adb b/gcc/ada/libgnat/a-calcon.adb index 1c8e8cc..509ff25 100644 --- a/gcc/ada/libgnat/a-calcon.adb +++ b/gcc/ada/libgnat/a-calcon.adb @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ -with Interfaces.C; use Interfaces.C; +with Interfaces.C; use Interfaces.C; with Interfaces.C.Extensions; use Interfaces.C.Extensions; package body Ada.Calendar.Conversions is @@ -141,7 +141,7 @@ package body Ada.Calendar.Conversions is function To_Unix_Time (Ada_Time : Time) return long is Val : constant Long_Integer := - Conversion_Operations.To_Unix_Time (Ada_Time); + Conversion_Operations.To_Unix_Time (Ada_Time); begin return long (Val); end To_Unix_Time; @@ -153,8 +153,10 @@ package body Ada.Calendar.Conversions is function To_Unix_Nano_Time (Ada_Time : Time) return long_long is pragma Unsuppress (Overflow_Check); Ada_Rep : constant Time_Rep := Time_Rep (Ada_Time); + begin return long_long (Ada_Rep + Epoch_Offset); + exception when Constraint_Error => raise Time_Error; diff --git a/gcc/ada/libgnat/a-calcon.ads b/gcc/ada/libgnat/a-calcon.ads index e2b3ad3..fdf0125 100644 --- a/gcc/ada/libgnat/a-calcon.ads +++ b/gcc/ada/libgnat/a-calcon.ads @@ -111,8 +111,8 @@ package Ada.Calendar.Conversions is -- units of the result are seconds. Raises Time_Error if the result cannot -- fit into a Time value. - function To_Unix_Nano_Time (Ada_Time : Time) return - Interfaces.C.Extensions.long_long; + function To_Unix_Nano_Time + (Ada_Time : Time) return Interfaces.C.Extensions.long_long; -- Convert a time value represented as number of time units since the Ada -- implementation-defined Epoch to a value relative to the Unix Epoch. The -- units of the result are nanoseconds. Raises Time_Error if the result diff --git a/gcc/ada/libgnat/s-os_lib.adb b/gcc/ada/libgnat/s-os_lib.adb index ca6eea1..2569a83 100644 --- a/gcc/ada/libgnat/s-os_lib.adb +++ b/gcc/ada/libgnat/s-os_lib.adb @@ -2235,8 +2235,9 @@ package body System.OS_Lib is -- and additional fragments up to Max_Path in length in case -- there are any symlinks. - Start, Finish : Positive; - Status : Integer; + Finish : Positive; + Start : Positive; + Status : Integer; -- Start of processing for Normalize_Pathname |