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=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.gegeweb.eu!gegeweb.org!usenet-fr.net!proxad.net!feeder1-2.proxad.net!cleanfeed3-a.proxad.net!nnrp1-2.free.fr!not-for-mail
From: William FRANCK <william.franck@free.fr>
Newsgroups: comp.lang.ada
Date: Thu, 17 Oct 2019 12:45:00 +0200
Message-ID: <5da8462c$0$3400$426a34cc@news.free.fr>
References: <5da4cf81$0$20312$426a74cc@news.free.fr>
 <qo2k18$4hh$1@gioia.aioe.org> <5da4e182$0$20321$426a74cc@news.free.fr>
 <55cpF.815759$bv6.689110@fx04.am4> <5da777d4$0$21611$426a34cc@news.free.fr>
 <5da83417$0$31419$426a34cc@news.free.fr> <qo9e3g$tbs$1@gioia.aioe.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
Subject: Re: How to transfer Class-Wide object to a Task ?
User-Agent: Unison/2.2
Organization: Guest of ProXad - France
NNTP-Posting-Date: 17 Oct 2019 12:45:00 CEST
NNTP-Posting-Host: 94.199.126.21
X-Trace: 1571309100 news-4.free.fr 3400 94.199.126.21:62897
X-Complaints-To: abuse@proxad.net
Xref: reader01.eternal-september.org comp.lang.ada:57311
Date: 2019-10-17T12:45:00+02:00
List-Id: <comp.lang.ada>

Ok, Dmitry, I'll investigate this!

btw, I know you're a senior and respectfull Ada developer :-)

William

On 2019-10-17 10:00:16 +0000, Dmitry A. Kazakov said:

> On 2019-10-17 11:28, William FRANCK wrote:
>> On 2019-10-16 20:04:41 +0000, William FRANCK said:
>> I've uploaded my PoC source file on the comp.lang.ada group.
> 
> The code looks wrong. If you use holders it could be like this:
> 
> Reader:
> 
>     loop
>        declare
>           read and create a local object
>        begin
>           accept entry call and in the rendezvous
>              copy object into holder passed to the entry
>        end;
>     end loop;
> 
> Writer:
> 
>     loop
>        call to the reader entry passing local holder
>        write the object held by the holder
>     end loop;
> 
> P.S. Using an access type or reference-counted object would reduce copying.