* 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

1 files changed, 24 insertions, 14 deletions

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;