mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-17 07:00:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

* a-nudira.adb: Minor reformatting

Browse Source 
From-SVN: r148746
This commit is contained in:
Robert Dewar 2009-06-20 10:45:27 +00:00 committed by Arnaud Charlet
parent 5afaf827b7
commit 8a45323c16
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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> 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

6
gcc/ada/a-nudira.adb
View File

@ -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
@ -95,9 +95,9 @@ package body Ada.Numerics.Discrete_Random is
function Image (Of_State : State) return String is function Image (Of_State : State) return String is
begin begin
return Int'Image (Of_State.X1) & return Int'Image (Of_State.X1) &
',' & ',' &
Int'Image (Of_State.X2) & Int'Image (Of_State.X2) &
',' & ',' &
Int'Image (Of_State.Q); Int'Image (Of_State.Q);
end Image; end Image;