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/trans.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/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index cd01d4d..e0ecf06 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1065,15 +1065,16 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p) gcc_assert (Etype (gnat_node) == gnat_temp_type || (Is_Packed (gnat_temp_type) - && Etype (gnat_node) == Packed_Array_Type (gnat_temp_type)) + && (Etype (gnat_node) + == Packed_Array_Impl_Type (gnat_temp_type))) || (Is_Class_Wide_Type (Etype (gnat_node))) || (IN (Ekind (gnat_temp_type), Private_Kind) && Present (Full_View (gnat_temp_type)) && ((Etype (gnat_node) == Full_View (gnat_temp_type)) || (Is_Packed (Full_View (gnat_temp_type)) && (Etype (gnat_node) - == Packed_Array_Type (Full_View - (gnat_temp_type)))))) + == Packed_Array_Impl_Type + (Full_View (gnat_temp_type)))))) || (Is_Itype (Etype (gnat_node)) && Is_Itype (gnat_temp_type)) || !(Ekind (gnat_temp) == E_Variable || Ekind (gnat_temp) == E_Component @@ -1107,7 +1108,7 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p) if ((Ekind (gnat_temp) == E_Constant || Ekind (gnat_temp) == E_Variable || Is_Formal (gnat_temp)) && !(Is_Array_Type (Etype (gnat_temp)) - && Present (Packed_Array_Type (Etype (gnat_temp)))) + && Present (Packed_Array_Impl_Type (Etype (gnat_temp)))) && Present (Actual_Subtype (gnat_temp)) && present_gnu_tree (Actual_Subtype (gnat_temp))) gnat_temp_type = Actual_Subtype (gnat_temp); @@ -5359,9 +5360,9 @@ unchecked_conversion_nop (Node_Id gnat_node) if (to_type == from_type) return true; - /* For an array subtype, the conversion to the PAT is a no-op. */ + /* For an array subtype, the conversion to the PAIT is a no-op. */ if (Ekind (from_type) == E_Array_Subtype - && to_type == Packed_Array_Type (from_type)) + && to_type == Packed_Array_Impl_Type (from_type)) return true; /* For a record subtype, the conversion to the type is a no-op. */ |