This is the mail archive of the
gcc@gcc.gnu.org
mailing list for the GCC project.
Re: Ada, bug in Gnat Calendar.Time_Of ?
- From: Geert Bosch <bosch at gnat dot com>
- To: Nicolas BRUNOT <n dot brunot at cadwin dot com>
- Cc: "'gcc at gcc dot gnu dot org'" <gcc at gcc dot gnu dot org>
- Date: Wed, 4 Dec 2002 13:17:38 -0500
- Subject: Re: Ada, bug in Gnat Calendar.Time_Of ?
This compiles fine with the latest ACT sources, so this will at least
be fixed with the next merge. I'll see if I can merge just this file
right now, as this will most likely be a very local change.
-Geert
On Wednesday, Dec 4, 2002, at 06:10 America/New_York, Nicolas BRUNOT
wrote:
with Calendar;
with Ada.Text_Io;
procedure Bug_Calendar_Time_Of is
Now : constant Calendar.Time := Calendar.Clock;
Year_Number : Calendar.Year_Number;
Month_Number : Calendar.Month_Number;
Day_Number : Calendar.Day_Number;
Seconds : Calendar.Day_Duration;
Result : Calendar.Time;
begin
Ada.Text_Io.Put ("Test calendar.time_of ...");
Calendar.Split (Now, Year_Number, Month_Number, Day_Number,
Seconds);
Result := Calendar.Time_Of (Year_Number, Month_Number, Day_Number);
Ada.Text_Io.Put_Line (" OK");
end;