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,948a713d359c45ab
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news2.google.com!news1.google.com!newsfeed2.dallas1.level3.net!news.level3.com!newsfeed-00.mathworks.com!peer-uk.news.demon.net!kibo.news.demon.net!mutlu.news.demon.net!news.demon.co.uk!demon!not-for-mail
From: Simon Wright <simon.j.wright@mac.com>
Newsgroups: comp.lang.ada
Subject: Re: How do I turn off this warning?
Date: Wed, 23 Jul 2008 21:23:56 +0100
Organization: Pushface
Message-ID: <m2d4l4xsbn.fsf@mac.com>
References: 
 <2a475055-3869-47fd-a228-3eb749286e26@k37g2000hsf.googlegroups.com>
 <Pine.LNX.4.64.0807231318390.21186@medsec1.medien.uni-weimar.de>
NNTP-Posting-Host: pogner.demon.co.uk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: news.demon.co.uk 1216844636 20368 62.49.19.209 (23 Jul 2008 20:23:57
 GMT)
X-Complaints-To: abuse@demon.net
NNTP-Posting-Date: Wed, 23 Jul 2008 20:23:56 +0000 (UTC)
Cancel-Lock: sha1:SfiOFlDWy6OvCC+wdwtNqLN7D2k=
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2.50 (darwin)
Xref: g2news2.google.com comp.lang.ada:7021
Date: 2008-07-23T21:23:56+01:00
List-Id: <comp.lang.ada>

stefan-lucks@see-the.signature writes:

> Try "pragma Warnings (off, <warning message>);". 

Possibly overkill in this case; there are 3 lines of code giving 6
warnings (4 unique ones). And you have to turn them on again, or you get
a warning about that too. And (GCC 4.3.0) they don't actually get turned
off unless you do supply the matching On!

   for T1 use
      record
         pragma Warnings
           (Off, "reverse bit order in machine scalar of length 8");
         pragma Warnings
           (Off, "little-endian range for component ""Version"" is 6 .. 7");
         Version at 0 range 0..1;
         pragma Warnings
           (On, "little-endian range for component ""Version"" is 6 .. 7");
         pragma Warnings
           (Off, "little-endian range for component ""Inline"" is 5 .. 5");
         Inline  at 0 range 2..2;
         pragma Warnings
           (On, "little-endian range for component ""Inline"" is 5 .. 5");
         pragma Warnings
           (Off, "little-endian range for component ""Command"" is 0 .. 4");
         Command at 0 range 3..7;
         pragma Warnings
           (On, "little-endian range for component ""Command"" is 0 .. 4");
         pragma Warnings
           (On, "reverse bit order in machine scalar of length 8");
      end record;