16 lines
304 B
Ada
16 lines
304 B
Ada
|
limited with Parent_Ltd_With.Child_Full_View;
|
||
|
|
||
|
package Parent_Ltd_With is
|
||
|
|
||
|
type Symbol is abstract tagged limited private;
|
||
|
|
||
|
type Symbol_Access is access all Symbol'Class;
|
||
|
|
||
|
private
|
||
|
|
||
|
type Symbol is abstract tagged limited record
|
||
|
Comp : Integer;
|
||
|
end record;
|
||
|
|
||
|
end Parent_Ltd_With;
|