blob: c5e03f58ee9fdd5a4b8695a4eba840f25783ee0a [file] [log] [blame]
with Ada.Finalization;
generic
package Equal4_Smart_Pointers is
type Pointer is private;
private
type Pointer is new Ada.Finalization.Controlled with record
Data : Integer;
end record;
end Equal4_Smart_Pointers;