From: Keith Thompson <kst@cts.com>
Subject: Re: Top 10 Language Constructs (Ada)
Date: 2000/07/25
Date: 2000-07-25T00:00:00+00:00 [thread overview]
Message-ID: <yeck8e9zmoi.fsf@king.cts.com> (raw)
In-Reply-To: yec1z0m29bg.fsf@king.cts.com
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1070 bytes --]
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.
next prev parent reply other threads:[~2000-07-25 0:00 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
2000-07-14 0:00 Top 10 Language Constructs (Ada) Bruno Gustavs
2000-07-14 0:00 ` Andrew Hately
2000-07-14 0:00 ` Samuel T. Harris
2000-07-15 0:00 ` Simon Wright
2000-07-18 0:00 ` Nick Keighley
2000-07-14 0:00 ` David Kristola
2000-07-15 0:00 ` Marc A. Criley
2000-07-16 0:00 ` David Botton
2000-07-18 0:00 ` David Kristola
2000-07-18 0:00 ` Scott Ingram`
2000-07-18 0:00 ` Bill Brennan
2000-07-18 0:00 ` Dr. Joachim Schr�er
2000-07-19 0:00 ` Bill Brennan
2000-07-18 0:00 ` Scott Ingram`
2000-07-21 0:00 ` Keith Thompson
2000-07-25 0:00 ` Keith Thompson [this message]
2000-07-25 0:00 ` Dr. Joachim Schr�er
2000-07-25 0:00 ` Florian Weimer
2000-07-26 0:00 ` David Kristola
2000-07-19 0:00 ` David Kristola
2000-07-18 0:00 ` Stefan Skoglund
2000-07-24 0:00 ` Richard Riehle
2000-07-26 0:00 ` The Ada type model (was Re: Top 10 Language Constructs (Ada)) Marc A. Criley
2000-07-15 0:00 ` Top 10 Language Constructs (Ada) David Botton
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox