OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2011-08-29  Arnaud Charlet  <charlet@adacore.com>

	* opt.ads: Minor editing.

2011-08-29  Yannick Moy  <moy@adacore.com>

	* gnat1drv.adb (Adjust_Global_Switches): Remove options for ALFA mode
	that only made sense for CodePeer mode.

2011-08-29  Jose Ruiz  <ruiz@adacore.com>

	* targparm.ads (Support_64_Bit_Divides_On_Target): Remove this flag
	which is no longer used.
	* targparm.adb (S64, S64_Str, Get_Target_Parameters): Remove the
	handling of the 64-bit division check.
	* exp_ch4.adb (Expand_N_Op_Divide): Remove the check for 64-bit
	division available.
	* system*.ads (Support_64_Bit_Divides): Remove this flag which is no
	longer used.

2011-08-29  Thomas Quinot  <quinot@adacore.com>

	* get_scos.adb: Minor reformatting.

From-SVN: r178163
This commit is contained in:
Arnaud Charlet 2011-08-29 10:46:47 +02:00
parent 25b589cbd5
commit 5cd7bb1538
45 changed files with 59 additions and 108 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gcc/ada/ChangeLog
View File

@ -1,3 +1,27 @@
2011-08-29 Arnaud Charlet <charlet@adacore.com>
* opt.ads: Minor editing.
2011-08-29 Yannick Moy <moy@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): Remove options for ALFA mode
that only made sense for CodePeer mode.
2011-08-29 Jose Ruiz <ruiz@adacore.com>
* targparm.ads (Support_64_Bit_Divides_On_Target): Remove this flag
which is no longer used.
* targparm.adb (S64, S64_Str, Get_Target_Parameters): Remove the
handling of the 64-bit division check.
* exp_ch4.adb (Expand_N_Op_Divide): Remove the check for 64-bit
division available.
* system*.ads (Support_64_Bit_Divides): Remove this flag which is no
longer used.
2011-08-29 Thomas Quinot <quinot@adacore.com>
* get_scos.adb: Minor reformatting.
2011-08-29 Hristian Kirtchev <kirtchev@adacore.com> 2011-08-29 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Process_Statements_For_Controlled_Objects): Whenever a * exp_util.adb (Process_Statements_For_Controlled_Objects): Whenever a

19
gcc/ada/exp_ch4.adb
View File

@ -5545,25 +5545,6 @@ package body Exp_Ch4 is
elsif Is_Integer_Type (Typ) then elsif Is_Integer_Type (Typ) then
Apply_Divide_Check (N); Apply_Divide_Check (N);
-- Check for 64-bit division available, or long shifts if the divisor
-- is a small power of 2 (since such divides will be converted into
-- long shifts).
if Esize (Ltyp) > 32
and then not Support_64_Bit_Divides_On_Target
and then
(not Rknow
or else not Support_Long_Shifts_On_Target
or else (Rval /= Uint_2 and then
Rval /= Uint_4 and then
Rval /= Uint_8 and then
Rval /= Uint_16 and then
Rval /= Uint_32 and then
Rval /= Uint_64))
then
Error_Msg_CRT ("64-bit division", N);
end if;
-- Deal with Vax_Float -- Deal with Vax_Float
elsif Vax_Float (Typ) then elsif Vax_Float (Typ) then

1
gcc/ada/get_scos.adb
View File

@ -160,6 +160,7 @@ procedure Get_SCOs is
Check ('-'); Check ('-');
Get_Source_Location (Loc2); Get_Source_Location (Loc2);
end Get_Source_Location_Range; end Get_Source_Location_Range;
-------------- --------------
-- Skip_EOL -- -- Skip_EOL --
-------------- --------------

6
gcc/ada/gnat1drv.adb
View File

@ -467,12 +467,6 @@ procedure Gnat1drv is
-- Suppress the generation of name tables for enumerations -- Suppress the generation of name tables for enumerations
Global_Discard_Names := True; Global_Discard_Names := True;
-- Always perform semantics and generate ALI files in ALFA mode,
-- so that a gnatmake -c -k will proceed further when possible.
Force_ALI_Tree_File := True;
Try_Semantics := True;
end if; end if;
end Adjust_Global_Switches; end Adjust_Global_Switches;

2
gcc/ada/opt.ads
View File

@ -1877,7 +1877,7 @@ package Opt is
ALFA_Mode : Boolean := False; ALFA_Mode : Boolean := False;
-- Specific compiling mode targeting formal verification through the -- Specific compiling mode targeting formal verification through the
-- generation of Why code for those parts of the input code that belong to -- generation of Why code for those parts of the input code that belong to
-- the ALFA subset of Ada. Set by debuf flag -gnatd.F. -- the ALFA subset of Ada. Set by debug flag -gnatd.F.
private private

1
gcc/ada/system-aix.ads
View File

@ -141,7 +141,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

1
gcc/ada/system-aix64.ads
View File

@ -141,7 +141,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-darwin-ppc.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Darwin/PPC Version) -- -- (Darwin/PPC Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -157,7 +157,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-darwin-x86.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Darwin/x86 Version) -- -- (Darwin/x86 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -157,7 +157,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-darwin-x86_64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Darwin/x86_64 Version) -- -- (Darwin/x86_64 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -157,7 +157,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-freebsd-x86.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (FreeBSD/x86 Version) -- -- (FreeBSD/x86 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-hpux-ia64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (HP-UX/ia64 Version) -- -- (HP-UX/ia64 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-hpux.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (HP-UX Version) -- -- (HP-UX Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-irix-n32.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (SGI Irix, n32 ABI) -- -- (SGI Irix, n32 ABI) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -143,7 +143,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-irix-o32.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (SGI Irix, o32 ABI) -- -- (SGI Irix, o32 ABI) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-alpha.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/alpha Version) -- -- (GNU-Linux/alpha Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -129,7 +129,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-hppa.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU/Linux-HPPA Version) -- -- (GNU/Linux-HPPA Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-ia64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/ia64 Version) -- -- (GNU-Linux/ia64 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -139,7 +139,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-ppc.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/PPC Version) -- -- (GNU-Linux/PPC Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -139,7 +139,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-s390.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/s390 Version) -- -- (GNU-Linux/s390 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -129,7 +129,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-s390x.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/s390x Version) -- -- (GNU-Linux/s390x Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -129,7 +129,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-sh4.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/sh4 Version) -- -- (GNU-Linux/sh4 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -139,7 +139,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-sparc.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU/Linux-SPARC Version) -- -- (GNU/Linux-SPARC Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -129,7 +129,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-x86.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/x86 Version) -- -- (GNU-Linux/x86 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -139,7 +139,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-linux-x86_64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/x86-64 Version) -- -- (GNU-Linux/x86-64 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -139,7 +139,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-lynxos-ppc.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (LynxOS PPC Version) -- -- (LynxOS PPC Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -145,7 +145,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-lynxos-x86.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (LynxOS x86 Version) -- -- (LynxOS x86 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -145,7 +145,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-mingw-x86_64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Windows Version) -- -- (Windows Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-mingw.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Windows Version) -- -- (Windows Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-solaris-sparc.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (SUN Solaris Version) -- -- (SUN Solaris Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-solaris-sparcv9.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Solaris Sparcv9 Version) -- -- (Solaris Sparcv9 Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-solaris-x86.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (x86 Solaris Version) -- -- (x86 Solaris Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

5
gcc/ada/system-solaris-x86_64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (x86-64 Solaris Version) -- -- (x86-64 Solaris Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -116,7 +116,7 @@ private
-- of the individual switch values. -- of the individual switch values.
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := True;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-tru64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (DEC Unix Version) -- -- (DEC Unix Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -131,7 +131,6 @@ private
Stack_Check_Default : constant Boolean := True; Stack_Check_Default : constant Boolean := True;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-vms-ia64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (OpenVMS 64bit Itanium GCC_ZCX DEC Threads Version) -- -- (OpenVMS 64bit Itanium GCC_ZCX DEC Threads Version) --
-- -- -- --
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -149,7 +149,6 @@ private
Stack_Check_Default : constant Boolean := True; Stack_Check_Default : constant Boolean := True;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

3
gcc/ada/system-vms_64.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (OpenVMS 64bit GCC_ZCX DEC Threads Version) -- -- (OpenVMS 64bit GCC_ZCX DEC Threads Version) --
-- -- -- --
-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -149,7 +149,6 @@ private
Stack_Check_Default : constant Boolean := True; Stack_Check_Default : constant Boolean := True;
Stack_Check_Probes : constant Boolean := True; Stack_Check_Probes : constant Boolean := True;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

1
gcc/ada/system-vxworks-arm.ads
View File

@ -144,7 +144,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := True; Stack_Check_Limits : constant Boolean := True;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

1
gcc/ada/system-vxworks-m68k.ads
View File

@ -144,7 +144,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := True; Stack_Check_Limits : constant Boolean := True;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

1
gcc/ada/system-vxworks-mips.ads
View File

@ -144,7 +144,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := True; Stack_Check_Limits : constant Boolean := True;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

1
gcc/ada/system-vxworks-ppc.ads
View File

@ -144,7 +144,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := True; Stack_Check_Limits : constant Boolean := True;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

1
gcc/ada/system-vxworks-sparcv9.ads
View File

@ -146,7 +146,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := True; Stack_Check_Limits : constant Boolean := True;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

1
gcc/ada/system-vxworks-x86.ads
View File

@ -144,7 +144,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := True; Stack_Check_Limits : constant Boolean := True;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;

4
gcc/ada/system.ads
View File

@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Compiler Version) -- -- (Compiler Version) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, 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 --
@ -154,7 +154,6 @@ private
Stack_Check_Default : constant Boolean := False; Stack_Check_Default : constant Boolean := False;
Stack_Check_Probes : constant Boolean := False; Stack_Check_Probes : constant Boolean := False;
Stack_Check_Limits : constant Boolean := False; Stack_Check_Limits : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
Support_Aggregates : constant Boolean := True; Support_Aggregates : constant Boolean := True;
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;
@ -171,5 +170,6 @@ private
High_Integrity_Mode : constant Boolean := False; High_Integrity_Mode : constant Boolean := False;
Long_Shifts_Inlined : constant Boolean := True; Long_Shifts_Inlined : constant Boolean := True;
Functions_Return_By_DSP : constant Boolean := False; Functions_Return_By_DSP : constant Boolean := False;
Support_64_Bit_Divides : constant Boolean := True;
end System; end System;

6
gcc/ada/targparm.adb
View File

@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1999-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1999-2011, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -55,7 +55,6 @@ package body Targparm is
MRN, -- Machine_Rounds MRN, -- Machine_Rounds
PAS, -- Preallocated_Stacks PAS, -- Preallocated_Stacks
RTX, -- RTX_RTSS_Kernel_Module RTX, -- RTX_RTSS_Kernel_Module
S64, -- Support_64_Bit_Divides
SAG, -- Support_Aggregates SAG, -- Support_Aggregates
SCA, -- Support_Composite_Assign SCA, -- Support_Composite_Assign
SCC, -- Support_Composite_Compare SCC, -- Support_Composite_Compare
@ -92,7 +91,6 @@ package body Targparm is
MRN_Str : aliased constant Source_Buffer := "Machine_Rounds"; MRN_Str : aliased constant Source_Buffer := "Machine_Rounds";
PAS_Str : aliased constant Source_Buffer := "Preallocated_Stacks"; PAS_Str : aliased constant Source_Buffer := "Preallocated_Stacks";
RTX_Str : aliased constant Source_Buffer := "RTX_RTSS_Kernel_Module"; RTX_Str : aliased constant Source_Buffer := "RTX_RTSS_Kernel_Module";
S64_Str : aliased constant Source_Buffer := "Support_64_Bit_Divides";
SAG_Str : aliased constant Source_Buffer := "Support_Aggregates"; SAG_Str : aliased constant Source_Buffer := "Support_Aggregates";
SCA_Str : aliased constant Source_Buffer := "Support_Composite_Assign"; SCA_Str : aliased constant Source_Buffer := "Support_Composite_Assign";
SCC_Str : aliased constant Source_Buffer := "Support_Composite_Compare"; SCC_Str : aliased constant Source_Buffer := "Support_Composite_Compare";
@ -129,7 +127,6 @@ package body Targparm is
MRN_Str'Access, MRN_Str'Access,
PAS_Str'Access, PAS_Str'Access,
RTX_Str'Access, RTX_Str'Access,
S64_Str'Access,
SAG_Str'Access, SAG_Str'Access,
SCA_Str'Access, SCA_Str'Access,
SCC_Str'Access, SCC_Str'Access,
@ -579,7 +576,6 @@ package body Targparm is
when MRN => Machine_Rounds_On_Target := Result; when MRN => Machine_Rounds_On_Target := Result;
when PAS => Preallocated_Stacks_On_Target := Result; when PAS => Preallocated_Stacks_On_Target := Result;
when RTX => RTX_RTSS_Kernel_Module_On_Target := Result; when RTX => RTX_RTSS_Kernel_Module_On_Target := Result;
when S64 => Support_64_Bit_Divides_On_Target := Result;
when SAG => Support_Aggregates_On_Target := Result; when SAG => Support_Aggregates_On_Target := Result;
when SCA => Support_Composite_Assign_On_Target := Result; when SCA => Support_Composite_Assign_On_Target := Result;
when SCC => Support_Composite_Compare_On_Target := Result; when SCC => Support_Composite_Compare_On_Target := Result;

8
gcc/ada/targparm.ads
View File

@ -391,14 +391,6 @@ package Targparm is
-- used at the source level, and the corresponding flag is false, then an -- used at the source level, and the corresponding flag is false, then an
-- error message will be issued saying the feature is not supported. -- error message will be issued saying the feature is not supported.
Support_64_Bit_Divides_On_Target : Boolean := True;
-- If True, the back end supports 64-bit divide operations. If False, then
-- the source program may not contain 64-bit divide operations. This is
-- specifically useful in the zero foot-print case, where the issue is
-- whether there is a hardware divide instruction for 64-bits so that
-- no run-time support is required. It should always be set True if the
-- necessary run-time support is present.
Support_Aggregates_On_Target : Boolean := True; Support_Aggregates_On_Target : Boolean := True;
-- In the general case, the use of aggregates may generate calls -- In the general case, the use of aggregates may generate calls
-- to run-time routines in the C library, including memset, memcpy, -- to run-time routines in the C library, including memset, memcpy,