diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 08:37:40 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-04 08:37:40 +0000 |
commit | d6b7738424a66aa11d3366a16f8119425b58f374 (patch) | |
tree | acde14bcd5eae85a7ffccfd494429bc16d7a9b8e | |
parent | 2e1983999cfd3484337f5356702f2a00b3df82d9 (diff) | |
download | ppe42-gcc-d6b7738424a66aa11d3366a16f8119425b58f374.tar.gz ppe42-gcc-d6b7738424a66aa11d3366a16f8119425b58f374.zip |
2008-08-04 Robert Dewar <dewar@adacore.com>
* system-darwin-x86.ads: Correct bad definition of Max_Nonbinary_Modulus
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138576 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/ada/system-darwin-x86.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/system-darwin-x86.ads b/gcc/ada/system-darwin-x86.ads index 04cdbbcf94f..1b846813d4b 100644 --- a/gcc/ada/system-darwin-x86.ads +++ b/gcc/ada/system-darwin-x86.ads @@ -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; |