blob: 80926103214beb14238acf3f3c3422ffa46a70ef (
plain)
1
2
3
4
5
6
7
8
9
|
package Tagged_Type_Pkg is
type TT is tagged limited record
Self : access TT'Class := TT'Unchecked_Access;
end record;
function Pass_TT_Access (Obj : access TT'Class) return access TT'Class;
end Tagged_Type_Pkg;
|