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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: 103376,8ca14c11fd6d2e56 X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news4.google.com!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!stamper.news.atl.earthlink.net!newsread1.news.atl.earthlink.net.POSTED!14bb18d8!not-for-mail Sender: mheaney@MHEANEYX200 Newsgroups: comp.lang.ada Subject: Re: generic parameter Copy for primitifs types. References: <1119544911.159343.288010@g43g2000cwa.googlegroups.com> <837ivwsz8r2d$.j16zz1529zb9$.dlg@40tude.net> <1119555704.527944.224770@g49g2000cwa.googlegroups.com> From: Matthew Heaney Message-ID: User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Date: Tue, 28 Jun 2005 10:30:29 GMT NNTP-Posting-Host: 24.149.57.125 X-Complaints-To: abuse@earthlink.net X-Trace: newsread1.news.atl.earthlink.net 1119954629 24.149.57.125 (Tue, 28 Jun 2005 03:30:29 PDT) NNTP-Posting-Date: Tue, 28 Jun 2005 03:30:29 PDT Organization: EarthLink Inc. -- http://www.EarthLink.net Xref: g2news1.google.com comp.lang.ada:11686 Date: 2005-06-28T10:30:29+00:00 List-Id: Marius Amado Alves writes: > generic > type T is private; > package Level_1 is > type Copy_Ptr is access procedure (From : in T; To : out T); > procedure Default_Copy (From : in T; To : out T); > generic > Copy : Copy_Ptr := Default_Copy'Access; > package Level_2 is > ... > end; > end; The access type is unnecessary. The feature you want here has been available since Ada83: generic type T is private; package P is procedure Default_Copy (From : in T; To : out T); generic with procedure Copy (From : in T; To : out T) is Default_Copy; package Q is ...; end P;