Re: Array access via pointer?

[Markku Kotiaho <mark.kotiaho@lmco.com>]

Michael Carman wrote:

> ...:
>
> type Addr_Table is array (Natural range <>) of System.Address;
>
> Arr1 : Addr_Table (0 .. 100);
> Arr2 : Addr_Table (0 .. 20);
>
> procedure Foo (Addr : in System.Address;
>                I    : in Integer) is
> begin
>     -- Do something with index I of the array at Addr
> end Foo;

You could just change Foo to something like:
procedure Foo (Addr_Table_Entry : in System.Address);

And call it with something like:
Foo(Arr2(7));

Inside Foo, you can get at the array element which you sent with:
Data := Addr_Table_Entry;

> .... It
> seems to me that there should be a way to do this without having to
> fight against the language. So, what's the canonical way of doing
> this in Ada?
>
> -mjc

This may not be the "canonical way," but that would probably require
rethinking your design entirely.

MK