* 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: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160979 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 21 insertions, 13 deletions

diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb
index 1271d478a73..23b27c7774e 100644
--- a/gcc/ada/par-ch9.adb
+++ b/gcc/ada/par-ch9.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- --
@@ -154,7 +154,8 @@ package body Ch9 is
             Scan; -- past semicolon
 
             if Token = Tok_Entry then
-               Error_Msg_SP ("|"";"" should be IS");
+               Error_Msg_SP -- CODEFIX
+                 ("|"";"" should be IS");
                Set_Task_Definition (Task_Node, P_Task_Definition);
             else
                Pop_Scope_Stack; -- Remove unused entry
@@ -181,13 +182,14 @@ package body Ch9 is
                end loop;
 
                if Token /= Tok_With then
-                  Error_Msg_SC ("WITH expected");
+                  Error_Msg_SC -- CODEFIX
+                    ("WITH expected");
                end if;
 
                Scan; -- past WITH
 
                if Token = Tok_Private then
-                  Error_Msg_SP
+                  Error_Msg_SP -- CODEFIX
                     ("PRIVATE not allowed in task type declaration");
                end if;
             end if;
@@ -454,7 +456,8 @@ package body Ch9 is
 
             if Token /= Tok_Is then
                Restore_Scan_State (Scan_State);
-               Error_Msg_SC ("missing IS");
+               Error_Msg_SC -- CODEFIX
+                 ("missing IS");
                Set_Protected_Definition (Protected_Node,
                  Make_Protected_Definition (Token_Ptr,
                    Visible_Declarations => Empty_List,
@@ -466,7 +469,8 @@ package body Ch9 is
                return Protected_Node;
             end if;
 
-            Error_Msg_SP ("|extra ""("" ignored");
+            Error_Msg_SP -- CODEFIX
+              ("|extra ""("" ignored");
          end if;
 
          T_Is;
@@ -492,7 +496,8 @@ package body Ch9 is
             end loop;
 
             if Token /= Tok_With then
-               Error_Msg_SC ("WITH expected");
+               Error_Msg_SC -- CODEFIX
+                 ("WITH expected");
             end if;
 
             Scan; -- past WITH
@@ -625,7 +630,8 @@ package body Ch9 is
                Scan;  -- past OVERRIDING
                Not_Overriding := True;
             else
-               Error_Msg_SC ("OVERRIDING expected!");
+               Error_Msg_SC -- CODEFIX
+                 ("OVERRIDING expected!");
             end if;
 
          else
@@ -758,8 +764,7 @@ package body Ch9 is
             Scan; -- past PRIVATE
 
          elsif Token = Tok_Identifier then
-            Error_Msg_SC
-              ("all components must be declared in spec!");
+            Error_Msg_SC ("all components must be declared in spec!");
             Resync_Past_Semicolon;
 
          elsif Token in Token_Class_Declk then
@@ -809,7 +814,8 @@ package body Ch9 is
             Scan;  -- part OVERRIDING
             Not_Overriding := True;
          else
-            Error_Msg_SC ("OVERRIDING expected!");
+            Error_Msg_SC -- CODEFIX
+              ("OVERRIDING expected!");
          end if;
 
       elsif Token = Tok_Overriding then
@@ -823,7 +829,8 @@ package body Ch9 is
             Error_Msg_SP ("\unit must be compiled with -gnat05 switch");
 
          elsif Token /= Tok_Entry then
-            Error_Msg_SC ("ENTRY expected!");
+            Error_Msg_SC -- CODEFIX
+              ("ENTRY expected!");
          end if;
       end if;
 
@@ -1115,7 +1122,8 @@ package body Ch9 is
          Bnode := P_Expression_No_Right_Paren;
 
          if Token = Tok_Colon_Equal then
-            Error_Msg_SC ("|"":="" should be ""=""");
+            Error_Msg_SC -- CODEFIX
+              ("|"":="" should be ""=""");
             Scan;
             Bnode := P_Expression_No_Right_Paren;
          end if;