From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a37:387:: with SMTP id 129mr558468qkd.147.1587222534779;
        Sat, 18 Apr 2020 08:08:54 -0700 (PDT)
X-Received: by 2002:a9d:1a6:: with SMTP id e35mr3078207ote.240.1587222534488;
 Sat, 18 Apr 2020 08:08:54 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!fdn.fr!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 18 Apr 2020 08:08:54 -0700 (PDT)
In-Reply-To: <r73phu$58a$1@dont-email.me>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com;
 posting-host=2003:e7:ff19:f49:4177:61e2:8f79:f178;
 posting-account=Md_OIgoAAAAkZyQ6nYoc3WBIThMpPfV7
NNTP-Posting-Host: 2003:e7:ff19:f49:4177:61e2:8f79:f178
References: <5e956327$0$1635$e4fe514c@news.kpn.nl>
 <r73phu$58a$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <f62496ca-9aeb-4544-aa8d-6d5b5cbcd79e@googlegroups.com>
Subject: Re: Put the access value
From: Oliver Kellogg <olivermkellogg@gmail.com>
Injection-Date: Sat, 18 Apr 2020 15:08:54 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Xref: reader01.eternal-september.org comp.lang.ada:58404
Date: 2020-04-18T08:08:54-07:00
List-Id: <comp.lang.ada>

On Tuesday, April 14, 2020 at 9:42:56 AM UTC+2, J-P. Rosen wrote:
> Le 14/04/2020 =C3=A0 09:15, ldries46 a =C3=A9crit=C2=A0:
> > [...]
> In Ada, a pointer is not an integer and has no 'Image attribute. A
> pointer is not an address either. Of course, for debugging you can
> indulge your self to constructs that would be thrown at for long term
> maintenance. So...
>=20
> 1) Use Unchecked_Conversion to convert it to an appropriate integer type
>=20
> 2) use package Address_To_Access conversion to convert your pointer to
> an address, then System.Storage_Elements.To_Integer to convert the
> address to Integer_Address, which is an integer type.

There's also the sledgehammer-to-crack-a-nut solution:

https://github.com/persan/auto-io-gen

- Oliver