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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,62ea712965950abb
X-Google-Attributes: gid103376,public
From: jsa@alexandria.organon.com (Jon S Anthony)
Subject: Re: Ada tagged types not as powerful as C++ for dispatching???
Date: 1997/08/16
Message-ID: <JSA.97Aug16191349@alexandria.organon.com>#1/1
X-Deja-AN: 264635910
References: <33F4D31F.6E511B93@mci.com>
Distribution: world
Organization: PSINet
Newsgroups: comp.lang.ada
Date: 1997-08-16T00:00:00+00:00
List-Id: <comp.lang.ada>


In article <33F4D31F.6E511B93@mci.com> Troy Noble <Troy.Noble@mci.com> writes:

>   A_Figure := Figures.Figure_Ptr(C2_Ptr);
>   -- previous line: operand has deeper accessibility level than target

This does not look correct.  Neither the access types nor the object
decls have different access levels.  The following works fine under
both gnat305 and gnat309 (both sparc.solaris)

with Figures;  use Figures;
procedure Fig_Test is
    C2_Ptr  : Circle_Ptr;
    A_Figure: Figures.Figure_Ptr;
begin
    A_Figure := new Figures.Circle;        -- line (1)
    C2_Ptr := Circle_Ptr(A_Figure);        -- line (2)
    C2_Ptr := new Figures.Circle;
    A_Figure := Figure_Ptr(C2_Ptr);
end;


What compiler are you using?

/Jon
-- 
Jon Anthony
OMI, Belmont, MA 02178, 617.484.3383 
"Nightmares - Ha!  The way my life's been going lately,
 Who'd notice?"  -- Londo Mollari