Re: Addressing in Object Ada v/s GNAT (2013) showing Vast Differences

[Georg Bauhaus <bauhaus@futureapps.invalid>]

On 21.09.15 15:22, Lucas Redding wrote:
> On Monday, September 21, 2015 at 12:57:09 PM UTC+1, Jacob Sparre Andersen wrote:
>> Lucas Redding wrote:
>>
>> Your examples don't compile.  Please show us the actual code.
>>
>> Greetings,
>>
>> Jacob
>> --
>> "Very small. Go to sleep" - monster (not drooling)
>
> Hi Jacob
>
> thanks for that. I am avoiding having to flood this with tons of code. So here is a compiled example.
>
> package interface_p
> is
  (...)
> end INTERFACE_P ;
>

Is this happening only when you read from the shared location?
I see the output
local a:     1, local b:     2
from the following program, compiled using GNAT GPL 2014 on a Mac:

With Ada.Text_IO;
with INTERFACE_P; use INTERFACE_P;
procedure Test_Interface_P
is
    It : local_rec;
begin
    It := READ_RECORD;
    
    declare
       use Ada;
       package Xintio is new Text_IO.Integer_IO (sixteen_bits);
    begin
       Text_Io.Put ("local a:"); Xintio.Put (It.a);
       Text_Io.Put (", local b:"); Xintio.Put (It.b);
       Text_Io.New_Line;
    end;

end Test_Interface_P;