Print

Print


Hello everyone.

Here's a sample I am working on.  Everything compiles well when I comment
out the display of the variables Time_Start, Time_End, Time_Difference near
the end.




   with Ada.Real_Time; use Ada.Real_Time;
   with Ada.Text_Io;  use Ada.Text_Io;

   procedure TestTime is

      -- ----------------------------------------------------------
      --  GET THE STARTING TIME, LOOP, GET THE END TIME, SUBSTRACT
      -- ----------------------------------------------------------

      Time_Start      : Ada.Real_Time.Time;
      Time_End        : Ada.Real_Time.Time;
      Time_Difference : Ada.Real_Time.Time_Span;

   begin

      Time_Start := Ada.Real_Time.Clock;
      for I in 1..17400 loop
          delay 0.003448275862;
      end loop;
      Time_End := Ada.Real_Time.Clock;
      Time_Difference := Time_End - Time_Start;

      Ada.Text_Io.Put("Start Time:      ");
      Ada.Text_Io.Put(Time_Start);
      Ada.Text_Io.New_Line;
      Ada.Text_Io.Put("Start Time:      ");
      Ada.Text_Io.Put(Time_End);
      Ada.Text_Io.New_Line;
      Ada.Text_Io.Put("Time Difference: ");
      Ada.Text_Io.Put(Time_Difference);

      delay 30.0;

   end TestTime;

* NOW Based on other sample code I've looked, other samples make use if
the Real_Time Library, and seem to display fine from what I've noticed, using
the same display techniques.

But when I compile this code as is.  it gives me the following error
message

"Invalid Parameter List In Call."   for the 3 lines that display the three
Time variables.   Can anyone tell me what is missing in this I just want to
display these values (regardless of formatting for now).

Thank you all in advance for your help.

Stephane Richard
Software Developer


--
Stephane Richard
Software Developer
[log in to unmask]

Sent through GMX FreeMail - http://www.gmx.net