diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-10-09 15:06:50 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-10-09 15:06:50 +0000 |
| commit | 4b9e1bc78110d65377acdf23ee3733f8c69baef9 (patch) | |
| tree | 63fbf5a293c7b24c26396ba37f45eae1f2b6c734 /gcc/ada/gcc-interface/decl.c | |
| parent | 005f870e9145c83cba08cab71ed9c0de5bb08e2c (diff) | |
| download | gcc-4b9e1bc78110d65377acdf23ee3733f8c69baef9.zip gcc-4b9e1bc78110d65377acdf23ee3733f8c69baef9.tar.gz gcc-4b9e1bc78110d65377acdf23ee3733f8c69baef9.tar.bz2 | |
[Ada] Fix incorrect computation of Component_Size in ASIS mode
2018-10-09 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Constant>: If
this is not a definition, retrieve the expression in all cases
even if we are just annotating types.
* gcc-interface/trans.c (gnat_to_gnu): Also translate Size
attribute for constrained types in this mode.
From-SVN: r264983
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index ff87529..a0d2cbe 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -612,8 +612,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition) && !No_Initialization (gnat_decl) && !Is_Dispatch_Table_Entity (gnat_entity) && Present (gnat_temp = Expression (gnat_decl)) - && Nkind (gnat_temp) != N_Allocator - && (!type_annotate_only || Compile_Time_Known_Value (gnat_temp))) + && Nkind (gnat_temp) != N_Allocator) gnu_expr = gnat_to_gnu_external (gnat_temp); /* ... fall through ... */ |