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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,5c35b354395e0f78
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news.glorb.com!news.tele.dk!not-for-mail
Sender: malo@0x535ddc22.boanxx18.adsl-dhcp.tele.dk
Newsgroups: comp.lang.ada
Subject: Re: Easy Question - Printing Out An Address
References: <1110391414.401563.271160@o13g2000cwo.googlegroups.com>
 <j3u1im4ngoy2.122c9j7u323au$.dlg@40tude.net>
 <1110402549.485397.326230@z14g2000cwz.googlegroups.com>
From: Mark Lorenzen <mark.lorenzen@surfpost.dk>
Date: 09 Mar 2005 22:22:46 +0100
Message-ID: <m3sm34jyzd.fsf@0x535ddc22.boanxx18.adsl-dhcp.tele.dk>
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Organization: TDC Totalloesninger
NNTP-Posting-Host: 83.93.220.34
X-Trace: 1110403367 dtext01.news.tele.dk 175 83.93.220.34:64562
X-Complaints-To: abuse@post.tele.dk
Xref: g2news1.google.com comp.lang.ada:8976
Date: 2005-03-09T22:22:46+01:00
List-Id: <comp.lang.ada>

Bryan.Berns@gmail.com writes:

> Thanks.  The Address_Image method worked perfectly.  Now I'm working
> with trying to do the same with a type of Address_Int.   Any input
> appreciated.

What about:

with Ada.Text_IO;
with System.Storage_Elements;

procedure Print_Int_Address is
   package SE renames System.Storage_Elements;
     
   My_Var      : Positive; -- Or some other type.
   Sys_Address : System.Address;
   Int_Address : SE.Integer_Address;
begin
   Sys_Address := My_Var'Address;
   Int_Address := SE.To_Integer (Sys_Address);
   Ada.Text_IO.Put_Line ("Address is:" &
			 SE.Integer_Address'Image (Int_Address));
end Print_Int_Address;

Regards,
- Mark Lorenzen