diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-04-17 14:53:08 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-04-17 14:53:08 +0000 |
| commit | f5631ae6907cd200d8a9be082bf5450b1dfe52f9 (patch) | |
| tree | f907e51ce1065e3646c8ceeeb7dea233040ca53f /gcc/ada | |
| parent | b9175f57bab9376357b989889d0903d52301adcb (diff) | |
| download | gcc-f5631ae6907cd200d8a9be082bf5450b1dfe52f9.zip gcc-f5631ae6907cd200d8a9be082bf5450b1dfe52f9.tar.gz gcc-f5631ae6907cd200d8a9be082bf5450b1dfe52f9.tar.bz2 | |
utils2.c (build_unary_op): Do not issue warning.
* gcc-interface/utils2.c (build_unary_op) <ATTR_ADDR_EXPR>: Do not
issue warning.
From-SVN: r158469
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 10 |
2 files changed, 7 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b68d535..d24a07d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2010-04-17 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/utils2.c (build_unary_op) <ATTR_ADDR_EXPR>: Do not + issue warning. + +2010-04-17 Eric Botcazou <ebotcazou@adacore.com> + * uintp.h (UI_Lt): Declare. * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Type>: Do the size computation in sizetype. diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 31c5136..9b00c0d 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -1080,9 +1080,8 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand) case ARRAY_RANGE_REF: case COMPONENT_REF: case BIT_FIELD_REF: - /* If this is for 'Address, find the address of the prefix and - add the offset to the field. Otherwise, do this the normal - way. */ + /* If this is for 'Address, find the address of the prefix and add + the offset to the field. Otherwise, do this the normal way. */ if (op_code == ATTR_ADDR_EXPR) { HOST_WIDE_INT bitsize; @@ -1109,11 +1108,6 @@ build_unary_op (enum tree_code op_code, tree result_type, tree operand) if (!offset) offset = size_zero_node; - if (bitpos % BITS_PER_UNIT != 0) - post_error - ("taking address of object not aligned on storage unit?", - error_gnat_node); - offset = size_binop (PLUS_EXPR, offset, size_int (bitpos / BITS_PER_UNIT)); |