blob: 65e4e72ab55845166008230f8d99fde0ac14e6f0 [file] [log] [blame]
package pointer_protected_p is
type T;
type Ptr is access protected procedure (Data : T);
type T is record
Data : Ptr;
end record;
end pointer_protected_p;