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_attr.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_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 54ce3ee0baa..ad75f90556c 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -3072,19 +3072,9 @@ package body Exp_Attr is -- Rewrite the attribute reference with the value of Uses_Lock_Free when Attribute_Lock_Free => Lock_Free : declare - Val : Entity_Id; - + V : constant Entity_Id := Boolean_Literals (Uses_Lock_Free (Ptyp)); begin - if Uses_Lock_Free (Ptyp) then - Val := Standard_True; - - else - Val := Standard_False; - end if; - - Rewrite (N, - New_Occurrence_Of (Val, Loc)); - + Rewrite (N, New_Occurrence_Of (V, Loc)); Analyze_And_Resolve (N, Standard_Boolean); end Lock_Free; |