diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 10:36:42 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 10:36:42 +0000 |
| commit | e4c87fa54e168be9cdbb50057992277b6984ea12 (patch) | |
| tree | d2e9bd8a5faa86e9021f0ad569650516d8108c88 /gcc/ada/exp_ch9.adb | |
| parent | 5ab7f2859836f90a6b9ff0816bfdda210b97ecc7 (diff) | |
| download | gcc-e4c87fa54e168be9cdbb50057992277b6984ea12.tar.gz | |
2012-07-09 Vincent Celier <celier@adacore.com>
* lib-writ.ads: Add documentation for the Z lines (implicitly
withed units) and Y lines (limited withed units).
2012-07-09 Robert Dewar <dewar@adacore.com>
* lib.ads, exp_attr.adb, exp_ch9.adb, sem_dim.adb, sem_ch9.adb,
sem_prag.adb, sem_ch12.adb, mlib-utl.adb, freeze.adb, sem_res.adb,
sem_attr.adb, sem_case.adb, gnatlink.adb, exp_ch4.adb, sem_ch6.adb,
sem_elim.adb, s-dimmks.ads, sem_ch13.adb: Minor code clean ups.
2012-07-09 Eric Botcazou <ebotcazou@adacore.com>
* gnat_ugn.texi (Switches for gcc): Document -gnatn[12] only
lightly in the summary and more thoroughly in inlining section.
(Performance Considerations): Document -gnatn[12] in inlining
section.
2012-07-09 Tristan Gingold <gingold@adacore.com>
* a-exexpr-gcc.adb (Unhandled_Except_Handler): New procedure.
(Unhandled_Others_Value): New const.
* raise-gcc.c (GNAT_UNHANDLED_OTHERS): Define.
(action_descriptor): Remove ttype_entry.
(get_action_description_for): Do not assign ttype_entry.
(is_handled_by): Consider GNAT_UNHANDLED_OTHERS.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189367 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 620efc96ad7..e95db771798 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -13955,13 +13955,10 @@ package body Exp_Ch9 is -- will allocate an array to hold the string names of task entries. if not Restricted_Profile then - if Has_Entries (Ttyp) - and then Entry_Names_OK - then - Append_To (Args, New_Reference_To (Standard_True, Loc)); - else - Append_To (Args, New_Reference_To (Standard_False, Loc)); - end if; + Append_To (Args, + New_Reference_To + (Boolean_Literals (Has_Entries (Ttyp) and then Entry_Names_OK), + Loc)); end if; if Restricted_Profile then |