From fa5aa8353877421229443a04c4d9711fb2dd4aa5 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 22 Jun 2010 15:20:17 +0200 Subject: [multiple changes] 2010-06-22 Emmanuel Briot * fmap.adb, scng.adb, switch-m.ads, sinput-c.adb, opt.ads, output.ads, tree_io.ads, osint.adb, osint.ads: Use configuration pragmas to prevent warnings on use of internal GNAT units. 2010-06-22 Jose Ruiz * s-taprop-vxworks.adb (Set_Priority): Update comments. 2010-06-22 Paul Hilfinger * s-rannum.adb: Make stylistic change to remove mystery constant in Extract_Value. Image_Numeral_Length: new symbolic constant. 2010-06-22 Ed Schonberg * einfo.ads, einfo.adb: Make Is_Protected_Interface, Is_Synchronized_Interface, Is_Task_Interface into computable predicates, to free three flags in entity nodes. * sem_ch3.adb: Remove setting of these flags. From-SVN: r161181 --- gcc/ada/sinput-c.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/ada/sinput-c.adb') diff --git a/gcc/ada/sinput-c.adb b/gcc/ada/sinput-c.adb index 4997346..3c7a882 100644 --- a/gcc/ada/sinput-c.adb +++ b/gcc/ada/sinput-c.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -23,6 +23,10 @@ -- -- ------------------------------------------------------------------------------ +-- This unit is used by gnatcoll +pragma Warnings (Off, "*is an internal GNAT unit"); +pragma Warnings (Off, "*use * instead"); + with Opt; use Opt; with System; use System; -- cgit v1.1