diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2014-07-18 10:19:34 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 12:19:34 +0200 |
| commit | 1a4cb2276c4de8021a305c23a5b08680e1b25400 (patch) | |
| tree | 17a487ffdf4f9aec35da1a89325cff9277c0d047 /gcc/ada/gcc-interface/utils.c | |
| parent | c74afd846db25c438a7f24254fe501a829109117 (diff) | |
| download | gcc-1a4cb2276c4de8021a305c23a5b08680e1b25400.zip gcc-1a4cb2276c4de8021a305c23a5b08680e1b25400.tar.gz gcc-1a4cb2276c4de8021a305c23a5b08680e1b25400.tar.bz2 | |
decl.c, [...] (Is_Packed_Array_Type): Renamed Is_Packed_Array_Impl_Type.
* gcc-interface/decl.c, gcc-interface/trans.c,
gcc-interface/utils.c (Is_Packed_Array_Type): Renamed
Is_Packed_Array_Impl_Type.
From-SVN: r212808
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 4d4623b..022bca7 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1252,7 +1252,8 @@ built: { Node_Id gnat_error_node = Empty; - if (Is_Packed_Array_Type (gnat_entity)) + /* For a packed array, post the message on the original array type. */ + if (Is_Packed_Array_Impl_Type (gnat_entity)) gnat_entity = Original_Array_Type (gnat_entity); if ((Ekind (gnat_entity) == E_Component |