diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 11:31:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 11:31:42 +0200 |
| commit | 0c2466035d83c57a77653edc273ff783ec8c4847 (patch) | |
| tree | 42ea8fe8295fb97d6917cdd8422a2cca34240010 /gcc/ada/par-ch3.adb | |
| parent | 2fc66c69c78fd0877b042dacb124b2c99f8f3477 (diff) | |
| download | gcc-0c2466035d83c57a77653edc273ff783ec8c4847.zip gcc-0c2466035d83c57a77653edc273ff783ec8c4847.tar.gz gcc-0c2466035d83c57a77653edc273ff783ec8c4847.tar.bz2 | |
par-ch3.adb (P_Type_Declaration): Properly handle missing type keyword
2008-08-01 Robert Dewar <dewar@adacore.com>
* par-ch3.adb (P_Type_Declaration): Properly handle missing type
keyword
From-SVN: r138503
Diffstat (limited to 'gcc/ada/par-ch3.adb')
| -rw-r--r-- | gcc/ada/par-ch3.adb | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index c2ec59b..87ea4007 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -295,15 +295,8 @@ package body Ch3 is else T_Type; - - if Token = Tok_Identifier - and then Nkind (Token_Node) = N_Defining_Identifier - then - Ident_Node := Token_Node; - Scan; -- past defining identifier - else - Ident_Node := P_Defining_Identifier (C_Is); - end if; + Type_Token_Location := Type_Loc; + Ident_Node := P_Defining_Identifier (C_Is); end if; Discr_Sloc := Token_Ptr; |