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 X-Received: by 10.36.41.138 with SMTP id p132mr26323941itp.13.1517480893921; Thu, 01 Feb 2018 02:28:13 -0800 (PST) X-Received: by 10.157.40.82 with SMTP id h18mr100683otd.13.1517480893855; Thu, 01 Feb 2018 02:28:13 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!border1.nntp.ams1.giganews.com!nntp.giganews.com!peer03.ams1!peer.ams1.xlned.com!news.xlned.com!peer03.am4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!w142no182882ita.0!news-out.google.com!k194ni759itb.0!nntp.google.com!w142no182878ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Thu, 1 Feb 2018 02:28:13 -0800 (PST) In-Reply-To: <634ea4dc-af9e-46d2-815b-af5a3aa2f6cd@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=80.114.173.191; posting-account=BtkjvAoAAADwEquGb07eykXfyiDMOxfl NNTP-Posting-Host: 80.114.173.191 References: <634ea4dc-af9e-46d2-815b-af5a3aa2f6cd@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <11a39ccf-dc16-4972-8a0f-3fdd49b18124@googlegroups.com> Subject: Re: Reference counter in smart pointers are not updated properly when used by multiple tasks From: onox Injection-Date: Thu, 01 Feb 2018 10:28:13 +0000 Content-Type: text/plain; charset="UTF-8" X-Received-Bytes: 1671 X-Received-Body-CRC: 4153765077 Xref: reader02.eternal-september.org comp.lang.ada:50246 Date: 2018-02-01T02:28:13-08:00 List-Id: I'm replaced the Atomic.Unsigned_32 with: protected type Reference_Counter is procedure Increment; procedure Decrement (Result : out Natural); function Count return Natural; private References : Natural := 1; end Reference_Counter; type Reference_Counter_Access is access Reference_Counter; type Data_Record is record References : Reference_Counter_Access;