blob: 2f1052be98158d4a3836ce6266c3222998fb3f98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
with Ada.Finalization;
generic
type T is private;
package Controlled6_Pkg is
type Node_Type is record
Item : T;
end record;
type Node_Access_Type is access Node_Type;
end Controlled6_Pkg;
|