diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 15:16:58 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 15:16:58 +0200 |
| commit | 1bb6e262cf96060be3098d2089c1fe059e73dedd (patch) | |
| tree | d9654ebc44bca87f43ed82e76a31c538ae729781 /gcc/ada/prj-part.adb | |
| parent | db15225a8e354c5223e074054bbf8757b886d032 (diff) | |
| download | gcc-1bb6e262cf96060be3098d2089c1fe059e73dedd.zip gcc-1bb6e262cf96060be3098d2089c1fe059e73dedd.tar.gz gcc-1bb6e262cf96060be3098d2089c1fe059e73dedd.tar.bz2 | |
[multiple changes]
2011-09-01 Gary Dismukes <dismukes@adacore.com>
* exp_ch6.ads (Needs_BIP_Alloc_Form): New utility function.
* exp_ch6.adb (Make_Build_In_Place_Call_In_Object_Declaration):
Test for case where call
initializes an object of a return statement before testing for
a constrained call, to ensure that all such cases get handled
by simply passing on the caller's parameters. Also, in that
case call Needs_BIP_Alloc_Form to determine whether to pass on
the BIP_Alloc_Form parameter of the enclosing function rather
than testing Is_Constrained. Add similar tests for the return
of a BIP call to later processing to ensure consistent handling.
(Needs_BIP_Alloc_Form): New utility function.
* sem_ch6.adb: (Create_Extra_Formals): Replace test for adding
a BIP_Alloc_Form formal with call to new utility function
Needs_BIP_Alloc_Form.
2011-09-01 Pascal Obry <obry@adacore.com>
* prj-part.adb: Minor reformatting.
2011-09-01 Vincent Celier <celier@adacore.com>
* prj-env.adb (Create_Mapping_File.Process): Encode the upper
half character in the unit name.
From-SVN: r178411
Diffstat (limited to 'gcc/ada/prj-part.adb')
| -rw-r--r-- | gcc/ada/prj-part.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index 8985e97..3b07a80 100644 --- a/gcc/ada/prj-part.adb +++ b/gcc/ada/prj-part.adb @@ -1037,8 +1037,8 @@ package body Prj.Part is Proj_Qualifier := Aggregate; Scan (In_Tree); - if Token = Tok_Identifier and then - Token_Name = Snames.Name_Library + if Token = Tok_Identifier + and then Token_Name = Snames.Name_Library then Proj_Qualifier := Aggregate_Library; Scan (In_Tree); |