From 8a45323c1634094c568274d44f4780550708589c Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Sat, 20 Jun 2009 10:45:27 +0000 Subject: [PATCH] * a-nudira.adb: Minor reformatting From-SVN: r148746 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/a-nudira.adb | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f30a5c425b7..9f75f4e52da 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 3ed4fedfe14..87abcd8f100 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;