Skip to content

R
riscv-gcc-1
Commit 8a45323c by Robert Dewar Committed by Arnaud Charlet
Options

* a-nudira.adb: Minor reformatting 

From-SVN: r148746
parent 5afaf827
Showing with 5 additions and 1 deletions
gcc/ada/ChangeLog
2009-06-20 Robert Dewar <dewar@adacore.com>
* a-nudira.adb: Minor reformatting
2009-06-20 Ed Schonberg <schonberg@adacore.com> 2009-06-20 Ed Schonberg <schonberg@adacore.com>
* exp_ch3.adb (Build_Record_Init_Proc): When copying initial * exp_ch3.adb (Build_Record_Init_Proc): When copying initial
......
gcc/ada/a-nudira.adb
...@@ -65,7 +65,7 @@ package body Ada.Numerics.Discrete_Random is ...@@ -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 -- 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 -- 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 -- 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 -- 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 -- 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 -- when it could be True, the behavior will be correct, just a bit less
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment