diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-03-12 20:00:32 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-03-12 20:00:32 +0000 |
| commit | 2b45154d2074a11baa2dfa18247848227fbfa1f0 (patch) | |
| tree | 1b26a4183158628e3053e92f393f5fa662df3146 /gcc/ada/gcc-interface/utils2.c | |
| parent | 0452b4d47fe1e13bbcb8578e7e348cef2ca17e42 (diff) | |
| download | gcc-2b45154d2074a11baa2dfa18247848227fbfa1f0.zip gcc-2b45154d2074a11baa2dfa18247848227fbfa1f0.tar.gz gcc-2b45154d2074a11baa2dfa18247848227fbfa1f0.tar.bz2 | |
gigi.h (shift_unc_components_for_thin_pointers): Kill.
* gcc-interface/gigi.h (shift_unc_components_for_thin_pointers): Kill.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Remove call
to above function.
* gcc-interface/trans.c (Attribute_to_gnu) <Attr_Pool_Address>: Adjust
handling of thin pointers.
<Attr_Descriptor_Size>: Likewise.
(gnat_to_gnu) <N_Free_Statement>: Likewise.
* gcc-interface/utils.c (shift_unc_components_for_thin_pointers): Kill.
(convert_to_fat_pointer): Adjust handling of thin pointers.
(convert) <POINTER_TYPE>: Likewise.
* gcc-interface/utils2.c (build_unary_op) <INDIRECT_REF>: Likewise.
From-SVN: r185268
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 79c5a1f..d0769f7 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -1396,9 +1396,8 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand) tree rec_type = TREE_TYPE (type); if (TREE_CODE (operand) == POINTER_PLUS_EXPR - && integer_zerop - (size_binop (PLUS_EXPR, TREE_OPERAND (operand, 1), - byte_position (TYPE_FIELDS (rec_type)))) + && TREE_OPERAND (operand, 1) + == byte_position (DECL_CHAIN (TYPE_FIELDS (rec_type))) && TREE_CODE (TREE_OPERAND (operand, 0)) == NOP_EXPR) { operand = TREE_OPERAND (TREE_OPERAND (operand, 0), 0); |