2010-06-22 Robert Dewar <dewar@adacore.com>

	* s-rannum.adb, a-nudira.adb, types.ads, freeze.adb, sem_aggr.adb,
	exp_aggr.adb: Minor reformatting.
	* gnat_rm.texi: Document GNAT.MBBS_Discrete_Random and
	GNAT.MBSS_Float_Random.
	* g-mbdira.adb, g-mbflra.adb, g-mbdira.ads, g-mbflra.ads: Fix header.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161194 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 14 insertions, 8 deletions

diff --git a/gcc/ada/a-nudira.adb b/gcc/ada/a-nudira.adb
index e17945c07a2..b8a31274550 100644
--- a/gcc/ada/a-nudira.adb
+++ b/gcc/ada/a-nudira.adb
@@ -58,33 +58,39 @@ package body Ada.Numerics.Discrete_Random is
       return Rep_Random (Gen.Rep);
    end Random;
 
-   procedure Reset (Gen       : Generator;
-                    Initiator : Integer) is
+   procedure Reset
+     (Gen       : Generator;
+      Initiator : Integer)
+   is
       G : Rep_Generator renames Gen.Rep'Unrestricted_Access.all;
    begin
       Reset (G, Initiator);
    end Reset;
 
-   procedure Reset (Gen       : Generator) is
+   procedure Reset (Gen : Generator) is
       G : Rep_Generator renames Gen.Rep'Unrestricted_Access.all;
    begin
       Reset (G);
    end Reset;
 
-   procedure Save  (Gen        : Generator;
-                    To_State   : out State) is
+   procedure Save
+     (Gen        : Generator;
+      To_State   : out State)
+   is
    begin
       Save (Gen.Rep, State (To_State));
    end Save;
 
-   procedure Reset (Gen        : Generator;
-                    From_State : State) is
+   procedure Reset
+     (Gen        : Generator;
+      From_State : State)
+   is
       G : Rep_Generator renames Gen.Rep'Unrestricted_Access.all;
    begin
       Reset (G, From_State);
    end Reset;
 
-   function Image (Of_State    : State)  return String is
+   function Image (Of_State : State)  return String is
    begin
       return Image (Rep_State (Of_State));
    end Image;