summaryrefslogtreecommitdiff
path: root/gcc/ada/sem_eval.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-01-22 14:06:41 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-01-22 14:06:41 +0000
commitb449921f19e37a7203a611124de17883f8ffa532 (patch)
tree7e53555c034af514a10577b663690b8774a9c944 /gcc/ada/sem_eval.adb
parente0d84de102d4efe0ed29f0d1d4c7fb37843a6d40 (diff)
downloadlinaro-gcc-b449921f19e37a7203a611124de17883f8ffa532.tar.gz
linaro-gcc-b449921f19e37a7203a611124de17883f8ffa532.tar.bz2
linaro-gcc-b449921f19e37a7203a611124de17883f8ffa532.zip
2014-01-22 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, exp_util.adb, sem_dim.adb, sem_elab.adb, sem_ch8.adb, sem_eval.ads: Minor reformatting. 2014-01-22 Thomas Quinot <quinot@adacore.com> * sem_eval.adb (Compile_Time_Known_Bounds): Return False for Any_Composite to prevent cascaded errors. 2014-01-22 Yannick Moy <moy@adacore.com> * errout.adb (Initialize): Do not insert special entry in Warnings table in GNATprove_Mode. * erroutc.adb (Set_Warnings_Mode_On): Add info in Warnings table in GNATprove_Mode. * gnat1drv.adb (Adjust_Global_Switches): Do not suppress frontend warnings anymore. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206922 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_eval.adb')
-rw-r--r--gcc/ada/sem_eval.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index 8f7eff4af68..920ee7c8777 100644
--- a/gcc/ada/sem_eval.adb
+++ b/gcc/ada/sem_eval.adb
@@ -1259,7 +1259,7 @@ package body Sem_Eval is
Typ : Entity_Id;
begin
- if not Is_Array_Type (T) then
+ if T = Any_Composite or else not Is_Array_Type (T) then
return False;
end if;