From: jsa@alexandria.organon.com (Jon S Anthony)
Subject: Re: Ada tagged types not as powerful as C++ for dispatching???
Date: 1997/08/16
Date: 1997-08-16T00:00:00+00:00 [thread overview]
Message-ID: <JSA.97Aug16191349@alexandria.organon.com> (raw)
In-Reply-To: 33F4D31F.6E511B93@mci.com
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
next prev parent reply other threads:[~1997-08-16 0:00 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-08-15 0:00 Ada tagged types not as powerful as C++ for dispatching??? Troy Noble
1997-08-16 0:00 ` Jon S Anthony [this message]
1997-08-18 0:00 ` Troy Noble
1997-08-18 0:00 ` Robert A Duff
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox