[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index be6192ddf31e3f2b0c6aae1753ec2ae7325c1de9..3eb0a41f7996878893db40ec20da8cefa55e21d6 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-05-29  Arnaud Charlet  <charlet@adacore.com>
+
+       * libgnat/a-calend.ads, libgnat/a-calend.adb (Epoch_Offset): Make it a
+       function.
+
 2018-05-29  Olivier Hainque  <hainque@adacore.com>
 
        * libgnat/system-vxworks7-ppc-rtp.ads: New file.

diff --git a/gcc/ada/libgnat/a-calend.adb b/gcc/ada/libgnat/a-calend.adb
index 8299b74bc98f893d843e7553607ea55e84dc4600..8bf5e7a5ce48a0043e751f409f82b0aa54ef42bb 100644 (file)
--- 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 --
    -------------

diff --git a/gcc/ada/libgnat/a-calend.ads b/gcc/ada/libgnat/a-calend.ads
index 4371e110a1ec3d94e7e14d344140f0da0f2aa8e8..b1243804cb10db25e099727bfd972b238e65252a 100644 (file)
--- a/gcc/ada/libgnat/a-calend.ads
+++ b/gcc/ada/libgnat/a-calend.ads
@@ -221,8 +221,9 @@ private
    --  with overloading ambiguities in the body if we tried to use Time as an
    --  internal computational type.
 
-   Epoch_Offset : constant Time_Rep := (136 * 365 + 44 * 366) * Nanos_In_Day;
-   --  The difference between 2150-1-1 UTC and 1970-1-1 UTC expressed in
+   function Epoch_Offset return Time_Rep;
+   pragma Inline (Epoch_Offset);
+   --  Return the difference between 2150-1-1 UTC and 1970-1-1 UTC expressed in
    --  nanoseconds. Note that year 2100 is non-leap.
 
    Days_In_Month : constant array (Month_Number) of Day_Number :=