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,
	WEIRD_QUOTING autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,d679dd7e9c16805a
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news2.google.com!postnews.google.com!e3g2000vbe.googlegroups.com!not-for-mail
From: sjw <simon.j.wright@mac.com>
Newsgroups: comp.lang.ada
Subject: Re: Selective suppression of warnings --- gnat on GNU/Linux
Date: Thu, 1 Jan 2009 01:45:48 -0800 (PST)
Organization: http://groups.google.com
Message-ID: <dec66816-32dd-4419-ad23-833c08345108@e3g2000vbe.googlegroups.com>
References: 
 <7a6baa71-80e8-4f3a-80b6-34935bda2fc0@r10g2000prf.googlegroups.com>
	<79917534-5cc2-4f2e-9b9b-3bae7ba0cc18@r37g2000prr.googlegroups.com>
NNTP-Posting-Host: 62.49.19.209
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1230803148 5959 127.0.0.1 (1 Jan 2009 09:45:48
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 1 Jan 2009 09:45:48 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: e3g2000vbe.googlegroups.com; posting-host=62.49.19.209;
	posting-account=_RXWmAoAAADQS3ojtLFDmTNJCT0N2R4U
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_6; en-us)
	AppleWebKit/525.27.1 (KHTML,
 like Gecko) Version/3.2.1 Safari/525.27.1,gzip(gfe),gzip(gfe)
Xref: g2news2.google.com comp.lang.ada:4135
Date: 2009-01-01T01:45:48-08:00
List-Id: <comp.lang.ada>

On Dec 31 2008, 7:46=A0pm, Jerry <lancebo...@qwest.net> wrote:

> =A0 =A0 =A0 pragma Warnings (Off, "formal parameter ""X"" is not
> referenced");
> =A0 =A0 =A0 procedure Mumble (X : Integer) is
> =A0 =A0 =A0 pragma Warnings (On, "formal parameter ""X"" is not
> referenced");
> =A0 =A0 =A0 -- =A0X is ignored here, because blah blah blah...
> =A0 =A0 =A0 begin
> =A0 =A0 =A0 =A0 =A0null;
> =A0 =A0 =A0 end Mumble;

In this particular case, pragma Unreferenced (X) would also work (on
the versions of GNAT I use; some of which are old enough not to
recognise this extended form of pragma Warnings).