From: dewar@merv.cs.nyu.edu (Robert Dewar)
Subject: Re: Comparison with 0 distorts Long_Long_Integer
Date: 1998/01/14
Date: 1998-01-14T00:00:00+00:00 [thread overview]
Message-ID: <dewar.884806754@merv> (raw)
In-Reply-To: 01bd20f8$c1877460$e7207cc1@----
D Anisimikov says
<<I'm use GNAT-3-10 for Win32 and found the BUG :
--------------------------------
with Text_Io,Machine_Code;
procedure Rli is
use Text_Io;
subtype IComp is Long_Long_Integer;
package Comp_Io is new Integer_IO(IComp); use Comp_Io;
C : constant Icomp := 16#1234_0000_0000#;
Cb : Icomp;
begin
Cb := C;
if Cb=0 then
-- Comparison with 0 distorts Long_Long_Integer
null;
end if;
if C/=Cb then
-- it's wrong
Put(" C ="); Put(C,0,16); New_Line;
Put(" Cb="); Put(Cb,0,16); New_Line;
end if;
end Rli;
>>
Bug reports for GNAT should go to report@gnat.com, but do not bother
to submit this particular one since it works fine with the current
version of GNAT.
next prev parent reply other threads:[~1998-01-14 0:00 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-01-14 0:00 Comparison with 0 distorts Long_Long_Integer Dmitriy Anisimkov
1998-01-14 0:00 ` Robert Dewar [this message]
1998-01-15 0:00 ` Dmitriy Anisimkov
1998-01-15 0:00 ` Robert Dewar
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox