diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-21 06:32:54 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-21 06:32:54 +0000 |
| commit | 0353bcea3894f3e2e70f1a19fa95b84db20b3f3e (patch) | |
| tree | 379bc935342ebf1d5878640474035e1204555845 /gcc/ada/par-ch3.adb | |
| parent | a6e60f51f8bf4ad1960cf29dc4d20847b8b9f1b8 (diff) | |
| download | gcc-0353bcea3894f3e2e70f1a19fa95b84db20b3f3e.tar.gz | |
2010-10-21 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 165748
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@165750 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par-ch3.adb')
| -rw-r--r-- | gcc/ada/par-ch3.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 27a9cfc8cf1..126fb4ab0cf 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -1137,6 +1137,16 @@ package body Ch3 is Discard_Junk_Node (P_Array_Type_Definition); return Error; + -- If Some becomes a keyword, the following is needed to make it + -- acceptable in older versions of Ada. + + elsif Token = Tok_Some + and then Ada_Version < Ada_2012 + then + Scan_Reserved_Identifier (False); + Scan; + return Token_Node; + else Type_Node := P_Qualified_Simple_Name_Resync; |