From: "M. A. Alves" <maa@liacc.up.pt>
To: <comp.lang.ada@ada.eu.org>
Subject: Re: Ada Address = C pointer ?
Date: Tue, 30 Oct 2001 10:30:30 +0000 (GMT)
Date: 2001-10-30T10:30:30+00:00 [thread overview]
Message-ID: <mailman.1004438597.846.comp.lang.ada@ada.eu.org> (raw)
In-Reply-To: <XplD7.89302$gT6.45832808@news1.rdc1.sfba.home.com>
On Mon, 29 Oct 2001 tmoran@acm.org wrote:
> >very surprised if System.Address had a different representation from char*
> >or void*.
> Hold onto your hat! The program
> with system;
> with ada.text_io;
> procedure junk is
> x : integer;
> a : constant system.address := x'address;
> package sio is new ada.text_io.integer_io(system.word);
> package oio is new ada.text_io.integer_io(system.offset_type);
> begin
> sio.put(a.segment, base=>16);
> oio.put(a.offset, base=>16);
> ada.text_io.new_line;
> end junk;
> compiles (Janus compiler) and runs, producing
> 16#157# 16#60FCD4#
> on the Windows 95 system I'm posting from.
Interesting. The code is incompatible with GNAT.
The original issue in this thread is the set of equivalences:
Ada C
--------------------
Address * void
Address * char
Null_Address NULL
GNAT seems to honor these equivalences. Does Janus?
--
,
M A R I O data miner, LIACC, room 221 tel 351+226078830, ext 121
A M A D O Rua Campo Alegre, 823 fax 351+226003654
A L V E S P-4150 PORTO, Portugal mob 351+939354002
next prev parent reply other threads:[~2001-10-30 10:30 UTC|newest]
Thread overview: 25+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-10-26 18:53 Ada Address = C pointer ? M. A. Alves
2001-10-26 18:09 ` Lutz Donnerhacke
2001-10-26 21:06 ` Florian Weimer
2001-10-26 19:34 ` Mark Johnson
2001-10-26 23:39 ` tmoran
2001-10-29 13:07 ` M. A. Alves
2001-10-29 20:19 ` Matthew Heaney
2001-10-29 23:15 ` tmoran
2001-10-30 10:30 ` M. A. Alves [this message]
2001-10-30 19:53 ` tmoran
2001-10-31 13:01 ` M. A. Alves
2001-10-31 14:44 ` Marin David Condic
2001-10-30 9:58 ` M. A. Alves
2001-10-30 12:02 ` Lutz Donnerhacke
2001-10-30 12:53 ` M. A. Alves
2001-10-30 12:56 ` Lutz Donnerhacke
2001-10-30 14:26 ` M. A. Alves
2001-10-30 14:19 ` Matthew Heaney
2001-10-30 14:41 ` M. A. Alves
2001-10-30 17:10 ` Mark Johnson
2001-10-30 18:01 ` M. A. Alves
2001-10-30 20:23 ` tmoran
2001-10-31 13:13 ` M. A. Alves
2001-10-30 19:53 ` tmoran
2001-10-29 23:15 ` tmoran
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox