From: Jacob Sparre Andersen <sparre@nbi.dk>
Subject: Re: Zero length Objects
Date: 30 Jun 2004 22:32:26 +0200
Date: 2004-06-30T22:32:26+02:00 [thread overview]
Message-ID: <plzn6kkcrp.fsf@sparre.crs4.it> (raw)
In-Reply-To: mailman.1.1088614449.375.comp.lang.ada@ada-france.org
Robert C. Leif wrote:
> I am trying to create a means to report the value of experimental
> parameters. I would like to store only those parameters that I have
> selected. Since thanks to Robert I. Eachus, I am using a variant
> record, I can set the parameter to null, which is presently stored
> as 16 bits. I created an empty type; please see the small main
> procedure below. I have not been able to have the size attribute
> work directly on null.
>
> with Ada.Text_Io;
> procedure Empty_Pkg is
> package T_Io renames Ada.Text_Io;
> type Empty_Type is
> (Empty);
> for Empty_Type'Size use 0;
> Empty_Var : Empty_Type;
> begin
> T_Io.Put_Line("The size of empty is " & Integer'Image(Empty_Var'Size));
>
> end Empty_Pkg;
>
> This produced: The size of empty is 8
I thought:
type Even_Emptier_Type is null record;
for Even_Emptier_Type'Size use 0;
Even_Emptier_Var : Even_Emptier_Type;
might be more effective, but no, also the size of Even_Emptier_Var is 8. :(
Jacob
--
"Banning open source would have immediate, broad, and
strongly negative impacts on the ability of many sensitive
and security-focused DOD groups to protect themselves
against cyberattacks" -- Mitre Corp.
next prev parent reply other threads:[~2004-06-30 20:32 UTC|newest]
Thread overview: 30+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-06-30 5:55 Zero length Objects Robert C. Leif
2004-06-30 20:32 ` Jacob Sparre Andersen [this message]
2004-06-30 21:01 ` Frank J. Lhota
2004-07-01 0:02 ` Nick Roberts
2004-07-01 1:28 ` Georg Bauhaus
2004-07-01 10:37 ` Björn Persson
2004-07-01 11:25 ` Larry Kilgallen
2004-07-01 14:11 ` Nick Roberts
2004-07-01 15:42 ` Larry Kilgallen
2004-07-01 14:06 ` Xenos
2004-07-01 15:26 ` Nick Roberts
2004-07-02 1:06 ` Jeffrey Carter
2004-07-01 0:47 ` Brian May
2004-07-01 13:32 ` Frank J. Lhota
2004-07-01 14:52 ` Nick Roberts
2004-07-01 15:03 ` Xenos
2004-07-01 15:57 ` Hyman Rosen
2004-07-01 16:05 ` Xenos
2004-07-02 15:02 ` Frank J. Lhota
2004-07-02 15:11 ` Adrian Knoth
2004-07-02 15:43 ` Frank J. Lhota
2004-07-02 19:01 ` Vinzent 'Gadget' Hoefler
2004-07-02 19:07 ` Adrian Knoth
2004-07-02 19:25 ` Vinzent 'Gadget' Hoefler
2004-07-02 21:06 ` Xenos
2004-07-02 21:56 ` Vinzent 'Gadget' Hoefler
-- strict thread matches above, loose matches on Subject: below --
2004-07-02 8:30 Christoph Karl Walter Grein
2004-07-06 11:59 ` Nick Roberts
2004-07-06 22:14 ` Randy Brukardt
2004-07-06 22:28 ` Nick Roberts
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox