Re: Using pointers with inline assembly in Ada

["Luke A. Guest" <laguest@archeia.com>]

On 10/06/2022 06:24, Rod Kay wrote:
> 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.

Dump the xpanded (generated code) and the assembly from gnat.