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-Language: ENGLISH,ASCII
X-Google-Thread: 103376,1aa620874a64e7a6
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-12-09 04:10:29 PST
Path: 
 archiver1.google.com!news2.google.com!newsfeed2.dallas1.level3.net!news.level3.com!crtntx1-snh1.gtei.net!news.gtei.net!newsfeed1.easynews.com!easynews.com!easynews!bigfeed2.bellsouth.net!bigfeed.bellsouth.net!bignumb.bellsouth.net!news.bellsouth.net!bignews4.bellsouth.net.POSTED!not-for-mail
From: "David C. Hoos" <david.c.hoos.sr@ada95.com>
Newsgroups: comp.lang.ada
References: <pan.2003.12.09.10.02.31.801470@menta.net>
Subject: Re: Instantiating generics
MIME-Version: 1.0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <RXiBb.5057$4t2.4635@bignews4.bellsouth.net>
X-Trace: 
 npbhgpngjbkmjfegdbdpiflmbcekedmfhojhikkbagflhcbopaojeehcpkckfejkcpkmcldicdbcnonalkbpaicfociahjpihnjbdidboiflfmpgihbbjoldfngcmehnkcemhdmjgojnhddaeaibfkdolpmeppbl
NNTP-Posting-Date: Tue, 09 Dec 2003 07:09:21 EST
Date: Tue, 9 Dec 2003 06:10:20 -0600
Xref: archiver1.google.com comp.lang.ada:3269
Date: 2003-12-09T06:10:20-06:00
List-Id: <comp.lang.ada>

We would be more able to help you if you told us what the
problem is -- e.g., what error message did you get from the
compiler?

"Albert" <weeper_MATEMLSPAM_@menta.net> wrote in message
news:pan.2003.12.09.10.02.31.801470@menta.net...
> I'm trying to instantiate the Queue_Manager_1 example from 12.3
> Ada Distillier, the problem is the function Is_Valid.
>
> with Queue_Manager_1;
>
> procedure Demostration is
> type O_Positive is tagged
> record
> Val:Positive;
> end record;
> function Is_Valid(Data:O_Positive) return Boolean is
> begin
> return True;
> end Is_Valid;
> package QMP is new Queue_Manager_1(Element=>O_Positive);
> begin
> null;
> end Demostration;
>
>
> Can anyone help me�.
> thanks
>
> Albert
>
>
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada
>
>