summaryrefslogtreecommitdiff
path: root/gcc/ada/sem_res.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2012-10-29 09:55:29 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2012-10-29 09:55:29 +0000
commit70a2dff43d9a192b8353414d936f3d05b787b900 (patch)
tree35075f04a4eff3f855363e9e27266e1278710f45 /gcc/ada/sem_res.adb
parentea36a184660c673801812aff695dd9bb88a40a32 (diff)
downloadgcc-70a2dff43d9a192b8353414d936f3d05b787b900.tar.gz
2012-10-29 Yannick Moy <moy@adacore.com>
* checks.adb (Apply_Arithmetic_Overflow_Minimized_Eliminated): Add special case for case expression alternative. (Is_Signed_Integer_Arithmetic_Op): Remove special case for case expression alternative. * exp_ch4.adb Minor reformatting. 2012-10-29 Thomas Quinot <quinot@adacore.com> * sem_elab.adb: Minor reformatting. 2012-10-29 Bob Duff <duff@adacore.com> * sem_res.adb: Minor: Remove redundant test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@192914 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_res.adb')
-rw-r--r--gcc/ada/sem_res.adb4
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 4383754fa31..72c5725f44e 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -6115,9 +6115,7 @@ package body Sem_Res is
-- Check comparison on unordered enumeration
- if Comes_From_Source (N)
- and then Bad_Unordered_Enumeration_Reference (N, Etype (L))
- then
+ if Bad_Unordered_Enumeration_Reference (N, Etype (L)) then
Error_Msg_N ("comparison on unordered enumeration type?", N);
end if;