diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-02-05 11:17:25 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-05 12:17:25 +0100 |
| commit | c93f201145542240f9b197b17c06ddab696bbfd4 (patch) | |
| tree | ac9371e2bf91d0005b7f52c36eb36a0184fe05d6 /gcc/ada/s-rannum.adb | |
| parent | 71140fc6ca792f3666e126b5eec4640193741ae2 (diff) | |
| download | gcc-c93f201145542240f9b197b17c06ddab696bbfd4.zip gcc-c93f201145542240f9b197b17c06ddab696bbfd4.tar.gz gcc-c93f201145542240f9b197b17c06ddab696bbfd4.tar.bz2 | |
g-rannum.adb, [...]: Minor reformatting.
2015-02-05 Robert Dewar <dewar@adacore.com>
* g-rannum.adb, g-rannum.ads, s-rannum.adb, s-rannum.ads,
sem_warn.ads: Minor reformatting.
* exp_ch13.adb (Expand_N_Freeze_Entity): Add guard for aspect
deleted by -gnatI.
* sem_prag.adb (Analyze_Pragma, case Type_Invariant): Give
error for abstract type.
From-SVN: r220445
Diffstat (limited to 'gcc/ada/s-rannum.adb')
| -rw-r--r-- | gcc/ada/s-rannum.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-rannum.adb b/gcc/ada/s-rannum.adb index e31a2dc..f722f6c 100644 --- a/gcc/ada/s-rannum.adb +++ b/gcc/ada/s-rannum.adb @@ -97,8 +97,8 @@ use Ada; package body System.Random_Numbers with SPARK_Mode => Off is - Image_Numeral_Length : constant := Max_Image_Width / N; + subtype Image_String is String (1 .. Max_Image_Width); ---------------------------- |