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.3 required=5.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail From: "Dmitry A. Kazakov" Newsgroups: comp.lang.ada Subject: Re: I'm facing an issue with: call to abstract procedure must be dispatching Date: Tue, 8 Dec 2015 18:04:50 +0100 Organization: cbb software GmbH Message-ID: <1krm4xun4e4ny.jmh9kvf6s0a9.dlg@40tude.net> References: <8bc7fd76-f00a-4eea-9715-470af028fc84@googlegroups.com> Reply-To: mailbox@dmitry-kazakov.de NNTP-Posting-Host: Sfz0eNwKWh4Uq03iti+GMw.user.speranza.aioe.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Complaints-To: abuse@aioe.org User-Agent: 40tude_Dialog/2.0.15.1 X-Notice: Filtered by postfilter v. 0.8.2 Xref: news.eternal-september.org comp.lang.ada:28709 Date: 2015-12-08T18:04:50+01:00 List-Id: On Tue, 8 Dec 2015 08:45:52 -0800 (PST), Serge Robyns wrote: [...] > procedure test is > type T_Store is new T_Asbtract_Store with null record; > overriding procedure Insert (Store : in out T_Store; > Client : in T_Client'Class) is > begin > null; > end Insert; > > A_Store : access T_Asbtract_Store; > The_Store : aliased T_Store; > Client : T_Client; > begin > A_Store := T_Asbtract_Store (The_Store)'Access; > A_Store.Insert (Client); > end test; No idea what you are trying to achieve, but the above should have been: The_Store : aliased T_Store; Client : T_Client; begin The_Store.Insert (Client); -- Regards, Dmitry A. Kazakov http://www.dmitry-kazakov.de