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 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Thread: 103376,703c4f68db81387d X-Google-Thread: 109fba,703c4f68db81387d X-Google-Thread: 115aec,703c4f68db81387d X-Google-Thread: f43e6,703c4f68db81387d X-Google-Attributes: gid103376,gid109fba,gid115aec,gidf43e6,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news1.google.com!proxad.net!freenix!news.wanadoo.fr!news.wanadoo.fr!not-for-mail Sender: obry@PASCAL Newsgroups: comp.lang.ada,comp.lang.c++,comp.realtime,comp.software-eng Subject: Re: Teaching new tricks to an old dog (C++ -->Ada) References: <4229bad9$0$1019$afc38c87@news.optusnet.com.au> <1110032222.447846.167060@g14g2000cwa.googlegroups.com> <871xau9nlh.fsf@insalien.org> <3SjWd.103128$Vf.3969241@news000.worldonline.dk> <87r7iu85lf.fsf@insalien.org> <1110052142.832650@athnrd02> <1110284070.410136.205090@o13g2000cwo.googlegroups.com> <395uqaF5rhu2mU1@individual.net> <112rs0bdr2aftdf@corp.supernews.com> <1inxxr988rxgg$.1w9dedak41k89.dlg@40tude.net> <112s1r0rf0o8nca@corp.supernews.com> From: Pascal Obry Date: 08 Mar 2005 22:07:16 +0100 Message-ID: Organization: Home - http://www.obry.net User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii NNTP-Posting-Date: 08 Mar 2005 22:07:19 CET NNTP-Posting-Host: 82.120.22.91 X-Trace: 1110316039 news.wanadoo.fr 3110 82.120.22.91:3169 X-Complaints-To: abuse@wanadoo.fr Xref: g2news1.google.com comp.lang.ada:8886 comp.lang.c++:44658 comp.realtime:1085 comp.software-eng:4641 Date: 2005-03-08T22:07:19+01:00 List-Id: CTips writes: > > protected type Atomic_Integer is > > procedure Increment; > > private > > Value : Integer; > > end Atomic_Integer; > > -- Implementation > > protected body Atomic_Integer is > > procedure Increment is > > begin > > Value := Value + 1; > > end Increment; > > end Atomic_Integer; > > > > Will that generate: > L0: > lwlock temp,&Value > add temp,temp,1 > stwcond temp,&Value > if( failed ) goto L0; > or will it generate something much more heavy-weight. No protected type implementations will be so light. This is impossible as it brings far more than atomic integer. For an atomic integer it is possible to declare : Value : Integer; pragma Atomic (Value); In this case it would be nice to see the generated code. Pascal. -- --|------------------------------------------------------ --| Pascal Obry Team-Ada Member --| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE --|------------------------------------------------------ --| http://www.obry.org --| "The best way to travel is by means of imagination" --| --| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595