diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-07 10:21:45 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-07 10:21:45 +0000 |
| commit | c86f07f6bf104142c3161433a7ca43e30cc11bde (patch) | |
| tree | ef855f247095d8d7cb0a007835b7ee4b408a0af9 | |
| parent | 2d5be6c15d0c42c16e19ef34bd93f482688326a1 (diff) | |
| download | gcc-c86f07f6bf104142c3161433a7ca43e30cc11bde.zip gcc-c86f07f6bf104142c3161433a7ca43e30cc11bde.tar.gz gcc-c86f07f6bf104142c3161433a7ca43e30cc11bde.tar.bz2 | |
trans.c (Attribute_to_gnu): Do not convert the result.
2009-04-07 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (Attribute_to_gnu) <Max_Size_In_Storage_Elmts>:
Do not convert the result. Remove obsolete comment.
From-SVN: r145662
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 11 |
2 files changed, 7 insertions, 9 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0759002..d0a953d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2009-04-07 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/trans.c (Attribute_to_gnu) <Max_Size_In_Storage_Elmts>: + Do not convert the result. Remove obsolete comment. + +2009-04-07 Eric Botcazou <ebotcazou@adacore.com> + * gcc-interface/trans.c (establish_gnat_vms_condition_handler): Clear DECL_CONTEXT. (Subprogram_Body_to_gnu): Fix pasto. diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index ec3ec31..b505c88 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1390,16 +1390,9 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) gnu_result_type = get_unpadded_type (Etype (gnat_node)); - /* Always perform division using unsigned arithmetic as the size cannot - be negative, but may be an overflowed positive value. This provides - correct results for sizes up to 512 MB. - - ??? Size should be calculated in storage elements directly. */ - if (attribute == Attr_Max_Size_In_Storage_Elements) - gnu_result = convert (sizetype, - fold_build2 (CEIL_DIV_EXPR, bitsizetype, - gnu_result, bitsize_unit_node)); + gnu_result = fold_build2 (CEIL_DIV_EXPR, bitsizetype, + gnu_result, bitsize_unit_node); break; case Attr_Alignment: |