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,1cd7fdac64d4639b,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2000-10-22 19:32:23 PST
Path: 
 supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!cyclone-sjo1.usenetserver.com!news-out.usenetserver.com!newshub2.rdc1.sfba.home.com!news.home.com!news1.frmt1.sfba.home.com.POSTED!not-for-mail
From: tmoran@bix.com
Newsgroups: comp.lang.ada
Subject: losing visibility
X-Newsreader: Tom's custom newsreader
Message-ID: <WqNI5.348353$i5.5348409@news1.frmt1.sfba.home.com>
Date: Mon, 23 Oct 2000 02:32:22 GMT
NNTP-Posting-Host: 24.20.190.201
X-Complaints-To: abuse@home.net
X-Trace: news1.frmt1.sfba.home.com 972268342 24.20.190.201 (Sun,
 22 Oct 2000 19:32:22 PDT)
NNTP-Posting-Date: Sun, 22 Oct 2000 19:32:22 PDT
Organization: @Home Network
Xref: supernews.google.com comp.lang.ada:1479
Date: 2000-10-23T02:32:22+00:00
List-Id: <comp.lang.ada>

Would someone please refresh my memory as to why "nucleus" should
become invisible in:

package one is
  type root is tagged private;
private
  type root is tagged record
    nucleus : integer;
  end record;
end one;

package one.two is
  package three is
    type child is new one.root with private;
  private
    type child is new one.root with record
      electrons : integer;
    end record;
  end three;

  package four is
    type grandkid is new three.child with null record;
    procedure initialize(x : in out grandkid);
  end four;

end one.Two;

package body one.Two is
  package body four is
    procedure initialize(x : in out grandkid) is
    begin
      x.nucleus := 1;      -- <<<<<<<<<<<<<< BAD nucleus not visible
    end initialize;
  end four;

  y : four.grandkid;

begin
  one.root(y).nucleus := 2;  -- <<<<<<<<<<<<<< OK, nucleus visible
  y.nucleus := 3;            -- <<<<<<<<<<<<<< BAD, nucleus not visible

end one.Two;

with one.Two;
procedure testvis is
begin null;end testvis;