diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-01 09:31:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-01 09:31:42 +0000 |
| commit | 6643fd06cbed678a3f6ca0a401235fc309d83248 (patch) | |
| tree | 42ea8fe8295fb97d6917cdd8422a2cca34240010 /gcc/ada/par-ch3.adb | |
| parent | edeff8016281775ee3e9e883a4ea0be40f0c20f7 (diff) | |
| download | gcc-6643fd06cbed678a3f6ca0a401235fc309d83248.tar.gz | |
2008-08-01 Robert Dewar <dewar@adacore.com>
* par-ch3.adb (P_Type_Declaration): Properly handle missing type
keyword
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138503 138bc75d-0d04-0410-961f-82ee72b054a4
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 c2ec59be9dc..87ea4007d47 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; |