comp.lang.ada
 help / color / mirror / Atom feed
From: dennison@telepath.com
Subject: Re: Yet another gnat/TFFE difference
Date: 1999/05/22
Date: 1999-05-22T00:00:00+00:00	[thread overview]
Message-ID: <7i6n1h$pk8$1@nnrp1.deja.com> (raw)
In-Reply-To: yecwvy15tv5.fsf@king.cts.com

In article <yecwvy15tv5.fsf@king.cts.com>,
  Keith Thompson <kst@cts.com> wrote:
> dennison@telepath.com writes:
> > Gnat has no problem with this, which makes sense as the slices are
the
> > same size and the base type of the arrays are the same.
>
> I think you mean element type, not base type.

Correct.

>
> > TFFE compilers blow up with a constrataint error here. I'm gessing
that
> > is because objects of type T2 have to be 5 elements long, but my
slice
> > is 2 elements.
>
> A conversion to subtype T2 includes a constraint check against T2's
> bounds, 1..5, so the Constraint_Error is correct.
>
> > I have two questions here: First off, which vendor gets the bug
> > report? :-)
>
> Probably neither one.  I just tried this with GNAT 3.11p, and it did
> raise Constraint_Error.

Hmmm. You're right. However, I have some code which does just that,
except that the type ranges and the slice ranges are computed at
runtime. Gnat lets that by no problem, but two separate TFFE compilers
choke on it. It looks like I *might* have a gnat bug here, but I'm going
to have to find some time to play with my toy example to be sure.


> You're doing an array subtype conversion; what you want is an array
> base type conversion.  The problem is, the base types are anonymous.
> Here's something that should do what you want:
>
>    type UT1 is array(Positive  range <>) of Float;
>    subtype T1 is UT1(1..2250);
>    O1 : T1;
>
>    type UT2 is array(Positive  range <>) of Float;
>    subtype T2 is UT2(1..5);
>    O2 : T2;

Hmmm...or perhaps I could just make one parent type for both of them...
Thanks.

--
T.E.D.


--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---




      reply	other threads:[~1999-05-22  0:00 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1999-05-22  0:00 Yet another gnat/TFFE difference dennison
1999-05-22  0:00 ` Keith Thompson
1999-05-22  0:00   ` dennison [this message]
replies disabled

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