RE: Ada, bug in Gnat Calendar.Time_Of ?

[Nicolas BRUNOT <n dot brunot at cadwin dot com>]

 Thanks a lot 

Do you have an idea of the schedule for the next merge ? 

Nicolas 

PS 
you said it compiles fine, but did you execute it ? 
the exception is raised at execution, not compilation 



-----Message d'origine-----
De: Geert Bosch
A: Nicolas BRUNOT
Cc: 'gcc@gcc.gnu.org'
Date: 04/12/2002 19:17
Objet: 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;