a-reatim.adb: Call System.OS_Primitives.Initialize during elaboration

2010-06-23  Vincent Celier  <celier@adacore.com>

	* a-reatim.adb: Call System.OS_Primitives.Initialize during elaboration

From-SVN: r161245

gcc/ada/ChangeLog

+2010-06-23  Vincent Celier  <celier@adacore.com>
+
+	* a-reatim.adb: Call System.OS_Primitives.Initialize during elaboration
+
 2010-06-23  Robert Dewar  <dewar@adacore.com>
 
 	* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Properly handle

gcc/ada/a-reatim.adb

@@ -7,7 +7,7 @@
 --                                 B o d y                                  --
 --                                                                          --
 --             Copyright (C) 1991-1994, Florida State University            --
---                     Copyright (C) 1995-2009, AdaCore                     --
+--                     Copyright (C) 1995-2010, AdaCore                     --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -32,6 +32,8 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+with System.OS_Primitives;
+
 package body Ada.Real_Time is
 
    ---------
@@ -242,4 +244,6 @@ package body Ada.Real_Time is
       return Time_Span (D);
    end To_Time_Span;
 
+begin
+   System.OS_Primitives.Initialize;
 end Ada.Real_Time;