diff options
Diffstat (limited to 'gcc/ada/par-ch9.adb')
| -rw-r--r-- | gcc/ada/par-ch9.adb | 34 |
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; |
