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=unavailable autolearn_force=no version=3.4.4
Path: 
 border1.nntp.dca3.giganews.com!border3.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!goblin2!goblin.stu.neva.ru!feeder.erje.net!eu.feeder.erje.net!newsfeed.fsmpi.rwth-aachen.de!uucp.gnuu.de!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Fri, 19 Jul 2013 10:41:15 +0200
From: Georg Bauhaus <rm.dash-bauhaus@futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.7;
 rv:17.0) Gecko/20130620 Thunderbird/17.0.7
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Accessibility checks
References: <87mwplvthn.fsf@mid.deneb.enyo.de> <ks718g$aim$2@dont-email.me>
 <ks7a8v$4nj$1@loke.gir.dk> <CE0CF7DE.329A0%yaldnif.w@blueyonder.co.uk>
 <lyvc48tk57.fsf@pushface.org>
In-Reply-To: <lyvc48tk57.fsf@pushface.org>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <51e8fba8$0$6566$9b4e6d93@newsspool4.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 19 Jul 2013 10:41:12 CEST
NNTP-Posting-Host: 7e24b0a0.newsspool4.arcor-online.net
X-Trace: DXC=JZHbnSIBL=6^8FBo0_81f>4IUK<Cl32<14Fo<]lROoR18kF<OcfhCO; FOi;
 j7TObN2PCY\c7>ejV8i\MafQ]6@o3e; V`V_K_>`2
X-Complaints-To: usenet-abuse@arcor.de
X-Original-Bytes: 1852
Xref: number.nntp.dca.giganews.com comp.lang.ada:182586
Date: 2013-07-19T10:41:12+02:00
List-Id: <comp.lang.ada>

On 18.07.13 09:14, Simon Wright wrote:
> Bill Findlay <yaldnif.w@blueyonder.co.uk> writes:

>> My projects have 37 occurrences of 'Access and only 2 of
>> 'Unchecked_Access.
>
> A program which constructs a partial representation of a UML model, and
> then walks the representation, used 'Access 43 times to iterate over
> containers (in Ada 2005!) and 'Unchecked_Access 38 times to construct
> the representation.

In the sources of GNAT, 'Access wins, too:

$ cat *.ads *.adb | grep -c "'Unchecked_Access"
225

$ cat *.ads *.adb | grep -c "'Access"
2156

$ cat *.ads *.adb | grep -c "'Unrestricted_Access"
998