Implement pragma Compiler_Unit and adds it to relevant library units.
From-SVN: r128461
This commit is contained in:
parent
9a6dfb4739
commit
160c50657b
|
@ -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,
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue