Re: Giving a package specification access to the private types of another package

[news01+Steven.Murdoch@cl.cam.ac.uk (Steven Murdoch)]

In article <slrnavbse4.5r4.randhol+news@kiuk0152.chembio.ntnu.no>,
 Preben Randhol <randhol+news@pvv.org> writes:
>make A a child package of B
>
>B.A

Here is an example of the code I currently have. The error I get is:
""Private_Type" is not visible" for b-a.ads

--b.ads
package B is
   procedure Proc_B;
private
    type Private_Type is new Integer;
end B;

--b.adb
with B.A;
package body B is
   procedure Proc_B is
      Temp: Private_Type;
   begin
      A.Foobar(Temp);
   end;
end B;

--b-a.ads
package B.A is
   -- "Private_Type" is not visible
   -- non-visible (private) declaration at b.ads:4
   procedure Foobar(Temp: in Private_Type);
end B.A;

--b-a.adb
package body B.A is
   procedure Foobar(Temp: in Private_Type) is
   begin
      null;
   end;
end B.A;

Thank you,
Steven Murdoch.