diff options
Diffstat (limited to 'gcc/ada/a-calend-mingw.adb')
| -rw-r--r-- | gcc/ada/a-calend-mingw.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/a-calend-mingw.adb b/gcc/ada/a-calend-mingw.adb index 8dcc303..71599bd 100644 --- a/gcc/ada/a-calend-mingw.adb +++ b/gcc/ada/a-calend-mingw.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2005 Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -31,7 +31,7 @@ -- -- ------------------------------------------------------------------------------ --- This is the Windows NT/95 version. +-- This is the Windows NT/95 version with System.OS_Primitives; -- used for Clock @@ -262,7 +262,7 @@ package body Ada.Calendar is end if; - -- Date_Int is the number of seconds from Epoch. + -- Date_Int is the number of seconds from Epoch Date_Int := Long_Long_Integer (Int_Date * Sec_Unit / system_time_ns) + epoch_1970; @@ -391,4 +391,6 @@ package body Ada.Calendar is return DY; end Year; +begin + System.OS_Primitives.Initialize; end Ada.Calendar; |