Re: Using pointers with inline assembly in Ada

[Rod Kay <rodakay5@gmail.com>]

On 10/6/22 07:30, NiGHTS wrote:
> declare
>           type ff is array (0 .. 10) of Unsigned_32;
>           pragma Pack(ff);
>           Flags : aliased ff := (others => 0);
>           Flag_Address : System.Address := Flags'Address;
> begin
>          Asm (   "movl %0, %%eax" &
>                  "movl $1, (%%eax)" ,
>                  Inputs   => System.Address'Asm_Input ("g", Flag_Address),
>                  Clobber  => "eax",
>                  Volatile => true
>          );
>          Put_Line ("Output:" & Flags(0)'Img);
> end;
> 

    If you are on a 64 bit machine, then I expect 'pragma Pack' might be 
the problem, as 2 consecutive array elements will fir into a single address.


    Also, possibly use ...

    Flag_Address : System.Address := Flags (Flags'First)'Address;


Regards.