diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-05 15:32:46 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-05 15:32:46 +0100 |
commit | 273123a48a42b08a87cacdfe665848c143716ef1 (patch) | |
tree | e08fa47e3dc28c05eb306575c569f416823c5b73 /gcc/ada/prj-strt.adb | |
parent | ee7c8ffd33b0919d52b413c4eb816062f2e8cbc5 (diff) | |
download | gcc-273123a48a42b08a87cacdfe665848c143716ef1.zip gcc-273123a48a42b08a87cacdfe665848c143716ef1.tar.gz gcc-273123a48a42b08a87cacdfe665848c143716ef1.tar.bz2 |
[multiple changes]
2015-02-05 Javier Miranda <miranda@adacore.com>
* errout.adb (Error_Msg_PT): Add missing error.
* sem_ch6.adb (Check_Synchronized_Overriding): Check the missing
RM rule. Code cleanup.
* exp_ch9.adb (Build_Wrapper_Spec): Propagate "constant" in
anonymous access types. Found working on the tests. Code cleanup.
2015-02-05 Vincent Celier <celier@adacore.com>
* prj-dect.adb (Parse_Attribute_Declaration): Continue scanning
when there are incomplete withs.
* prj-nmsc.adb (Process_Naming): Do not try to get the value
of an element when it is nil.
(Check_Naming): Do not check a nil suffix for illegality
* prj-proc.adb (Expression): Do not process an empty term.
* prj-strt.adb (Attribute_Reference): If attribute cannot be
found, parse a possible index to avoid cascading errors.
2015-02-05 Ed Schonberg <schonberg@adacore.com>
* sem_aux.adb (Is_Derived_Type): A subprogram_type generated
for an access_to_subprogram declaration is not a derived type.
From-SVN: r220451
Diffstat (limited to 'gcc/ada/prj-strt.adb')
-rw-r--r-- | gcc/ada/prj-strt.adb | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/gcc/ada/prj-strt.adb b/gcc/ada/prj-strt.adb index a6b0b38..8956e97 100644 --- a/gcc/ada/prj-strt.adb +++ b/gcc/ada/prj-strt.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2015, 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- -- @@ -207,6 +207,20 @@ package body Prj.Strt is Scan (In_Tree); + -- Skip a possible index for an associative array + + if Token = Tok_Left_Paren then + Scan (In_Tree); + + if Token = Tok_String_Literal then + Scan (In_Tree); + + if Token = Tok_Right_Paren then + Scan (In_Tree); + end if; + end if; + end if; + else -- Give its characteristics to this attribute reference |