From 06eec79f7a90b99d20f1ef37bab7232579b17e97 Mon Sep 17 00:00:00 2001 From: charlet Date: Wed, 31 Aug 2011 09:24:32 +0000 Subject: 2011-08-31 Robert Dewar * exp_ch5.adb, exp_ch7.ads, sem_ch5.adb, put_scos.adb, s-rannum.adb, a-rbtgbo.adb, exp_intr.adb, a-cbdlli.adb, a-cbdlli.ads: Minor reformatting. 2011-08-31 Hristian Kirtchev * exp_util.adb (Find_Protection_Type): Do not look for fields _object if the corresponding type is malformed due to restriction violations. 2011-08-31 Robert Dewar * s-ransee.ads, s-ransee.adb: Minor reformatting. 2011-08-31 Hristian Kirtchev * exp_ch4.adb (Expand_N_Allocator): Correct faulty condition which would cause the generation of Set_Finalize_Address if the target is a VM and the designated type is not derived from [Limited_]Controlled. 2011-08-31 Arnaud Charlet * comperr.adb, comperr.ads, gnat1drv.adb (Delete_SCIL_Files): New subprogram. (Compiler_Abort, Gnat1drv): Call Delete_SCIL_Files in codepeer mode in case of a compilation error. 2011-08-31 Hristian Kirtchev * init.c (__gnat_error_handler): Standardize the stack overflow or erroneous memory access message. * seh_init.c (__gnat_SEH_error_handler): Standardize the stack overflow or erroneous memory access message. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178368 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/s-rannum.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/s-rannum.adb') diff --git a/gcc/ada/s-rannum.adb b/gcc/ada/s-rannum.adb index d0b14fdf9db..4e5e1d55797 100644 --- a/gcc/ada/s-rannum.adb +++ b/gcc/ada/s-rannum.adb @@ -87,6 +87,7 @@ ------------------------------------------------------------------------------ with Ada.Unchecked_Conversion; + with System.Random_Seed; with Interfaces; use Interfaces; @@ -480,7 +481,7 @@ package body System.Random_Numbers is procedure Reset (Gen : Generator) is X : constant Unsigned_32 := - Unsigned_32'Mod (Unsigned_64 (Random_Seed.Get_Seed) * 64); + Unsigned_32'Mod (Unsigned_64 (Random_Seed.Get_Seed) * 64); -- Why * 64 ??? begin -- cgit v1.2.1