diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-06-20 10:45:27 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-06-20 12:45:27 +0200 |
| commit | 8a45323c1634094c568274d44f4780550708589c (patch) | |
| tree | 7cb21b7f0ba23489006033e611c9e8f43b022d6f /gcc | |
| parent | 5afaf827b7b4a5f34f6baf1a92ac14f797191fc1 (diff) | |
| download | gcc-8a45323c1634094c568274d44f4780550708589c.zip gcc-8a45323c1634094c568274d44f4780550708589c.tar.gz gcc-8a45323c1634094c568274d44f4780550708589c.tar.bz2 | |
* a-nudira.adb: Minor reformatting
From-SVN: r148746
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/a-nudira.adb | 6 |
2 files changed, 7 insertions, 3 deletions
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 <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 --- 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; |