diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2016-05-06 09:11:38 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2016-05-06 09:11:38 +0000 |
| commit | 498988ad6a960bf75caa9c88bbeb0b981f2d0dc9 (patch) | |
| tree | 927c4e4697565a3d45bd4a3d1898ca7f373edddd /gcc/ada/system-linux-mips.ads | |
| parent | 8706773f5a11cc9f3f48e82e0177d047d275ce1d (diff) | |
| download | gcc-498988ad6a960bf75caa9c88bbeb0b981f2d0dc9.zip gcc-498988ad6a960bf75caa9c88bbeb0b981f2d0dc9.tar.gz gcc-498988ad6a960bf75caa9c88bbeb0b981f2d0dc9.tar.bz2 | |
re PR ada/70969 (bootstrap failure: s-unstyp.ads:40:15: violation of No_Elaboration_Code_All at line 42)
PR ada/70969
* system-darwin-ppc64.ads: Add pragma No_Elaboration_Code_All.
* system-linux-armeb.ads: Likewise.
* system-linux-mips64el.ads: Likewise.
* system-linux-mips.ads: Likewise.
* system-linux-mipsel.ads: Likewise.
* system-linux-ppc64.ads: Likewise.
* system-linux-sparcv9.ads: Likewise.
* system-rtems.ads: Likewise.
From-SVN: r235946
Diffstat (limited to 'gcc/ada/system-linux-mips.ads')
| -rw-r--r-- | gcc/ada/system-linux-mips.ads | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/system-linux-mips.ads b/gcc/ada/system-linux-mips.ads index 3893cd9..d5dc2cd 100644 --- a/gcc/ada/system-linux-mips.ads +++ b/gcc/ada/system-linux-mips.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (GNU-Linux/MIPS Version) -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -40,6 +40,9 @@ package System is -- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada -- 2005, this is Pure in any case (AI-362). + pragma No_Elaboration_Code_All; + -- Allow the use of that restriction in units that WITH this unit + type Name is (SYSTEM_NAME_GNAT); System_Name : constant Name := SYSTEM_NAME_GNAT; |