From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=0.5 required=3.0 tests=BAYES_05,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.5-pre1
X-Received: by 2002:ac8:2af9:: with SMTP id c54mr1723254qta.362.1610401714032; Mon, 11 Jan 2021 13:48:34 -0800 (PST)
X-Received: by 2002:a5b:107:: with SMTP id 7mr2622528ybx.253.1610401713863; Mon, 11 Jan 2021 13:48:33 -0800 (PST)
Path: eternal-september.org!reader02.eternal-september.org!news.uzoreto.com!tr3.eu1.usenetexpress.com!feeder.usenetexpress.com!tr1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Mon, 11 Jan 2021 13:48:33 -0800 (PST)
In-Reply-To: <5ffb2e50$0$24253$426a74cc@news.free.fr>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=146.5.2.231; posting-account=lJ3JNwoAAAAQfH3VV9vttJLkThaxtTfC
NNTP-Posting-Host: 146.5.2.231
References: <5ff9779d$0$24281$426a74cc@news.free.fr> <rtc1hv$1592$1@gioia.aioe.org> <5ffb2e50$0$24253$426a74cc@news.free.fr>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <2ed4c7a5-59a0-41a1-8e68-30f22bcdb5a4n@googlegroups.com>
Subject: Re: Record initialisation question
From: Shark8 <onewingedshark@gmail.com>
Injection-Date: Mon, 11 Jan 2021 21:48:34 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:61103
List-Id: <comp.lang.ada>

> 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 ) );