Re: [announcement] SYSAPI and SYSSVC for Windows

["Michal Morawski" <morawski@zsk.p.lodz.pl>]

Try:
       O.B := O.A(1)'Unchecked_Access; -- This is OK, A(i) are aliased
'Access does not work because in the procedure You are getting address of
the variable (may be) on the stack

Michal Morawski

"Ekkehard Morgenstern" <ekkehard.morgenstern@onlinehome.de> wrote in message
news:bs4fbr$g8f$1@online.de...
>
> "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de> wrote:
> >   type T is limited private;
> > private
> >    type Integer_Array is array (Integer range <>) of aliased Integer;
> >    type T is limited record
> >       A : Integer_Array (1..3);
> >    end record;
> >
> >    procedure F (O : in out T ) is
> >    begin
> >        ... O.A(1)'Access; -- This is OK, A(i) are aliased
> >    end;
> >
> > If the array elements be tagged, then you would need not write "aliased"
in
> > the array declaration.
>
> try to compile it!
>
> GNAT spat out an error message for it: "non-local pointer cannot point to
local object"
>
> Here's the source, Luke:
>
>  1: procedure ttest0 is
>  2:    type Integer_Array is array (Integer range <>) of aliased Integer;
>  3:    type Integer_Access is access all Integer;
>  4:    type T is limited record
>  5:       A : Integer_Array (1..3);
>  6:       B : Integer_Access;
>  7:    end record;
>  8:    procedure F( O : in out T ) is
>  9:    begin
> 10:        O.B := O.A(1)'Access; -- This is OK, A(i) are aliased
> 11:    end;
> 12:    O1 : T;
> 13: begin
> 14:    F( O1 );
> 15: end ttest0;
>
> ttest0.adb:10:17: non-local pointer cannot point to local object
> gnatmake: "ttest0.adb" compilation error
>
> So, what's wrong with it?
>