Re: Pointer to Array

[Robert A Duff <bobduff@shell01.TheWorld.com>]

shaunpatterson@gmail.com writes:

> -- system 1
>     type INT_ARRAY is new Integer (1..SYSTEM_1_SIZE);
>
>     Int_Array_Var : INT_ARRAY;

The above doesn't seem right -- not sure what you really meant.

>     if usingSystem1 then
>         Int_array_Var = "pointer to Int_Array_Var_System1"

You can do something like:

    type Int_Array_Ref is access all INT_ARRAY;
    Int_Array_Var : Int_Array_Ref;
    ...
    if .,. then
        Int_Array_Var := Int_Array_Var_System1'Access;
        -- Make Int_Array_Var point to Int_Array_Var_System1.
    ...

You need to make the variables "aliased" -- otherwise,
'Access is illegal.  You might need to add ".all" in
a few places, but in most contexts (including A'Range,
and A(I)), the ".all" is implicit.

But it might be cleaner to pass the arrays around as parameters.

- Bob