From: Georg Bauhaus <bauhaus@futureapps.de>
Subject: Re: Instantiating private types with discriminants?
Date: Wed, 10 May 2006 21:01:08 +0200
Date: 2006-05-10T21:00:57+02:00 [thread overview]
Message-ID: <44623869$0$4504$9b4e6d93@newsread2.arcor-online.net> (raw)
In-Reply-To: <SJn8g.28928$Nb2.524951@news1.nokia.com>
rick H wrote:
> I've now tried declaring Var_A to be...
> Var_A : General_T'Class;
>
> but gnat insists on initialization, and it's here that I tumble.
A real object of a class-wide type needs to have a tag,
hence if you don't initialize, which tag should it be?
Solution:
Declare variables or constants where you need them,
and where you have assembled everything necessary for their
initialization. That is,
procedure simple_case is
...
begin
...
declare
var_x: General_T'class := <your initialization here>;
begin
op(var_x);
end;
...
end simple_case;
next prev parent reply other threads:[~2006-05-10 19:01 UTC|newest]
Thread overview: 34+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-05-09 13:17 Instantiating private types with discriminants? rick H
2006-05-09 13:45 ` Georg Bauhaus
2006-05-09 14:06 ` rick H
2006-05-09 13:56 ` Ludovic Brenta
2006-05-09 14:24 ` rick H
2006-05-09 19:48 ` Ludovic Brenta
2006-05-09 14:05 ` Dmitry A. Kazakov
2006-05-09 14:48 ` rick H
2006-05-09 15:20 ` Jerry Petrey
2006-05-09 15:42 ` rick H
2006-05-09 15:53 ` Avoiding use Ada.Tags (was Re: Instantiating private types with discriminants?) Alex R. Mosteo
2006-05-09 16:01 ` Instantiating private types with discriminants? Dmitry A. Kazakov
2006-05-10 7:42 ` rick H
2006-05-10 9:09 ` Ludovic Brenta
2006-05-10 11:49 ` Georg Bauhaus
2006-05-10 13:44 ` rick H
2006-05-10 14:21 ` Ludovic Brenta
2006-05-10 15:10 ` rick H
2006-05-10 15:45 ` Ludovic Brenta
2006-05-10 14:41 ` Dmitry A. Kazakov
2006-05-10 15:34 ` rick H
2006-05-10 19:01 ` Georg Bauhaus [this message]
2006-05-10 19:05 ` Ludovic Brenta
2006-05-10 21:52 ` Rick H
2006-05-11 1:17 ` Jeffrey R. Carter
2006-05-11 7:44 ` Dmitry A. Kazakov
2006-05-11 8:27 ` rick H
2006-05-11 10:28 ` Dmitry A. Kazakov
2006-05-11 15:59 ` Robert A Duff
2006-05-12 7:37 ` Dmitry A. Kazakov
2006-05-12 9:24 ` Georg Bauhaus
2006-05-12 12:40 ` Dmitry A. Kazakov
2006-05-12 18:25 ` Randy Brukardt
2006-05-09 19:57 ` "Use" and "=" for Tags (was: Re: Instantiating private types with discriminants?) Jeffrey R. Carter
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox