diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-17 10:28:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-10-17 10:28:53 +0000 |
| commit | d8e567936e040b0a1f0aa350717d65d1db156d4a (patch) | |
| tree | 838481e4a8a085857e86d1310288229c87194c20 /gcc/ada/sem_res.adb | |
| parent | bc228ba1571ffea2c7a33835a88e1f0509d3378b (diff) | |
| download | gcc-d8e567936e040b0a1f0aa350717d65d1db156d4a.tar.gz | |
2013-10-17 Tristan Gingold <gingold@adacore.com>
* a-exexpr-gcc.adb: Synchronize declarations of other/all others.
2013-10-17 Thomas Quinot <quinot@adacore.com>
* exp_pakd.adb: Add missing guard protecting Reverse_Storage_Order
call.
* sem_res.adb: Minor code cleanup: use named parameter association
(not positional) for Boolean parameter Sec_Stack in calls to
Establish_Transient_Scope.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@203746 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 430766d25bc..9409972ec54 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -3602,7 +3602,7 @@ package body Sem_Res is and then Full_Expander_Active and then (Is_Controlled (Etype (F)) or else Has_Task (Etype (F))) then - Establish_Transient_Scope (A, False); + Establish_Transient_Scope (A, Sec_Stack => False); Resolve (A, Etype (F)); -- A small optimization: if one of the actuals is a concatenation @@ -3621,7 +3621,7 @@ package body Sem_Res is and then Chars (Nam) = Name_Asm) and then not Static_Concatenation (A) then - Establish_Transient_Scope (A, False); + Establish_Transient_Scope (A, Sec_Stack => False); Resolve (A, Etype (F)); else @@ -3680,7 +3680,7 @@ package body Sem_Res is if (Is_Controlled (DDT) or else Has_Task (DDT)) and then Full_Expander_Active then - Establish_Transient_Scope (A, False); + Establish_Transient_Scope (A, Sec_Stack => False); end if; end; |