diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-05-29 09:41:40 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-29 09:41:40 +0000 |
| commit | ec3b72c55d064424cd9ed3b92b1bd7be5b501ecd (patch) | |
| tree | 773d910dc3aea0a16919169023f39ba0f0d82e2e /gcc/ada/libgnat/a-calend.adb | |
| parent | 57dfb3eca07e7b55dc89c0e3dddc6015f98b63d8 (diff) | |
| download | gcc-ec3b72c55d064424cd9ed3b92b1bd7be5b501ecd.zip gcc-ec3b72c55d064424cd9ed3b92b1bd7be5b501ecd.tar.gz gcc-ec3b72c55d064424cd9ed3b92b1bd7be5b501ecd.tar.bz2 | |
[Ada] Turn Ada.Calendar.Epoch_Offset into a function
2018-05-29 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* libgnat/a-calend.ads, libgnat/a-calend.adb (Epoch_Offset): Make it a
function.
From-SVN: r260878
Diffstat (limited to 'gcc/ada/libgnat/a-calend.adb')
| -rw-r--r-- | gcc/ada/libgnat/a-calend.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/libgnat/a-calend.adb b/gcc/ada/libgnat/a-calend.adb index 8299b74..8bf5e7a 100644 --- a/gcc/ada/libgnat/a-calend.adb +++ b/gcc/ada/libgnat/a-calend.adb @@ -500,6 +500,15 @@ is return D; end Day; + ------------------ + -- Epoch_Offset -- + ------------------ + + function Epoch_Offset return Time_Rep is + begin + return (136 * 365 + 44 * 366) * Nanos_In_Day; + end Epoch_Offset; + ------------- -- Is_Leap -- ------------- |