From 1c612f29199ea74e57bd9872e11ee726703aab2f Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 22 Jun 2010 15:32:18 +0000 Subject: s-rannum.adb, [...]: Minor reformatting. 2010-06-22 Robert Dewar * 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. From-SVN: r161194 --- gcc/ada/a-nudira.adb | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) (limited to 'gcc/ada/a-nudira.adb') 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; -- cgit v1.2.1