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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:ac8:6d3b:: with SMTP id r27mr20696130qtu.55.1586935232237;
 Wed, 15 Apr 2020 00:20:32 -0700 (PDT)
X-Received: by 2002:aca:cf48:: with SMTP id
 f69mr16548123oig.122.1586935231864; Wed, 15 Apr 2020 00:20:31 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!2.eu.feeder.erje.net!feeder.erje.net!nntp.speedium.network!feeder01!2a00:1d38:feed:2:a11:feed:feed:1.MISMATCH!feeder1.feed.usenet.farm!feed.usenet.farm!feeder.usenetexpress.com!tr3.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: Wed, 15 Apr 2020 00:20:31 -0700 (PDT)
In-Reply-To: <5e95a814$0$1701$e4fe514c@news.kpn.nl>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=91.169.209.222;
 posting-account=6yLzewoAAABoisbSsCJH1SPMc9UrfXBH
NNTP-Posting-Host: 91.169.209.222
References: <5e956327$0$1635$e4fe514c@news.kpn.nl>
 <r745dg$eqh$1@dont-email.me> <5e95a814$0$1701$e4fe514c@news.kpn.nl>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <b32fc764-f6dd-4c4d-8cfd-4b9ea968a86b@googlegroups.com>
Subject: Re: Put the access value
From: briot.emmanuel@gmail.com
Injection-Date: Wed, 15 Apr 2020 07:20:32 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:58360
Date: 2020-04-15T00:20:31-07:00
List-Id: <comp.lang.ada>


The approach I tend to use is using `System.Address_Image`:


   El  : Buffer_Pointer := LastBuffer; 
   ...

   if El /= null then
      Ada.Text_IO.Put_Line (System.Address_Image (El.all'Address));
   end if;

or if this is for slightly longer term

   function Convert is new Ada.Unchecked_Conversion
     (Buffer_Pointer, System.Address);
   Ada.Text_IO.Put_Line (System.Address_Image (Convert (El));

This is really just for quick debugging, and the code is never (really, I swear) committed... Otherwise, I would go to the trouble of creating an `Image` function and use that