Keith Thompson <kst@cts.com> writes:
> "Dr. Joachim Schr�er" <joachim.schroeer@vs.dasa.de> writes:
> [...]
> > type Plasma_Volts_Type is delta 2.0**(-13) range -4.0 .. 4.0 - 2.0**(-13);
> > for Plasma_Volts_Type'Size use 16;
> > 
> > And if the required range and the 'delta allow 'delta < 'small you have to
> > write a rep-clause for 'small like:
> > 
> > for Plasma_Volts_Type'Small use 2.0**(-13);
> 
> Or better yet:
> 
> for Plasma_Volts_Type'Small use Plasma_Volts_Type'Delta;

Or if that doesn't work (due to freezing rules, as others have pointed
out):

    Plasma_Volts_Small : constant := 2.0**(-13);
    type Plasma_Volts_Type is delta Plasma_Volts_Small
                              range -4.0 .. 4.0 - Plasma_Volts_Small;
    for Plasma_Volts_Type'Size use 16;
    for Plasma_Volts_Type'Small use Plasma_Volts_Small;

(This compiles under GNAT 3.12p.)

-- 
Keith Thompson (The_Other_Keith) kst@cts.com  <http://www.ghoti.net/~kst>
San Diego Supercomputer Center           <*>  <http://www.sdsc.edu/~kst>
Welcome to the last year of the 20th century.