From 93b47a370c34d1db904fad66eb33a8b39a38f48c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 18 Jun 2010 12:14:52 +0000 Subject: * par-ch9.adb, sem_aggr.adb, sem_ch3.adb, layout.adb, sem_ch4.adb, sem_ch5.adb, sem_mech.adb, exp_util.adb, par-ch10.adb, sem_ch6.adb, par-ch11.adb, sem_ch7.adb, par-prag.adb, exp_disp.adb, par-ch12.adb, sem_ch8.adb, style.adb, sem_ch9.adb, sem_ch10.adb, prep.adb, sem_warn.adb, par-util.adb, scng.adb, sem_eval.adb, checks.adb, sem_prag.adb, sem_ch12.adb, styleg.adb, sem_ch13.adb, par-ch3.adb, par-tchk.adb, freeze.adb, sfn_scan.adb, par-ch4.adb, sem_util.adb, sem_res.adb, par-ch5.adb, lib-xref.adb, sem_attr.adb, par-ch6.adb, sem_disp.adb, prepcomp.adb, par-ch7.adb, sem_elab.adb, exp_ch4.adb, errout.ads: Update comments. Minor reformatting. git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@160979 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/par-ch6.adb | 38 ++++++++++++++++++++++++-------------- 1 file changed, 24 insertions(+), 14 deletions(-) (limited to 'gcc/ada/par-ch6.adb') diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 2916f53d162..fc9a3741366 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -64,7 +64,8 @@ package body Ch6 is if Token = Tok_Return then Restore_Scan_State (Scan_State); - Error_Msg_SC ("|extra "";"" ignored"); + Error_Msg_SC -- CODEFIX + ("|extra "";"" ignored"); Scan; -- rescan past junk semicolon else Restore_Scan_State (Scan_State); @@ -195,7 +196,8 @@ package body Ch6 is Not_Overriding := True; else - Error_Msg_SC ("OVERRIDING expected!"); + Error_Msg_SC -- CODEFIX + ("OVERRIDING expected!"); end if; -- Ada 2005: scan leading OVERRIDING indicator @@ -348,7 +350,8 @@ package body Ch6 is if Token = Tok_Return then if not Func then - Error_Msg ("PROCEDURE should be FUNCTION", Fproc_Sloc); + Error_Msg -- CODEFIX + ("PROCEDURE should be FUNCTION", Fproc_Sloc); Func := True; end if; @@ -421,7 +424,8 @@ package body Ch6 is Scan; -- past semicolon if Token = Tok_Is then - Error_Msg_SP ("extra "";"" ignored"); + Error_Msg_SP -- CODEFIX + ("extra "";"" ignored"); else Restore_Scan_State (Scan_State); end if; @@ -440,7 +444,8 @@ package body Ch6 is -- semicolon, and go process the body. if Token = Tok_Is then - Error_Msg_SP ("|extra "";"" ignored"); + Error_Msg_SP -- CODEFIX + ("|extra "";"" ignored"); T_Is; -- scan past IS goto Subprogram_Body; @@ -452,7 +457,8 @@ package body Ch6 is elsif Token = Tok_Begin and then Start_Column >= Scope.Table (Scope.Last).Ecol then - Error_Msg_SP ("|"";"" should be IS!"); + Error_Msg_SP -- CODEFIX + ("|"";"" should be IS!"); goto Subprogram_Body; else @@ -492,7 +498,8 @@ package body Ch6 is -- Deal nicely with (now obsolete) use of <> in place of abstract if Token = Tok_Box then - Error_Msg_SC ("ABSTRACT expected"); + Error_Msg_SC -- CODEFIX + ("ABSTRACT expected"); Token := Tok_Abstract; end if; @@ -556,7 +563,8 @@ package body Ch6 is -- semicolon which should really be an IS else - Error_Msg_AP ("|missing "";"""); + Error_Msg_AP -- CODEFIX + ("|missing "";"""); SIS_Missing_Semicolon_Message := Get_Msg_Id; goto Subprogram_Declaration; end if; @@ -1219,7 +1227,8 @@ package body Ch6 is -- that semicolon should have been a right parenthesis and exit if Token = Tok_Is or else Token = Tok_Return then - Error_Msg_SP ("|"";"" should be "")"""); + Error_Msg_SP -- CODEFIX + ("|"";"" should be "")"""); exit Specification_Loop; end if; @@ -1227,7 +1236,8 @@ package body Ch6 is -- assume we had a missing right parenthesis and terminate list if Token in Token_Class_Declk then - Error_Msg_AP ("missing "")"""); + Error_Msg_AP -- CODEFIX + ("missing "")"""); Restore_Scan_State (Scan_State); exit Specification_Loop; end if; @@ -1290,7 +1300,8 @@ package body Ch6 is Set_In_Present (Node, True); if Style.Mode_In_Check and then Token /= Tok_Out then - Error_Msg_SP ("(style) IN should be omitted"); + Error_Msg_SP -- CODEFIX + ("(style) IN should be omitted"); end if; if Token = Tok_Access then @@ -1305,8 +1316,7 @@ package body Ch6 is end if; if Token = Tok_In then - Error_Msg_SC -- CODEFIX ??? - ("IN must precede OUT in parameter mode"); + Error_Msg_SC ("IN must precede OUT in parameter mode"); Scan; -- past IN Set_In_Present (Node, True); end if; -- cgit v1.2.3