Re: Record initialisation question

[Shark8 <onewingedshark@gmail.com>]

> I'll try it but I've just faced another problem where a component of 
> another record is the address of the record itself. 

    Type Example;
    Function To_Address( Input : Access Example ) return System.Address
       with Inline;
    
    Type Example is limited record
        Addr : System.Address := To_Address(Example'Access);
    End record;
    
    Package Cvt is new System.Address_To_Access_Conversions(Example);
    Function To_Address( Input : Access Example ) return System.Address is
      ( Cvt.To_Address( Input.all'Access ) );