From 3f8cf2d21799e648d13a8b7693b3ecea72726fcf Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 22 Jun 2010 13:26:32 +0000 Subject: 2010-06-22 Arnaud Charlet * fmap.adb, opt.ads, osint.adb, osint.ads, output.ads, scng.adb, sinput-c.adb, switch-m.ads, tree_io.ads: Use simpler form of Warnings Off/On. 2010-06-22 Thomas Quinot * einfo.ads: Minor reformatting. 2010-06-22 Javier Miranda * exp_disp.adb (Expand_Interface_Thunk): Do not generate thunk of eliminated primitives. (Make_DT): Avoid referencing eliminated primitives. (Register_Primitive): Do not register eliminated primitives in the dispatch table. Required to add this functionality when the program is compiled without static dispatch tables (-gnatd.t) git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161183 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/opt.ads | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'gcc/ada/opt.ads') diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index 9319f2dcc42..66af7cd425d 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -38,15 +38,14 @@ -- use the Project Manager. These tools include gnatmake, gnatname, the gnat -- driver, gnatclean, gprbuild and gprclean. --- This unit is used by gnatcoll -pragma Warnings (Off, "*is an internal GNAT unit"); -pragma Warnings (Off, "*use * instead"); - with Hostparm; use Hostparm; with Types; use Types; +pragma Warnings (Off); +-- This package is used also by gnatcoll with System.Strings; use System.Strings; with System.WCh_Con; use System.WCh_Con; +pragma Warnings (On); package Opt is -- cgit v1.2.1