5 type XString is new Ada.Finalization.Controlled with record
9 Null_XString : constant XString := (Ada.Finalization.Controlled with B => False);
11 type XString_Array is array (Natural range <>) of XString;
13 type Rec (Count : Positive) is record
14 Seps : XString_Array (2 .. Count);
17 type Rec_Access is access all Rec;