From 9e9df9da7b83a6591d43c5298958dd20db3c6e73 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 22 Jun 2010 15:26:32 +0200 Subject: [multiple changes] 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) From-SVN: r161183 --- gcc/ada/sinput-c.adb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'gcc/ada/sinput-c.adb') diff --git a/gcc/ada/sinput-c.adb b/gcc/ada/sinput-c.adb index 3c7a882..aebdcac 100644 --- a/gcc/ada/sinput-c.adb +++ b/gcc/ada/sinput-c.adb @@ -23,16 +23,15 @@ -- -- ------------------------------------------------------------------------------ --- 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; with Ada.Unchecked_Conversion; +pragma Warnings (Off); +-- This package is used also by gnatcoll with System.OS_Lib; use System.OS_Lib; +pragma Warnings (On); package body Sinput.C is -- cgit v1.1