does Ada.Calendar.clock work?

[jzamora at avellano.datsi.fi.upm.es (Juan Zamorano Flores)]

    Hello,

    I don't know if you remember this thread. The answer was NO with
gnat-3.10p for m68k-rtems.

    The following test program:

with Ada.Text_IO, Ada.calendar;
use Ada.Text_IO, Ada.calendar;

procedure Main is

    package float_text_io is new Ada.text_io.float_io(float);
    use float_text_io;

    Before, After : time;

begin
   Before:= clock;
   delay 10.0;
   After:= clock;
   put (float(After - Before));
   new_line;
end Main;

    gave the following output:

 0.00000E+00

    The dalay was correct. But the generated code get the returned
parameters of __floatdixf from -12(%a6) and __floatdixf returns it in fp0.

    OK, the answer is YES with gnat-3.11p for m68k-rtems. Now, the output is

 1.00000E+01

    Now, the generated code get the returned parameters of __floatdixf from
fp0.

    Thanks to ACT people for correct the bug.

    Juan