From 57323d5bd3d3b553788a6f13217829069bf95bfe Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 27 Apr 2016 15:25:54 +0200 Subject: [multiple changes] 2016-04-27 Arnaud Charlet * sem_ch10.adb, sem_case.adb: Mark messages udner -gnatwr when needed. 2016-04-27 Hristian Kirtchev * errout.adb, errutil.adb: Minor reformatting. 2016-04-27 Ed Schonberg * sem_ch13.adb (Analyze_Aspect_Specifications, case Pre/Post): Check that the classwide version is illegal when the prefix is an operation of an untagged synchronized type. From-SVN: r235504 --- gcc/ada/errutil.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gcc/ada/errutil.adb') diff --git a/gcc/ada/errutil.adb b/gcc/ada/errutil.adb index d4e9510..3a8f0fb 100644 --- a/gcc/ada/errutil.adb +++ b/gcc/ada/errutil.adb @@ -314,8 +314,7 @@ package body Errutil is end if; elsif Errors.Table (Cur_Msg).Warn - or else - Errors.Table (Cur_Msg).Style + or else Errors.Table (Cur_Msg).Style then Warnings_Detected := Warnings_Detected + 1; -- cgit v1.1