From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: Georg Bauhaus <bauhaus@futureapps.invalid>
Newsgroups: comp.lang.ada
Subject: Re: Addressing in Object Ada v/s GNAT (2013) showing Vast Differences
Date: Mon, 21 Sep 2015 15:52:04 +0200
Organization: A noiseless patient Spider
Message-ID: <mtp1ul$rqq$1@dont-email.me>
References: <d9a8f605-fbcf-43bf-a53f-91c7f7608461@googlegroups.com>
 <ca55984c-17ca-4295-a43d-46300bf255e4@googlegroups.com>
 <msrt8o$fdm$1@dont-email.me>
 <26b4bb33-0ebc-4181-bea6-07f1e36ca288@googlegroups.com>
 <871tds56jw.fsf@adaheads.sparre-andersen.dk>
 <2c064071-2e40-4267-81f6-3196d7ae35ab@googlegroups.com>
Reply-To: nonlegitur@futureapps.de
Mime-Version: 1.0
Content-Type: text/plain; charset=windows-1252; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 21 Sep 2015 13:50:13 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="b96887e80893c84a90c3007226ca0d1c";
	logging-data="28506"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1+EXmYqSQ3e56zm2nSWYXkVVpIVV2yTdzY="
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.9; rv:38.0)
 Gecko/20100101 Thunderbird/38.2.0
In-Reply-To: <2c064071-2e40-4267-81f6-3196d7ae35ab@googlegroups.com>
Cancel-Lock: sha1:YGoGyn67CGsofBRwAopZQ/O4rp8=
Xref: news.eternal-september.org comp.lang.ada:27801
Date: 2015-09-21T15:52:04+02:00
List-Id: <comp.lang.ada>

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;