From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on
	ip-172-31-65-14.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-3.2 required=3.0 tests=BAYES_00,NICE_REPLY_A,
	T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6
Path: eternal-september.org!reader01.eternal-september.org!news.szaf.org!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Niklas Holsti <niklas.holsti@tidorum.invalid>
Newsgroups: comp.lang.ada
Subject: Re: Carbon
Date: Fri, 2 Sep 2022 20:55:34 +0300
Organization: Tidorum Ltd
Message-ID: <jneucmFn478U1@mid.individual.net>
References: <f91d8f78-d92f-4200-a1bd-dce840bf0400n@googlegroups.com>
 <tbj438$1eab$1@gioia.aioe.org>
 <f88660da-350c-40df-ac70-a644e6f30661n@googlegroups.com>
 <tbqs0t$104n$1@gioia.aioe.org> <tbrsd7$2iq3d$1@dont-email.me>
 <993af397-b615-44e7-ae8d-ec706f9b6098n@googlegroups.com>
 <5f819cdd-e763-4a96-aed5-545d57edac23n@googlegroups.com>
 <a68c8311-6430-4956-9e82-eaed3a962114n@googlegroups.com>
 <877d2u21ps.fsf@nightsong.com>
 <bf592477-feba-418a-b1aa-17bbc81e7f76n@googlegroups.com>
 <8735di1y6a.fsf@nightsong.com> <teecue$dupe$1@dont-email.me>
 <87ler9ywye.fsf@nightsong.com> <tefalc$j9vn$1@dont-email.me>
 <teg8va$m5ah$1@dont-email.me> <tepkfj$23i1l$1@dont-email.me>
 <tet3b1$2hvdn$1@dont-email.me> <tet5o2$2hhu0$1@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: individual.net Db8gBBuhSZ2ZvgGnmz3yFAt9E9bA4tpAyFc8QjOoReFnmojktf
Cancel-Lock: sha1:Vdl/CuG4K89VbuSf8HxcptYwEoA=
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.14; rv:102.0)
 Gecko/20100101 Thunderbird/102.1.2
Content-Language: en-US
In-Reply-To: <tet5o2$2hhu0$1@dont-email.me>
Xref: reader01.eternal-september.org comp.lang.ada:64276
List-Id: <comp.lang.ada>

On 2022-09-02 17:59, J-P. Rosen wrote:
> Le 02/09/2022 à 16:18, G.B. a écrit :
>> On 01.09.22 08:46, J-P. Rosen wrote:
>>> Le 28/08/2022 à 19:34, G.B. a écrit :
>>>> Also the convenience of being able to compare two objects for
>>>> being the same object, using "===" in some languages---out of the box!
>>>>
>>>> procedure same_object (A : T; B in out T) is
>>>> begin
>>>>    what_do_i_put_here; --  ?
>>>       A'Has_Same_Storage (B);
>>>> end same_object;
>>>
>>> Of course, this procedure should be a function...
>>
>> Cool, new attributes.
>>
>> Is the expectation that A and B occupy the same
>> bits if I pass the same X as an actual for both?
> Yes.


Surely only if their type (T, above) is passed by-reference?

G.B.'s post had a later example where T is "range 1 .. 10", which is a 
by-copy type, so there A and B would be separate copies of X.