diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-09-13 12:52:18 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-13 14:52:18 +0200 |
| commit | 160c50657b368002eddc1f77b45d824f3066848c (patch) | |
| tree | 81ff246beb25ab2fa5569833232ff3eb42cb7d87 /gcc | |
| parent | 9a6dfb473994b6bfb33bfb7d0c8c3a6a5775ca34 (diff) | |
| download | gcc-160c50657b368002eddc1f77b45d824f3066848c.zip gcc-160c50657b368002eddc1f77b45d824f3066848c.tar.gz gcc-160c50657b368002eddc1f77b45d824f3066848c.tar.bz2 | |
Implement pragma Compiler_Unit and adds it to relevant library units.
From-SVN: r128461
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/ada/a-elchha.adb | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a0bf512..65eeced 100644 --- 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 fabd3ff..41ca1f5 100644 --- 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 |