diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-23 16:40:55 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-23 16:40:55 +0000 |
| commit | 7fd3f504416286edc2584ec8099490432443ceb6 (patch) | |
| tree | c50f816477650b4e3cbb25b84c72aae959f07b1b /gcc/ada/sinfo.ads | |
| parent | 99151707982f2e28ea809036b7ee310c42c861ba (diff) | |
| download | gcc-7fd3f504416286edc2584ec8099490432443ceb6.tar.gz | |
* gimplify.c (gimplify_modify_expr_rhs) <VAR_DECL>: Do not do a direct
assignment from the constructor either if the target is volatile.
ada/
* einfo.ads (Is_True_Constant): Lift restriction on atomic objects.
* sinfo.ads (Object Declaration): Likewise.
(Assignment Statement): Likewise.
* freeze.adb (Expand_Atomic_Aggregate): Remove useless test.
Do not force Is_True_Constant to false on the temporary.
(Freeze_Entity): Do not force Is_True_Constant to false on names on
the RHS of object declarations.
* gcc-interface/trans.c (lvalue_required_p) <N_Object_Declaration>:
New case. Return 1 if the object is atomic.
<N_Assignment_Statement>: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146652 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sinfo.ads')
| -rw-r--r-- | gcc/ada/sinfo.ads | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index d45b4b039ba..5aae9c059c9 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -2152,11 +2152,8 @@ package Sinfo is -- Note: the back end places some restrictions on the form of the -- Expression field. If the object being declared is Atomic, then -- the Expression may not have the form of an aggregate (since this - -- might cause the back end to generate separate assignments). It - -- also cannot be a reference to an object marked as a true constant - -- (Is_True_Constant flag set), where the object is itself initialized - -- with an aggregate. If necessary the front end must generate an - -- extra temporary (with Is_True_Constant set False), and initialize + -- might cause the back end to generate separate assignments). In this + -- case the front end must generate an extra temporary and initialize -- this temporary as required (the temporary itself is not atomic). -- Note: there is not node kind for object definition. Instead, the @@ -3848,11 +3845,8 @@ package Sinfo is -- Note: the back end places some restrictions on the form of the -- Expression field. If the object being assigned to is Atomic, then -- the Expression may not have the form of an aggregate (since this - -- might cause the back end to generate separate assignments). It - -- also cannot be a reference to an object marked as a true constant - -- (Is_True_Constant flag set), where the object is itself initialized - -- with an aggregate. If necessary the front end must generate an - -- extra temporary (with Is_True_Constant set False), and initialize + -- might cause the back end to generate separate assignments). In this + -- case the front end must generate an extra temporary and initialize -- this temporary as required (the temporary itself is not atomic). ----------------------- |