diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-10 08:25:49 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-10 08:25:49 +0000 |
| commit | 4d1b43aa40a8bc2a7c7abcd21630d69a18953b7e (patch) | |
| tree | 4f1087de4e724b43807042bc98ffc4d2fb4159c4 /gcc/ada/exp_ch7.adb | |
| parent | 695bd6f3f1de4d54e401b7a5c7020f70cf8f1d68 (diff) | |
| download | gcc-4d1b43aa40a8bc2a7c7abcd21630d69a18953b7e.tar.gz | |
2009-08-10 Robert Dewar <dewar@adacore.com>
* exp_ch7.adb: Add ??? comment for last change
2009-08-10 Vincent Celier <celier@adacore.com>
* prj-env.adb (Add_To_Buffer): New procedure
(Create_Config_Pragmas_File): Write to temporary file in one shot
(Create_Mapping_File): Ditto
(Set_Ada_Paths): Ditto
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150618 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch7.adb')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index a4f6a66fd9b..8e7ecbc4110 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -3554,7 +3554,9 @@ 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); + + Expr : constant Node_Id := Relocate_Node (N); + -- Capture this node because the call to Adjust_SCIL_Node can ??? begin -- If the relocated node is a function call then check if some SCIL |