diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2016-04-21 08:52:31 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 10:52:31 +0200 |
| commit | 0ef5cd0ad8b4f382dca65bbd47154ee6777f4446 (patch) | |
| tree | 5dac84b6aef6d582a4d11e3b9b1417281b7e3c4f /gcc/ada/exp_aggr.adb | |
| parent | 2d6aa71558f460ef00af8420e81e01f46d95da84 (diff) | |
| download | gcc-0ef5cd0ad8b4f382dca65bbd47154ee6777f4446.zip gcc-0ef5cd0ad8b4f382dca65bbd47154ee6777f4446.tar.gz gcc-0ef5cd0ad8b4f382dca65bbd47154ee6777f4446.tar.bz2 | |
exp_aggr.adb (Component_Not_OK_For_Backend): Refine previous change to take into account Per_Object_Constraint field rather...
2016-04-21 Arnaud Charlet <charlet@adacore.com>
* exp_aggr.adb (Component_Not_OK_For_Backend): Refine previous
change to take into account Per_Object_Constraint field rather
than special casing strings.
* exp_ch6.adb: Fix typo in Replace_Returns.
From-SVN: r235314
Diffstat (limited to 'gcc/ada/exp_aggr.adb')
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 20932d3..334955b 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -6024,7 +6024,8 @@ package body Exp_Aggr is return True; elsif Modify_Tree_For_C - and then Ekind (Etype (Expr_Q)) = E_String_Literal_Subtype + and then Nkind (C) in N_Entity + and then Has_Per_Object_Constraint (C) then Static_Components := False; return True; |