Re: Ada: Inheritance of generics

[Dennis Hoppe <dennis.hoppe@hoppinet.de>]

Hello Adam,

Adam Beneschan wrote:
> There's so many things wrong with this code that I'm just going to
> take a guess at what you're trying to do and hope it's close to what
> you're looking for.  If not, you'll need to explain more about what
> you're trying to accomplish.  The following Ada source does compile.

Thank you for your effort. It does exactly, what I wanted to do. It 
seems, that I should read a bit more about inheritance und generics in 
Ada to understand this two different approaches of programming.

My own implementation failed due the wrong instantiation of the 
packages. Your last code snippets helped me the most.

> package Mod_Package is
>    type Unsigned_16 is mod 2**16;
> end Mod_Package;
> 
> with Generic_Parent;
> with Mod_Package;
> package Parent is new Generic_Parent (Mod_Package.Unsigned_16);
> 
> with Parent;
> with Generic_Parent.Generic_Child;
> package Child is new Parent.Generic_Child;
> 
> with Child;
> package Pak1 is
>    A : Integer := Child.Example;
> end Pak1;
> 
>                           -- HTH, Adam

Thank you,
   Dennis