From: Florian Weimer <fw@s.netic.de>
Subject: Re: Having a problem with private extension and discriminants...
Date: 1999/07/22
Date: 1999-07-22T07:49:47+00:00 [thread overview]
Message-ID: <m3so6hnmxw.fsf@deneb.cygnus.stuttgart.netsurf.de> (raw)
In-Reply-To: 7n662e$gu7$1@aludra.usc.edu
westonpa@aludra.usc.edu (westonpa) writes:
> package P1 is
> type A(Foo : Natural) is abstract tagged null record;
>
> private
>
> type B is abstract new A with
> record
> -- private fields here
> end record;
>
> end P1;
> package P1.C1 is
>
> type C is new A with private;
>
> private
> type C is new B with
> record
> -- more fields in addition to B's
> end record;
>
> end P1.C1;
Perhaps this is a solution:
package P1.C1 is
type C (Foo : Natural) is new A with private;
private
type C (Foo : Natural) is new B (Foo) with
record
-- more fields in addition to B's
end record;
end P1.C1;
next prev parent reply other threads:[~1999-07-22 0:00 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-07-21 0:00 Having a problem with private extension and discriminants westonpa
1999-07-22 0:00 ` Florian Weimer [this message]
1999-07-22 0:00 ` Weston T. Pan
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox