1 files changed, 14 insertions, 2 deletions
diff --git a/gcc/ada/s-osprim-os2.adb b/gcc/ada/s-osprim-os2.adb
index b8c61a3a477..b8863f65dad 100644
--- a/gcc/ada/s-osprim-os2.adb
+++ b/gcc/ada/s-osprim-os2.adb
@@ -167,6 +167,18 @@ package body System.OS_Primitives is
       end if;
    end Timed_Delay;
 
-begin
-   Set_Epoch_Offset;
+   ----------------
+   -- Initialize --
+   ----------------
+
+   Initialized : Boolean := False;
+
+   procedure Initialize is
+   begin
+      if not Initialized then
+         Initialized := True;
+         Set_Epoch_Offset;
+      end if;
+   end Initialize;
+
 end System.OS_Primitives;