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
This commit is contained in:
parent
8706773f5a
commit
498988ad6a
|
@ -1,3 +1,15 @@
|
||||||
|
2016-05-06 Eric Botcazou <ebotcazou@adacore.com>
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
||||||
2016-05-04 Samuel Thibault <samuel.thibault@ens-lyon.org>
|
2016-05-04 Samuel Thibault <samuel.thibault@ens-lyon.org>
|
||||||
|
|
||||||
* s-osinte-gnu.ads (Get_Page_Size): Return int and use getpagesize
|
* s-osinte-gnu.ads (Get_Page_Size): Return int and use getpagesize
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (Darwin/PPC64 Version) --
|
-- (Darwin/PPC64 Version) --
|
||||||
-- --
|
-- --
|
||||||
-- Copyright (C) 2011-2015, Free Software Foundation, Inc. --
|
-- Copyright (C) 2011-2016, Free Software Foundation, Inc. --
|
||||||
-- --
|
-- --
|
||||||
-- This specification is derived from the Ada Reference Manual for use with --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
||||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
-- 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
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
|
@ -40,6 +40,9 @@ package System is
|
||||||
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (GNU-Linux/MIPS Version) --
|
-- (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 --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
||||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
-- 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
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (GNU-Linux/MIPS64EL Version) --
|
-- (GNU-Linux/MIPS64EL 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 --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
||||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
-- 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
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (GNU-Linux/MIPSEL Version) --
|
-- (GNU-Linux/MIPSEL 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 --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
||||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
-- 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
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (GNU-Linux/PPC64 Version) --
|
-- (GNU-Linux/PPC64 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 --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
||||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
-- 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
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (GNU/Linux-SPARCV9 Version) --
|
-- (GNU/Linux-SPARCV9 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 --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
||||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
-- 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
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
-- S p e c --
|
-- S p e c --
|
||||||
-- (Compiler Version) --
|
-- (Compiler 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 --
|
-- This specification is derived from the Ada Reference Manual for use with --
|
||||||
-- GNAT. The copyright notice above, and the license provisions that follow --
|
-- GNAT. The copyright notice above, and the license provisions that follow --
|
||||||
|
@ -44,6 +44,9 @@ package System is
|
||||||
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
-- this unit Pure instead of Preelaborable; see RM 13.7.1(15). In Ada
|
||||||
-- 2005, this is Pure in any case (AI-362).
|
-- 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);
|
type Name is (SYSTEM_NAME_GNAT);
|
||||||
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
System_Name : constant Name := SYSTEM_NAME_GNAT;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue