diff options
Diffstat (limited to 'gcc/ada/par-tchk.adb')
| -rw-r--r-- | gcc/ada/par-tchk.adb | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb index 6efb1e96697..eefd7b4302e 100644 --- a/gcc/ada/par-tchk.adb +++ b/gcc/ada/par-tchk.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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- -- @@ -452,10 +452,10 @@ package body Tchk is Scan; return; - -- An interesting little kludge here. If the previous token is a - -- semicolon, then there is no way that we can legitimately need another - -- semicolon. This could only arise in an error situation where an error - -- has already been signalled. By simply ignoring the request for a + -- An interesting little kludge. If the previous token is a semicolon, + -- then there is no way that we can legitimately need another semicolon. + -- This could only arise in an error situation where an error has + -- already been signalled. By simply ignoring the request for a -- semicolon in this case, we avoid some spurious missing semicolon -- messages. @@ -474,9 +474,7 @@ package body Tchk is -- Deal with pragma. If pragma is not at start of line, it is considered -- misplaced otherwise we treat it as a normal missing semicolon case. - elsif Token = Tok_Pragma - and then not Token_Is_At_Start_Of_Line - then + elsif Token = Tok_Pragma and then not Token_Is_At_Start_Of_Line then P_Pragmas_Misplaced; if Token = Tok_Semicolon then |