From: Tom Moran <tmoran@bix.com>
Subject: Ada 95 visibility question
Date: 1997/09/20
Date: 1997-09-20T00:00:00+00:00 [thread overview]
Message-ID: <3424860A.2777@bix.com> (raw)
Of three compilers I tried this on, 2 took it happily and one said it
couldn't find such a thing as "peek_a_boo" at the place indicated.
What's correct?
package c is
type root is tagged private;
private
type root is tagged record
peek_a_boo:integer;
end record;
end c;
package c.d is
type dialog is new c.root with private;
private
type dialog is new c.root with record
dd:integer;
end record;
end c.d;
with c.d;
package c.f is
type file_dialog is new c.d.dialog with private;
procedure p(x:in out file_dialog);
private
type file_dialog is new c.d.dialog with record
ff:integer;
end record;
end c.f;
package body c.f is
procedure p(x:in out file_dialog) is
y:integer;
begin
y:=root(x).peek_a_boo;
y:=x.peek_a_boo; 1/3 of compilers tested complained
end p;
end c.f;
with c.f;
procedure bug1 is
f:c.f.file_dialog;
begin
c.f.p(f);
end bug1;
next reply other threads:[~1997-09-20 0:00 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-09-20 0:00 Tom Moran [this message]
1997-09-22 0:00 ` Ada 95 visibility question Robert A Duff
-- strict thread matches above, loose matches on Subject: below --
1997-09-25 0:00 Chris Sparks (Mr. Ada)
1997-09-25 0:00 ` Bruce Link
1997-09-25 0:00 ` Tucker Taft
1997-09-26 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