* a-nudira.adb: Minor reformatting

From-SVN: r148746

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index f30a5c4..9f75f4e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-20  Robert Dewar  <dewar@adacore.com>
+
+       * a-nudira.adb: Minor reformatting
+
 2009-06-20  Ed Schonberg  <schonberg@adacore.com>
 
        * 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 (file)
--- 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;