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.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD, FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,88c88377aca4f3e1 X-Google-Attributes: gid103376,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII Path: g2news2.google.com!postnews.google.com!v1g2000prd.googlegroups.com!not-for-mail From: anhvofrcaus@gmail.com Newsgroups: comp.lang.ada Subject: Re: object(<>) Date: Mon, 13 Apr 2009 10:58:56 -0700 (PDT) Organization: http://groups.google.com Message-ID: <1f38bec4-2047-4ae6-aeb9-cd84c29ccb1c@v1g2000prd.googlegroups.com> References: <18c70875-f9c2-4883-8c30-aaac314746f5@b1g2000vbc.googlegroups.com> NNTP-Posting-Host: 149.32.224.34 Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: posting.google.com 1239645536 1824 127.0.0.1 (13 Apr 2009 17:58:56 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: Mon, 13 Apr 2009 17:58:56 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: v1g2000prd.googlegroups.com; posting-host=149.32.224.34; posting-account=Qh2kiQoAAADpCLlhT_KTYoGO8dU3n4I6 User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; GTB5; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; InfoPath.1; .NET CLR 3.0.04506.648),gzip(gfe),gzip(gfe) Xref: g2news2.google.com comp.lang.ada:5445 Date: 2009-04-13T10:58:56-07:00 List-Id: On Apr 13, 9:30=A0am, convergence82 wrote: > what does this mean? =A0Does it mean that I can call joemontana > ( anytype)? > > -------------------------jeffrey.ads > =A0 type Cd is .......... > =A0 package Convert_Cd is new joemontana(Cd); =A0 --=3D=3D=3D=3D> does th= is mean > I'm instantiating the > > -- =A0 =A0 =A0 =A0 =A0 generic package joemontana for the type 'Cd'? > > -------------------------jeffrey.adb > with_cd : System.Address > =A0 x :=3D Convert_Cd.To_Pointer( with_cd); > > -------------------------joemontana.spc > generic > =A0 type Object(<>) is limited private; > package joemontana is > =A0 type Object_Pointer is access all Object; > =A0 ... > =A0 function To_Pointer(Value : System.Address) return Object_Pointer; > =A0 ... > end joemontana; Yes, it means just that. But wait, you can save time by using the predefined one, http://adaic.org/standards/05rm/html/RM-13-7-2.html#I4643 A. Vo