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: a07f3367d7,4083771199667fd1 X-Google-Attributes: gida07f3367d7,public,usenet X-Google-NewGroupId: yes X-Google-Language: ENGLISH,ASCII Path: g2news1.google.com!news4.google.com!feeder1-2.proxad.net!proxad.net!feeder1-1.proxad.net!oleane.net!oleane!hunter.axlog.fr!nobody From: Jean-Pierre Rosen Newsgroups: comp.lang.ada Subject: Re: Ensuring resource cleanup Date: Mon, 08 Feb 2010 16:29:38 +0100 Organization: Adalog Message-ID: <9lapkh.88a.ln@hunter.axlog.fr> References: <87zl3jertf.fsf@mid.deneb.enyo.de> NNTP-Posting-Host: mailhost.axlog.fr Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit X-Trace: s1.news.oleane.net 1265644497 12071 195.25.228.57 (8 Feb 2010 15:54:57 GMT) X-Complaints-To: abuse@oleane.net NNTP-Posting-Date: Mon, 8 Feb 2010 15:54:57 +0000 (UTC) User-Agent: Thunderbird 2.0.0.23 (Windows/20090812) In-Reply-To: <87zl3jertf.fsf@mid.deneb.enyo.de> Xref: g2news1.google.com comp.lang.ada:8984 Date: 2010-02-08T16:29:38+01:00 List-Id: Florian Weimer a �crit : > declare > X : Object; > > begin > Init (X); > begin > Make_Use_Of (X); > exception > when others => > Cleanup (X); > raise; > end; > Cleanup (X); > end; > > But I'd really have a tool that ensures that Init and Cleanup calls > are properly paired in this way. > Such a tool exists, of course ;-). AdaControl rule Unsafe_Paired_Calls. -- --------------------------------------------------------- J-P. Rosen (rosen@adalog.fr) Visit Adalog's web site at http://www.adalog.fr