mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-16 22:21:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR ada/81446 (building Ada fails due to missing No_Elaboration_Code_All)

Browse Source 
PR ada/81446
	* system-linux-m68k.ads: Add pragma No_Elaboration_Code_All.

From-SVN: r250224
This commit is contained in:
John Paul Adrian Glaubitz 2017-07-15 17:01:03 +00:00 committed by Eric Botcazou
parent e12d3780e6
commit 049e777401
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2017-07-15 John Paul Adrian Glaubitz <glaubitz@physik.fu-berlin.de>
PR ada/81446
* system-linux-m68k.ads: Add pragma No_Elaboration_Code_All.
(Backend_Overflow_Checks): Set to True.
2017-06-23 Jakub Jelinek <jakub@redhat.com>
* gcc-interface/trans.c (gnat_to_gnu): Initialize sync to false to

7
gcc/ada/system-linux-m68k.ads
View File

@ -7,7 +7,7 @@
-- S p e c --
-- (GNU/Linux/m68k Version) --
-- --
-- Copyright (C) 2014-2016, Free Software Foundation, Inc. --
-- Copyright (C) 2014-2017, 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;
@ -126,7 +129,7 @@ private
-- of the individual switch values.
Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := True;
Command_Line_Args : constant Boolean := True;
Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True;