diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-08-20 14:04:30 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-08-20 14:04:30 +0000 |
| commit | 456976d81d0d5c3d01050d4f6c12b80db61b5d55 (patch) | |
| tree | 06e8be604568a4fdad47be340fc9287316228a35 /gcc/ada/gcc-interface/misc.c | |
| parent | 197c68cc978ee36fab09445e9f09a5752f2585f1 (diff) | |
| download | gcc-456976d81d0d5c3d01050d4f6c12b80db61b5d55.zip gcc-456976d81d0d5c3d01050d4f6c12b80db61b5d55.tar.gz gcc-456976d81d0d5c3d01050d4f6c12b80db61b5d55.tar.bz2 | |
ada-tree.h (SET_TYPE_RM_VALUE): Mark the expression as visited.
* gcc-interface/ada-tree.h (SET_TYPE_RM_VALUE): Mark the expression
as visited.
* gcc-interface/misc.c (gnat_get_subrange_bounds): Always return the
bounds.
* gcc-interface/trans.c (add_decl_expr): Do not mark gigi-specific
fields.
(gnat_gimplify_expr) <DECL_EXPR>: New case.
From-SVN: r150963
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index 4b68227..cc9eeaa 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -656,14 +656,8 @@ gnat_type_max_size (const_tree gnu_type) static void gnat_get_subrange_bounds (const_tree gnu_type, tree *lowval, tree *highval) { - tree min = TYPE_MIN_VALUE (gnu_type); - tree max = TYPE_MAX_VALUE (gnu_type); - /* If the bounds aren't constant, use non-representable constant values - to get the same effect on debug info without tree sharing issues. */ - *lowval - = TREE_CONSTANT (min) ? min : build_int_cstu (integer_type_node, -1); - *highval - = TREE_CONSTANT (max) ? max : build_int_cstu (integer_type_node, -1); + *lowval = TYPE_MIN_VALUE (gnu_type); + *highval = TYPE_MAX_VALUE (gnu_type); } /* GNU_TYPE is a type. Determine if it should be passed by reference by |