Implement pragma Compiler_Unit and adds it to relevant library units.

From-SVN: r128461

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a0bf5126695007571b71e01f27aa60628d49f23b..65eeced034f64d8990443cb92471aa9ef5b12f24 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -16,7 +16,7 @@
        s-sopco3.adb, s-sopco4.adb, s-sopco5.adb, s-stache.adb, s-stalib.adb,
        s-stoele.adb, s-strcom.adb, s-strops.adb, s-traceb.adb, s-traent.adb,
        s-wchcnv.adb, s-wchcon.adb, s-wchjis.adb, s-addope.adb, s-except.adb,
-       s-os_lib.adb, s-string.adb, s-utf_32.adb,
+       s-os_lib.adb, s-string.adb, s-utf_32.adb, a-elchha.adb,
        a-chlat1.ads, a-elchha.ads, a-except.ads, g-hesora.ads, g-htable.ads, 
        g-speche.ads, par-prag.adb, restrict.adb, restrict.ads, s-assert.ads, 
        s-carun8.ads, s-casuti.ads, s-crc32.ads, sem_ch11.adb, sem_prag.adb, 

diff --git a/gcc/ada/a-elchha.adb b/gcc/ada/a-elchha.adb
index fabd3ff68f6653f46c95ee7accd6dae2d2fb36d7..41ca1f57b41471a4a0a4cc0d6c57749b1afc795a 100644 (file)
--- a/gcc/ada/a-elchha.adb
+++ b/gcc/ada/a-elchha.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 2003-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 2003-2007, 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- --
@@ -33,6 +33,10 @@
 
 --  Default version for most targets
 
+pragma Warnings (Off);
+pragma Compiler_Unit;
+pragma Warnings (On);
+
 with System.Standard_Library; use System.Standard_Library;
 --  Used for Adafinal