comp.lang.ada
 help / color / mirror / Atom feed
From: dhenry <tfc.duke@gmail.com>
Subject: Duration'Image, Duration'Value and Duration'Last
Date: Thu, 19 Feb 2009 07:33:23 -0800 (PST)
Date: 2009-02-19T07:33:23-08:00	[thread overview]
Message-ID: <f264e89b-9890-4b88-9d4a-1c16d824cded@f24g2000vbf.googlegroups.com> (raw)

Hello,

I'm experimenting something strange when manipulating Duration'Image,
Duration'Value and Duration'Last with GNAT :

The result of Duration'Value(Duration'Image(Duration'Last)) is
different from the result of S : String := Duration'Image
(Duration'Last) and then Duration'Value(S).

Here is a test program that shows the issue:

-----------------------------------------------------
with Ada.Text_IO; use Ada.Text_IO;

procedure Test is
   S : String   := Duration'Image (Duration'Last);
   D : Duration := Duration'Value (S);
begin
   Put_Line (Duration'Image (D));
   Put_Line (Duration'Image (Duration'Last));
end Test;
-----------------------------------------------------

This test program gives me:
-9223372036.854775810
 9223372036.854775810

Note that -9223372036.854775810 seems to be Duration'First...

Is it expected? Can someone tell me what happens here? why this
difference?

Yours,
David.



             reply	other threads:[~2009-02-19 15:33 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-02-19 15:33 dhenry [this message]
2009-02-19 15:44 ` Duration'Image, Duration'Value and Duration'Last Adam Beneschan
2009-02-19 17:00   ` anon
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox