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-7-bit X-Google-Thread: 103376,d58fe1ff04da7fd7 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-08-16 12:44:08 PST Path: archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!colt.net!dispose.news.demon.net!news.demon.co.uk!demon!pogner.demon.co.uk!zap!not-for-mail From: Simon Wright Newsgroups: comp.lang.ada Subject: Re: Ambiguous reference - What is wrong with this? Date: 15 Aug 2001 07:17:11 +0100 Organization: CodeFella Message-ID: References: <9lbf8n$brf$1@nh.pace.co.uk> NNTP-Posting-Host: localhost X-NNTP-Posting-Host: pogner.demon.co.uk:158.152.70.98 X-Trace: news.demon.co.uk 997991020 nnrp-12:17583 NO-IDENT pogner.demon.co.uk:158.152.70.98 X-Complaints-To: abuse@demon.net NNTP-Posting-Date: 15 Aug 2001 06:17:11 GMT X-Newsreader: Gnus v5.7/Emacs 20.7 Xref: archiver1.google.com comp.lang.ada:12008 Date: 2001-08-15T06:17:11+00:00 List-Id: tmoran@acm.org writes: > I think the problem occurs back at > package Root.Child1 is > type Derive1 is new Base with private ; > inherits > procedure Some_Proc ( > Object : in out Derive1; -- was Base > Object2 : in out Base'Class) ; > and then you declare another procedure, with a different second parameter, > procedure Some_Proc ( > Object : in out Derive1; > Object2 : in out Derive1'Class) ; > now which is > Root.Child1.Some_Proc ( > Object => Root.Child1.Derive1 (Object), > Object2 => Object2) ; -- in Derive1'Class and Base'Class > supposed to be calling? Root.Child1.Some_Proc ( Object => Root.Child1.Derive1 (Object), Object2 => Root.Base'Class (Object2)) ; compiles OK (GNAT 3.14a)