diff options
author | Robert Dewar <dewar@adacore.com> | 2007-08-14 10:40:24 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-14 10:40:24 +0200 |
commit | 7dc5f546f00b73ed1400033e3d17416373f668da (patch) | |
tree | fabf23842abeb1091a1d9edaa14c897620da39dc /gcc/ada/par.ads | |
parent | 3355aa3e72ad9cc9cad23709967d82e897fb6bdf (diff) | |
download | gcc-7dc5f546f00b73ed1400033e3d17416373f668da.zip gcc-7dc5f546f00b73ed1400033e3d17416373f668da.tar.gz gcc-7dc5f546f00b73ed1400033e3d17416373f668da.tar.bz2 |
par.ads, par.adb: Improve handling of extra right parens.
2007-08-14 Robert Dewar <dewar@adacore.com>
Ed Schonberg <schonberg@adacore.com>
* par.ads, par.adb: Improve handling of extra right parens.
(Par): Remove flag From_Limited_With_Clause.
* par-util.adb, par-ch3.adb: Improve error recovery for bad constraint
Improve handling of extra right parens.
From-SVN: r127423
Diffstat (limited to 'gcc/ada/par.ads')
-rw-r--r-- | gcc/ada/par.ads | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/gcc/ada/par.ads b/gcc/ada/par.ads index f610ef0..5dd8a2b 100644 --- a/gcc/ada/par.ads +++ b/gcc/ada/par.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, 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- -- @@ -30,17 +30,14 @@ with Types; use Types; function Par - (Configuration_Pragmas : Boolean; - From_Limited_With : Boolean := False) return List_Id; + (Configuration_Pragmas : Boolean) return List_Id; -- Top level parsing routine. There are two cases: -- -- If Configuration_Pragmas is False, Par parses a compilation unit in the -- current source file and sets the Cunit, Cunit_Entity and Unit_Name fields -- of the units table entry for Current_Source_Unit. On return the parse tree -- is complete, and decorated with any required implicit label declarations. --- The value returned in this case is always No_List. If From_Limited_With is --- True, we are parsing a compilation unit found in a limited-with clause (Ada --- 2005, AI-50217) +-- The value returned in this case is always No_List. -- -- If Configuration_Pragmas is True, Par parses a list of configuration -- pragmas from the current source file, and returns the list of pragmas. |