From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.4 required=5.0 tests=AC_FROM_MANY_DOTS,BAYES_00
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,6ea9f886a228469c
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!proxad.net!news.tele.dk!news.tele.dk!small.news.tele.dk!uninett.no!news.eunet.no!kda-news.kongsberg.com!not-for-mail
From: "Egil H. H�vik" <egil.harald.hoevikNOSPAM@REMOVEkongsberg.com>
Newsgroups: comp.lang.ada
Subject: Re: pointers and genericity
Date: Wed, 16 Feb 2005 10:53:41 +0100
Organization: News Kongsberg Defence&Aerospace T-Nett
Message-ID: <cuv4v5$3e3$1@kda-news.kongsberg.com>
References: <344d0fee.0502150410.740d5dbd@posting.google.com>
 <17cfosskqxdi0$.1ux9v3kndb9kr$.dlg@40tude.net>
 <344d0fee.0502160127.432c8614@posting.google.com>
NNTP-Posting-Host: kda-mfxp-18.kda.kongsberg.com
X-Trace: kda-news.kongsberg.com 1108547365 3523 193.71.174.118 (16 Feb 2005
 09:49:25 GMT)
X-Complaints-To: tommy.fallsen@kongsberg.com
NNTP-Posting-Date: Wed, 16 Feb 2005 09:49:25 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
Xref: g2news1.google.com comp.lang.ada:8349
Date: 2005-02-16T10:53:41+01:00
List-Id: <comp.lang.ada>

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