diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 12:29:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 12:29:00 +0000 |
| commit | b8eacb124b2ddc57ec8af4e86868801141aae4ab (patch) | |
| tree | 9b257585b7a26bdfccae1bd31babb3d1658714ef /gcc/ada/sem_attr.adb | |
| parent | 79dd9ad2c6c2772f96d66ae63624b4bfbec604db (diff) | |
| download | gcc-b8eacb124b2ddc57ec8af4e86868801141aae4ab.tar.gz | |
2015-10-20 Bob Duff <duff@adacore.com>
* s-mudido-affinity.adb (Create): Correct subranges of slices of CPU
arrays.
2015-10-20 Arnaud Charlet <charlet@adacore.com>
* sinfo.ads, g-pehage.adb, par-ch12.adb,
layout.adb, exp_util.adb, sem_aux.adb, make.adb, checks.adb,
sem_ch12.adb, sem_res.adb, sem_attr.adb, a-ngelfu.adb, sem_ch4.adb,
switch-b.adb, sem_ch6.adb, prj-dect.adb, gnatxref.adb, sem_ch13.adb,
lib-xref.adb: Fix typos.
2015-10-20 Tristan Gingold <gingold@adacore.com>
* exp_ch4.adb (Expand_Array_Comparison): Use
generic code if runtime routine is not available.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229071 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_attr.adb')
| -rw-r--r-- | gcc/ada/sem_attr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 4d6bf7c5a18..5be1b3941f8 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -1531,7 +1531,7 @@ package body Sem_Attr is ("expression for dimension must be static!", E1); Error_Attr; - elsif UI_To_Int (Expr_Value (E1)) > D + elsif UI_To_Int (Expr_Value (E1)) > D or else UI_To_Int (Expr_Value (E1)) < 1 then Error_Attr ("invalid dimension number for array type", E1); |