diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-08-17 11:45:27 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-08-17 11:45:27 +0200 |
commit | 5568b57c5101ca0a9a38e9d080a07712946a8f54 (patch) | |
tree | 3ee3085ebea787bb050f4ad3bcc1772ec2d048c6 /gcc/ada/exp_ch7.adb | |
parent | 48eff283138708a8be3d3ed2ad20d34f875abbb8 (diff) | |
download | gcc-5568b57c5101ca0a9a38e9d080a07712946a8f54.zip gcc-5568b57c5101ca0a9a38e9d080a07712946a8f54.tar.gz gcc-5568b57c5101ca0a9a38e9d080a07712946a8f54.tar.bz2 |
[multiple changes]
2009-08-17 Ed Schonberg <schonberg@adacore.com>
* exp_ch3.adb (Build_Discriminant_Formals): If the discriminals already
exist, as is the case for synchronized types, use the type of the
discriminal in the parameter specification, to prevent a spurious
subtype mismatch in gigi.
2009-08-17 Robert Dewar <dewar@adacore.com>
* prj-env.adb: Minor reformatting
* make.adb: Minor reformatting
Comment updates
2009-08-17 Javier Miranda <miranda@adacore.com>
* exp_ch7.adb (Wrap_Transient_Expression): Update comments.
From-SVN: r150828
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
-rw-r--r-- | gcc/ada/exp_ch7.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 8e7ecbc..a4f6a66 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -3554,9 +3554,7 @@ package body Exp_Ch7 is Loc : constant Source_Ptr := Sloc (N); E : constant Entity_Id := Make_Temporary (Loc, 'E', N); Etyp : constant Entity_Id := Etype (N); - - Expr : constant Node_Id := Relocate_Node (N); - -- Capture this node because the call to Adjust_SCIL_Node can ??? + Expr : constant Node_Id := Relocate_Node (N); begin -- If the relocated node is a function call then check if some SCIL |