Re: Ada Address = C pointer ?

[tmoran@acm.org]

>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.