Re: Array access via pointer?

["Ken Garlington" <Ken.Garlington@computer.org>]

"Michael Carman" <mjcarman@home.com> wrote in message
news:3988269B.D1DB4EA5@home.com...

[snip]

> My example was simplified to illustrate the problem I was having.
> Unfortunately, it oversimplified the situation a bit. I wasn't passing
> in a pointer to an array just for fun. I determine which array to
> process in a completely seperate part of the program.

[snip]

> [To further complicate things, I can't use 'Access -- I'm trying to keep
> my code Ada83 compatible -- I know how to work around it, it's just
> messier.]

Well, the Ada95 approach using 'Access is certainly much easier, but if you
have to stick with Ada83, IIRC we had some luck with the following:

---
with System, Unchecked_Conversion;
package Address_Fun is

  type Addr_Table_Values is array (Natural range <>) of System.Address;

 -- First, Last can be changed to Length if desired
  type Addr_Table (First, Last: Natural) is record
     Values: Addr_Table_Values(First .. Last);
  end record;

  type Addr_Table_Access is access Addr_Table;

  function To_Addr_Table_Access is new Unchecked_Conversion (System.Address,
Addr_Table_Access);

  procedure Foo (Table: in Addr_Table_Access; I: in Integer);

end Address_Fun;