From 6627c62635ac31e87d0998aacef986b3b4142a7d Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 6 Jun 2007 10:15:13 +0000 Subject: 2007-04-20 Arnaud Charlet * system-vxworks-sparcv9.ads, system-solaris-x86.ads, system-irix-o32.ads, system-freebsd-x86.ads, system-lynxos-ppc.ads, system-lynxos-x86.ads, system-vxworks-m68k.ads, system-linux-x86.ads, system-vxworks-mips.ads, system-vxworks-alpha.ads, system-vxworks-x86.ads, system-linux-ppc.ads, system-mingw.ads, system-vms-zcx.ads, system-darwin-ppc.ads, system-vxworks-ppc.ads, system-interix.ads, system-linux-hppa.ads, system-tru64.ads, system-hpux.ads, system-irix-n32.ads, system-solaris-sparc.ads, system-solaris-sparcv9.ads, system-vms.ads, system.ads, system-vms_64.ads, system-hpux-ia64.ads, system-linux-x86_64.ads, system-linux-ia64.ads: Document mapping between Ada and OS priorities. This patch changes the largest non-binary modulus from 2**31-1 to 2**32-1. (Compiler_System_Version): Removed, no longer used. Clean up system files by removing flags only used on a single target. Also remove obsolete flags, only used during bootstrap from system.ads (Address): Add a pragma Preelaborable_Initialization. * system-aix.ads: Ditto. (GCC_ZCX_Support): Set to true. Update priority range on AIX and map Ada priorities to target priorities appropriately for different scheduling policies. * ttypes.ads: set largest non-binary modulus from 2**31-1 to 2**32-1 git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125365 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/system-vms_64.ads | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'gcc/ada/system-vms_64.ads') diff --git a/gcc/ada/system-vms_64.ads b/gcc/ada/system-vms_64.ads index 5ea93c75b79..611e1a4db55 100644 --- a/gcc/ada/system-vms_64.ads +++ b/gcc/ada/system-vms_64.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (OpenVMS 64bit GCC_ZCX DEC Threads Version) -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -51,7 +51,7 @@ package System is Max_Int : constant := Long_Long_Integer'Last; Max_Binary_Modulus : constant := 2 ** Long_Long_Integer'Size; - Max_Nonbinary_Modulus : constant := Integer'Last; + Max_Nonbinary_Modulus : constant := 2 ** Integer'Size - 1; Max_Base_Digits : constant := Long_Long_Float'Digits; Max_Digits : constant := Long_Long_Float'Digits; @@ -135,11 +135,9 @@ private -- whose source should be consulted for more detailed descriptions -- of the individual switch values. - AAMP : constant Boolean := False; Backend_Divide_Checks : constant Boolean := False; Backend_Overflow_Checks : constant Boolean := False; Command_Line_Args : constant Boolean := True; - Compiler_System_Version : constant Boolean := False; Configurable_Run_Time : constant Boolean := False; Denorm : constant Boolean := False; Duration_32_Bits : constant Boolean := False; @@ -162,12 +160,6 @@ private Use_Ada_Main_Program_Name : constant Boolean := False; ZCX_By_Default : constant Boolean := True; GCC_ZCX_Support : constant Boolean := True; - Front_End_ZCX_Support : constant Boolean := False; - - -- Obsolete entries, to be removed eventually (bootstrap issues!) - - High_Integrity_Mode : constant Boolean := False; - Long_Shifts_Inlined : constant Boolean := False; -------------------------- -- Underlying Priorities -- -- cgit v1.2.1