From: Robert Dewar Date: Sat, 20 Jun 2009 10:45:27 +0000 (+0000) Subject: * a-nudira.adb: Minor reformatting X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8a45323c1634094c568274d44f4780550708589c;p=platform%2Fupstream%2Fgcc.git * a-nudira.adb: Minor reformatting From-SVN: r148746 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f30a5c4..9f75f4e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2009-06-20 Robert Dewar + + * a-nudira.adb: Minor reformatting + 2009-06-20 Ed Schonberg * exp_ch3.adb (Build_Record_Init_Proc): When copying initial diff --git a/gcc/ada/a-nudira.adb b/gcc/ada/a-nudira.adb index 3ed4fed..87abcd8 100644 --- a/gcc/ada/a-nudira.adb +++ b/gcc/ada/a-nudira.adb @@ -65,7 +65,7 @@ package body Ada.Numerics.Discrete_Random is -- it fits in 32 bits. In the 32-bit case, it fits in 32-bit signed if the -- range has negative values. It is too conservative in the case that the -- programmer has set a size greater than the default, e.g. a size of 33 - -- for an integer type with a size of 1..10. But an over-conservative + -- for an integer type with a range of 1..10, but an over-conservative -- result is OK. The important thing is that the value is only True if -- we know the result will fit in 32-bits signed. If the value is False -- when it could be True, the behavior will be correct, just a bit less @@ -95,9 +95,9 @@ package body Ada.Numerics.Discrete_Random is function Image (Of_State : State) return String is begin return Int'Image (Of_State.X1) & - ',' & + ',' & Int'Image (Of_State.X2) & - ',' & + ',' & Int'Image (Of_State.Q); end Image;