diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-07 12:24:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-07 12:24:31 +0000 |
| commit | 9d0f093f7165d9ecf452fa4db15039b123011c0a (patch) | |
| tree | 6cd2acd72a2a4954e6c1c0fce434c13e8a7e9ad2 /gcc/ada/par.adb | |
| parent | d334eb512efec818f5670d786dbfde85116c5dc0 (diff) | |
| download | gcc-9d0f093f7165d9ecf452fa4db15039b123011c0a.tar.gz | |
2010-10-07 Robert Dewar <dewar@adacore.com>
* scng.adb (Skip_Other_Format_Characters): New procedure
(Start_Of_Wide_Character): New procedure
(Scan): Use Start_Of_Wide_Character where appropriate
(Scan): Improve error message for other_format chars in identifier
(Scan): Allow other_format chars between tokens
2010-10-07 Javier Miranda <miranda@adacore.com>
* exp_util.adb (Safe_Prefixed_Reference): When removing side effects,
Add missing support for explicit dereferences.
2010-10-07 Robert Dewar <dewar@adacore.com>
* par-ch10.adb, par-ch3.adb, par.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165097 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 28c2ca789ee..8a0c9014e2e 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -361,17 +361,17 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is function F return Boolean renames False; Pf_Decl_Gins_Pbod_Rnam_Stub : constant Pf_Rec := - Pf_Rec'(F, T, T, T, T, T, F, F); + Pf_Rec'(F, T, T, T, T, T, F, F); Pf_Decl : constant Pf_Rec := - Pf_Rec'(F, T, F, F, F, F, F, F); + Pf_Rec'(F, T, F, F, F, F, F, F); Pf_Decl_Gins_Pbod_Rnam : constant Pf_Rec := - Pf_Rec'(F, T, T, T, T, F, F, F); + Pf_Rec'(F, T, T, T, T, F, F, F); Pf_Decl_Pbod : constant Pf_Rec := - Pf_Rec'(F, T, F, T, F, F, F, F); + Pf_Rec'(F, T, F, T, F, F, F, F); Pf_Pbod : constant Pf_Rec := - Pf_Rec'(F, F, F, T, F, F, F, F); + Pf_Rec'(F, F, F, T, F, F, F, F); Pf_Spcn : constant Pf_Rec := - Pf_Rec'(T, F, F, F, F, F, F, F); + Pf_Rec'(T, F, F, F, F, F, F, F); -- The above are the only allowed values of Pf_Rec arguments type SS_Rec is record |