Skip to content

R
riscv-gcc-1
Commit 0b6eb8e1 by Robert Dewar Committed by Arnaud Charlet
Options

system-unixware.ads, [...]: Add line defining Compiler_System_Version to be False. 

2005-03-08  Robert Dewar  <dewar@adacore.com>

	* system-unixware.ads, system-linux-ia64.ads, system-freebsd-x86.ads,
	system-lynxos-ppc.ads, system-lynxos-x86.ads, system-linux-x86_64.ads,
	system-tru64.ads, system-aix.ads, system-vxworks-sparcv9.ads,
	system-vxworks-xscale.ads, system-solaris-x86.ads, system-irix-o32.ads,
	system-irix-n32.ads, system-hpux.ads, system-vxworks-m68k.ads,
	system-linux-x86.ads, system-vxworks-mips.ads, system-os2.ads,
	system-interix.ads, system-solaris-sparc.ads,
	system-solaris-sparcv9.ads, system-vms.ads, system-mingw.ads,
	system-vms-zcx.ads, system-vxworks-ppc.ads, system-vxworks-alpha.ads,
	system-vms_64.ads, system-darwin-ppc.ads, system-vxworks-x86.ads,
	system-linux-ppc.ads, system-linux-alpha.ads, system-linux-sparc.ads,
	system-linux-s390.ads, system-linux-s390x.ads: Add line defining
	Compiler_System_Version to be False.

	* opt.ads: Add new flag Opt.Address_Is_Private

	* targparm.ads, targparm.adb: Set new flag Opt.Address_Is_Private
	Add new parameter Compiler_System_Version to avoid checking for
	completeness of parameters when compiler is compiling itself.
	Allows old versions of GNAT to be compiled with new compiler.

From-SVN: r96478
parent 9199f050
Showing with 112 additions and 74 deletions
gcc/ada/opt.ads
...@@ -104,6 +104,10 @@ package Opt is ...@@ -104,6 +104,10 @@ package Opt is
-- GNAT -- GNAT
-- Set False to disable address clause warnings -- Set False to disable address clause warnings
Address_Is_Private : Boolean := False;
-- GNAT, GNATBIND
-- Set True if package System has the line "type Address is private;"
All_Errors_Mode : Boolean := False; All_Errors_Mode : Boolean := False;
-- GNAT -- GNAT
-- Flag set to force display of multiple errors on a single line and -- Flag set to force display of multiple errors on a single line and
......
gcc/ada/system-aix.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (AIX/PPC Version) -- -- (AIX/PPC Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-darwin-ppc.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Darwin/PPC Version) -- -- (Darwin/PPC Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -144,6 +144,7 @@ private ...@@ -144,6 +144,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-freebsd-x86.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (FreeBSD/x86 Version) -- -- (FreeBSD/x86 Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-hpux.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (HP-UX Version) -- -- (HP-UX Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-interix.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (OpenNT/Interix Version) -- -- (OpenNT/Interix Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-irix-n32.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (SGI Irix, n32 ABI) -- -- (SGI Irix, n32 ABI) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -130,6 +130,7 @@ private ...@@ -130,6 +130,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-irix-o32.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (SGI Irix, o32 ABI) -- -- (SGI Irix, o32 ABI) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-alpha.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/ia64 Version) -- -- (GNU-Linux/ia64 Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-ia64.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/ia64 Version) -- -- (GNU-Linux/ia64 Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-ppc.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/PPC Version) -- -- (GNU-Linux/PPC Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-s390.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/s390 Version) -- -- (GNU-Linux/s390 Version) --
-- -- -- --
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-s390x.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/s390x Version) -- -- (GNU-Linux/s390x Version) --
-- -- -- --
-- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-sparc.ads
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-x86.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (GNU-Linux/x86 Version) -- -- (GNU-Linux/x86 Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-linux-x86_64.ads
...@@ -7,7 +7,7 @@ ...@@ -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-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-lynxos-ppc.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (LynxOS PPC Version) -- -- (LynxOS PPC Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-lynxos-x86.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (LynxOS x86 Version) -- -- (LynxOS x86 Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-mingw.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (NT Version) -- -- (NT Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-os2.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (OS/2 Version) -- -- (OS/2 Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-solaris-sparc.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (SUN Solaris Version) -- -- (SUN Solaris Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-solaris-sparcv9.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (Solaris Sparcv9 Version) -- -- (Solaris Sparcv9 Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-solaris-x86.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (x86 Solaris Version) -- -- (x86 Solaris Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-tru64.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (DEC Unix Version) -- -- (DEC Unix Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-unixware.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (SCO UnixWare Version) -- -- (SCO UnixWare Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vms-zcx.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (OpenVMS GCC_ZCX DEC Threads Version) -- -- (OpenVMS GCC_ZCX DEC Threads Version) --
-- -- -- --
-- Copyright (C) 2002-2004 Free Software Foundation, Inc. -- -- Copyright (C) 2002-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vms.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (OpenVMS DEC Threads Version) -- -- (OpenVMS DEC Threads Version) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -118,6 +118,7 @@ private ...@@ -118,6 +118,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vms_64.ads
...@@ -7,7 +7,7 @@ ...@@ -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) 2004 Free Software Foundation, Inc. -- -- Copyright (C) 2005 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 --
...@@ -137,6 +137,7 @@ private ...@@ -137,6 +137,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := True; Command_Line_Args : constant Boolean := True;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vxworks-alpha.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version Alpha) -- -- (VxWorks Version Alpha) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -126,6 +126,7 @@ private ...@@ -126,6 +126,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := False; Command_Line_Args : constant Boolean := False;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vxworks-m68k.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks version M68K) -- -- (VxWorks version M68K) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -126,6 +126,7 @@ private ...@@ -126,6 +126,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := False; Command_Line_Args : constant Boolean := False;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vxworks-mips.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version Mips) -- -- (VxWorks Version Mips) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -126,6 +126,7 @@ private ...@@ -126,6 +126,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := False; Command_Line_Args : constant Boolean := False;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := False; Denorm : constant Boolean := False;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vxworks-ppc.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version PPC) -- -- (VxWorks Version PPC) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -126,6 +126,7 @@ private ...@@ -126,6 +126,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := False; Command_Line_Args : constant Boolean := False;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vxworks-sparcv9.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version Sparc/64) -- -- (VxWorks Version Sparc/64) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -128,6 +128,7 @@ private ...@@ -128,6 +128,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := False; Command_Line_Args : constant Boolean := False;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vxworks-x86.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version x86) -- -- (VxWorks Version x86) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -126,6 +126,7 @@ private ...@@ -126,6 +126,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := False; Command_Line_Args : constant Boolean := False;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/system-vxworks-xscale.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version Xscale) -- -- (VxWorks Version Xscale) --
-- -- -- --
-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1992-2005 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 --
...@@ -126,6 +126,7 @@ private ...@@ -126,6 +126,7 @@ private
Backend_Divide_Checks : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False;
Backend_Overflow_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False;
Command_Line_Args : constant Boolean := False; Command_Line_Args : constant Boolean := False;
Compiler_System_Version : constant Boolean := False;
Configurable_Run_Time : constant Boolean := False; Configurable_Run_Time : constant Boolean := False;
Denorm : constant Boolean := True; Denorm : constant Boolean := True;
Duration_32_Bits : constant Boolean := False; Duration_32_Bits : constant Boolean := False;
......
gcc/ada/targparm.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 1999-2004 Free Software Foundation, Inc. -- -- Copyright (C) 1999-2005 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- --
...@@ -44,7 +44,8 @@ package body Targparm is ...@@ -44,7 +44,8 @@ package body Targparm is
BDC, -- Backend_Divide_Checks BDC, -- Backend_Divide_Checks
BOC, -- Backend_Overflow_Checks BOC, -- Backend_Overflow_Checks
CLA, -- Command_Line_Args CLA, -- Command_Line_Args
CRT, -- Configurable_Run_Time CRT, -- Configurable_Run_Times
CSV, -- Compiler_System_Version
D32, -- Duration_32_Bits D32, -- Duration_32_Bits
DEN, -- Denorm DEN, -- Denorm
DSP, -- Functions_Return_By_DSP DSP, -- Functions_Return_By_DSP
...@@ -67,12 +68,7 @@ package body Targparm is ...@@ -67,12 +68,7 @@ package body Targparm is
VMS, -- OpenVMS VMS, -- OpenVMS
ZCD, -- ZCX_By_Default ZCD, -- ZCX_By_Default
ZCG, -- GCC_ZCX_Support ZCG, -- GCC_ZCX_Support
ZCF, -- Front_End_ZCX_Support ZCF); -- Front_End_ZCX_Support
-- The following entries are obsolete and can eventually be removed
HIM, -- High_Integrity_Mode
LSI); -- Long_Shifts_Inlined
subtype Targparm_Tags_OK is Targparm_Tags range AAM .. ZCF; subtype Targparm_Tags_OK is Targparm_Tags range AAM .. ZCF;
-- Range excluding obsolete entries -- Range excluding obsolete entries
...@@ -87,6 +83,7 @@ package body Targparm is ...@@ -87,6 +83,7 @@ package body Targparm is
BOC_Str : aliased constant Source_Buffer := "Backend_Overflow_Checks"; BOC_Str : aliased constant Source_Buffer := "Backend_Overflow_Checks";
CLA_Str : aliased constant Source_Buffer := "Command_Line_Args"; CLA_Str : aliased constant Source_Buffer := "Command_Line_Args";
CRT_Str : aliased constant Source_Buffer := "Configurable_Run_Time"; CRT_Str : aliased constant Source_Buffer := "Configurable_Run_Time";
CSV_Str : aliased constant Source_Buffer := "Compiler_System_Version";
D32_Str : aliased constant Source_Buffer := "Duration_32_Bits"; D32_Str : aliased constant Source_Buffer := "Duration_32_Bits";
DEN_Str : aliased constant Source_Buffer := "Denorm"; DEN_Str : aliased constant Source_Buffer := "Denorm";
DSP_Str : aliased constant Source_Buffer := "Functions_Return_By_DSP"; DSP_Str : aliased constant Source_Buffer := "Functions_Return_By_DSP";
...@@ -111,11 +108,6 @@ package body Targparm is ...@@ -111,11 +108,6 @@ package body Targparm is
ZCG_Str : aliased constant Source_Buffer := "GCC_ZCX_Support"; ZCG_Str : aliased constant Source_Buffer := "GCC_ZCX_Support";
ZCF_Str : aliased constant Source_Buffer := "Front_End_ZCX_Support"; ZCF_Str : aliased constant Source_Buffer := "Front_End_ZCX_Support";
-- Obsolete entries
HIM_Str : aliased constant Source_Buffer := "High_Integrity_Mode";
LSI_Str : aliased constant Source_Buffer := "Long_Shifts_Inlined";
-- The following defines a set of pointers to the above strings, -- The following defines a set of pointers to the above strings,
-- indexed by the tag values. -- indexed by the tag values.
...@@ -126,6 +118,7 @@ package body Targparm is ...@@ -126,6 +118,7 @@ package body Targparm is
BOC_Str'Access, BOC_Str'Access,
CLA_Str'Access, CLA_Str'Access,
CRT_Str'Access, CRT_Str'Access,
CSV_Str'Access,
D32_Str'Access, D32_Str'Access,
DEN_Str'Access, DEN_Str'Access,
DSP_Str'Access, DSP_Str'Access,
...@@ -148,12 +141,7 @@ package body Targparm is ...@@ -148,12 +141,7 @@ package body Targparm is
VMS_Str'Access, VMS_Str'Access,
ZCD_Str'Access, ZCD_Str'Access,
ZCG_Str'Access, ZCG_Str'Access,
ZCF_Str'Access, ZCF_Str'Access);
-- Obsolete entries
HIM_Str'Access,
LSI_Str'Access);
----------------------- -----------------------
-- Local Subprograms -- -- Local Subprograms --
...@@ -237,6 +225,8 @@ package body Targparm is ...@@ -237,6 +225,8 @@ package body Targparm is
Parameters_Obtained := True; Parameters_Obtained := True;
end if; end if;
Opt.Address_Is_Private := False;
P := Source_First; P := Source_First;
Line_Loop : while System_Text (P .. P + 10) /= "end System;" loop Line_Loop : while System_Text (P .. P + 10) /= "end System;" loop
...@@ -245,6 +235,13 @@ package body Targparm is ...@@ -245,6 +235,13 @@ package body Targparm is
if System_Text (P) = '-' then if System_Text (P) = '-' then
goto Line_Loop_Continue; goto Line_Loop_Continue;
-- Test for type Address is private
elsif System_Text (P .. P + 26) = " type Address is private;" then
Opt.Address_Is_Private := True;
P := P + 26;
goto Line_Loop_Continue;
-- Test for pragma Profile (Ravenscar); -- Test for pragma Profile (Ravenscar);
elsif System_Text (P .. P + 26) = elsif System_Text (P .. P + 26) =
...@@ -252,7 +249,7 @@ package body Targparm is ...@@ -252,7 +249,7 @@ package body Targparm is
then then
Set_Profile_Restrictions (Ravenscar); Set_Profile_Restrictions (Ravenscar);
Opt.Task_Dispatching_Policy := 'F'; Opt.Task_Dispatching_Policy := 'F';
Opt.Locking_Policy := 'C'; Opt.Locking_Policy := 'C';
P := P + 27; P := P + 27;
goto Line_Loop_Continue; goto Line_Loop_Continue;
...@@ -513,7 +510,6 @@ package body Targparm is ...@@ -513,7 +510,6 @@ package body Targparm is
then then
P := P + 3 + Targparm_Str (K)'Length; P := P + 3 + Targparm_Str (K)'Length;
if Targparm_Flags (K) then if Targparm_Flags (K) then
Set_Standard_Error; Set_Standard_Error;
Write_Line Write_Line
...@@ -552,6 +548,7 @@ package body Targparm is ...@@ -552,6 +548,7 @@ package body Targparm is
when BOC => Backend_Overflow_Checks_On_Target := Result; when BOC => Backend_Overflow_Checks_On_Target := Result;
when CLA => Command_Line_Args_On_Target := Result; when CLA => Command_Line_Args_On_Target := Result;
when CRT => Configurable_Run_Time_On_Target := Result; when CRT => Configurable_Run_Time_On_Target := Result;
when CSV => Compiler_System_Version := Result;
when D32 => Duration_32_Bits_On_Target := Result; when D32 => Duration_32_Bits_On_Target := Result;
when DEN => Denorm_On_Target := Result; when DEN => Denorm_On_Target := Result;
when DSP => Functions_Return_By_DSP_On_Target := Result; when DSP => Functions_Return_By_DSP_On_Target := Result;
...@@ -576,13 +573,13 @@ package body Targparm is ...@@ -576,13 +573,13 @@ package body Targparm is
when ZCG => GCC_ZCX_Support_On_Target := Result; when ZCG => GCC_ZCX_Support_On_Target := Result;
when ZCF => Front_End_ZCX_Support_On_Target := Result; when ZCF => Front_End_ZCX_Support_On_Target := Result;
-- Obsolete entries
when HIM => null;
when LSI => null;
goto Line_Loop_Continue; goto Line_Loop_Continue;
end case; end case;
-- Here we are seeing a parameter we do not understand. We
-- simply ignore this (will happen when an old compiler is
-- used to compile a newer version of GNAT which does not
-- support the
end if; end if;
end loop Config_Param_Loop; end loop Config_Param_Loop;
end if; end if;
...@@ -610,24 +607,27 @@ package body Targparm is ...@@ -610,24 +607,27 @@ package body Targparm is
end if; end if;
end loop Line_Loop; end loop Line_Loop;
-- Check no missing target parameter settings -- Check no missing target parameter settings (skip for compiler vsn)
for K in Targparm_Tags_OK loop if not Compiler_System_Version then
if not Targparm_Flags (K) then for K in Targparm_Tags_OK loop
Set_Standard_Error; if not Targparm_Flags (K) then
Write_Line Set_Standard_Error;
("fatal error: system.ads is incorrectly formatted"); Write_Line
Write_Str ("missing line for parameter: "); ("fatal error: system.ads is incorrectly formatted");
Write_Str ("missing line for parameter: ");
for J in Targparm_Str (K)'Range loop for J in Targparm_Str (K)'Range loop
Write_Char (Targparm_Str (K).all (J)); Write_Char (Targparm_Str (K).all (J));
end loop; end loop;
Write_Eol;
Set_Standard_Output;
Fatal := True;
end if;
end loop;
end if;
Write_Eol;
Set_Standard_Output;
Fatal := True;
end if;
end loop;
if Fatal then if Fatal then
raise Unrecoverable_Error; raise Unrecoverable_Error;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment