Re: How to put 200 into an integer sub-type of 16 bits (code included)

[sjw <simon.j.wright@mac.com>]

On Jan 14, 4:08 pm, Adam Beneschan <a...@irvine.com> wrote:
> On Jan 14, 6:59 am, ChristopherL <clusard...@aol.com> wrote:

>
> > with Ada.Unchecked_Conversion;
>
> > procedure test is
> >    subtype Shrt is Integer range -(2 ** 7) .. ((2 ** 7) - 1 );
> >    Result:Shrt;
>
> >    Arg:Float;
>
> >    function To_Bits is new
> >       Ada.Unchecked_Conversion (Source => Float, Target => Shrt);
>
> > Begin
> >    Arg := 200.0;
>
> >    Result := To_Bits(Arg + 0.5);  -- crude round then type conversion
> > End test;
>
> > -- Error Message Received
>
> >     210       Ada.Unchecked_Conversion (Source => Float, Target =>
> > Shrt);
>
> > *** 387E-0: Identifier ADA is not directly visible
>
> >     236       Result := To_Bits( Arg + 0.5 )
>
> > *** 387E-0: Identifier TO_BITS is not directly visible

> (1) The error messages don't make any sense to me.  If you say "with
> Ada.Unchecked_Conversion", then Ada and Ada.Unchecked_Conversion
> should both be visible and you shouldn't be getting "not directly
> visible" errors.

The error messages in OP's listing appear to refer to lines 210 and
236; there aren't nearly that many lines in the quoted code...perhaps
they come from different places?