diff options
| author | Robert Dewar <dewar@adacore.com> | 2007-06-06 12:52:32 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:52:32 +0200 |
| commit | a99ada67cfc0517c1c827743bedbe11c24a64074 (patch) | |
| tree | 162a23fa1dc6b2cfca448b3db6905b462f282b70 /gcc/ada/par-tchk.adb | |
| parent | 7d2e68b351a9a69a273fc2a7f38893a23c8c6358 (diff) | |
| download | gcc-a99ada67cfc0517c1c827743bedbe11c24a64074.tar.gz | |
a-reatim.adb: Documentation addition
2007-04-20 Robert Dewar <dewar@adacore.com>
* a-reatim.adb: Documentation addition
* g-cgideb.adb: Minor code reorganization
* tree_io.adb, treepr.adb, cstand.adb, krunch.adb, par.adb,
mdll-utl.adb, par-ch5.adb, par-tchk.adb, s-exctab.ads, s-memory.ads,
s-osprim.ads, s-restri.ads, s-soflin.ads: Minor reformatting.
* debug.ads, debug.adb (Get_Debug_Flag_K): Remove unused obsolete
function. Change name New_Scope to Push_Scope
(Get_Debug_Flag_K): Remove unused obsolete function.
* exp_ch8.adb, inline.adb, sem_ch8.ads: Change name New_Scope to
Push_Scope.
* makeusg.adb: Update Copyright notice
Add line for switch -aP
* makeusg.adb: Fix wording of some usage messages
* s-assert.adb (Raise_Assert_Failure): Add call to
Debug_Raise_Assert_Failure.
* s-unstyp.ads (type Packed_Bytes2): Change alignment to use 'Min
(2, Standard'Alignment) for compatibility with AAMP (where alignment
is restricted to 1).
* s-wchjis.adb: Remove use of System.Pure_Exceptions
* tbuild.ads, tbuild.adb (Make_Implicit_Exception_Handler): Set the
node location to No_Location when we're not debugging the expanded
code.
From-SVN: r125478
Diffstat (limited to 'gcc/ada/par-tchk.adb')
| -rw-r--r-- | gcc/ada/par-tchk.adb | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb index 01ade90ee81..a87d6a09f9a 100644 --- a/gcc/ada/par-tchk.adb +++ b/gcc/ada/par-tchk.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, 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- -- @@ -417,26 +417,25 @@ package body Tchk is 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 semicolon in this case, we avoid some spurious - -- missing semicolon messages. + -- 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. elsif Prev_Token = Tok_Semicolon then return; - -- If the current token is | then this is a reasonable - -- place to suggest the possibility of a "C" confusion :-) + -- If the current token is | then this is a reasonable place to suggest + -- the possibility of a "C" confusion. elsif Token = Tok_Vertical_Bar then Error_Msg_SC ("unexpected occurrence of ""'|"", did you mean OR'?"); Resync_Past_Semicolon; return; - -- Deal with pragma. If pragma is not at start of line, it is - -- considered misplaced otherwise we treat it as a normal - -- missing semicolong case. + -- Deal with pragma. If pragma is not at start of line, it is considered + -- misplaced otherwise we treat it as a normal missing semicolong case. elsif Token = Tok_Pragma and then not Token_Is_At_Start_Of_Line |