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-10 02:39:23 PST From: Albert Organization: Pengüin Vill@ge Subject: Re: Instantiating generics Date: Wed, 10 Dec 2003 11:36:58 +0100 User-Agent: Pan/0.14.0 (I'm Being Nibbled to Death by Cats!) Message-ID: Newsgroups: comp.lang.ada References: MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit NNTP-Posting-Host: docs19-251.menta.net X-Trace: 10 Dec 2003 11:45:38 +0100, docs19-251.menta.net Path: archiver1.google.com!news2.google.com!newsfeed2.dallas1.level3.net!news.level3.com!crtntx1-snh1.gtei.net!chcgil2-snh1.gtei.net!news.bbnplanet.com!nycmny1-snf1.gtei.net!news.gtei.net!colt.net!news.tele.dk!news.tele.dk!small.news.tele.dk!news2.telebyte.nl!teleglobe.net!teleglobe.net!62.81.31.29.MISMATCH!cyclone.auna.com!news-feeder.eresmas.com!garse!news.cablecat.com!docs19-251.menta.net Xref: archiver1.google.com comp.lang.ada:3301 Date: 2003-12-10T11:36:58+01:00 List-Id: On Tue, 09 Dec 2003 06:10:20 -0600, David C. Hoos wrote: > 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? Yes, of course, i'm sorry about that.... albert@itaka:~/Ada/practica$ gnatmake demostration.adb gnatgcc -c demostration.adb demostration.adb:8:18: warning: not dispatching (must be defined in a package spec) demostration.adb:13:09: missing actual for instantiation of "Is_Valid" demostration.adb:13:09: instantiation abandoned gnatmake: "demostration.adb" compilation error Albert > > "Albert" 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 >> >>