Re: Conversion from floating point to signed 16 bits

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

Olivier Scalbert schrieb:
> Hello,
> 
> My problem:
> I need to convert an "analogic" value which can vary from 0.0 to 1.0
> into a "discrete" value which is a signed 16 bits integer.
> 
> My implementation:
> -----------------------------
> with Ada.Text_IO;
> 
> procedure convert is
>     type Analog_Value is digits 10 range 0.0 .. 1.0;
>     type Signed_16    is range -32768 .. 32767;
>     type Unsigned_16  is range      0 .. 65535;

It might be an idea to use a different name
for Unsigned_16 because this name is also
declared in standard package Interfaces.
Or use qualification. Avoids misunderstandings.