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/a-calcon.adb | |
| 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/a-calcon.adb')
| -rw-r--r-- | gcc/ada/libgnat/a-calcon.adb | 6 |
1 files changed, 4 insertions, 2 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; |