Re: pointers and genericity

["Egil H. H�vik" <egil.harald.hoevikNOSPAM@REMOVEkongsberg.com>]

Have you tried:


"Xavier Serrand" <xavier.serrand@free.fr> wrote in message
news:344d0fee.0502160127.432c8614@posting.google.com...
> You are right... trouble comes from that
>
<snip>
> with Test_Gen_Pk_DataSource;
> generic
>   type T_Element is private;
>   Null_Element : in T_Element;
>   with package Pk_DS is new Test_Gen_Pk_DataSource (T_Elem =>
> T_Element,
>                                                     Null_Elem =>
> Null_Element);
> package Test_Gen_Pk_User is
>    type T_User is record
>       Nom : string (1..33) := (others => ' ');
>       Rec : Pk_DS.T_Record := (Data => Null_Element,
>                                Next => null, Prev => null);
>    end record;
>    procedure Assign (U : in out T_User;
>                      S : in string; E : in T_Element;
>                      Proc_Next, Proc_Prev : in Pk_DS.T_proc_Browse);

private
   procedure Proc_Suiv (E : in out Pk_DS.T_Record;
                        S : out string);

> end Test_Gen_Pk_User;


~egilhh