diff options
| author | Tristan Gingold <gingold@gcc.gnu.org> | 2012-02-01 09:52:28 +0000 |
|---|---|---|
| committer | Tristan Gingold <gingold@gcc.gnu.org> | 2012-02-01 09:52:28 +0000 |
| commit | 337c6e076cb4b9a2ad374859ca2248067d64e514 (patch) | |
| tree | 9b3a09ed49c27f65c848581b52a66f74068c5e81 /gcc | |
| parent | 99ea07f8f023b526acc127036309ec6ed4aad2c0 (diff) | |
| download | gcc-337c6e076cb4b9a2ad374859ca2248067d64e514.zip gcc-337c6e076cb4b9a2ad374859ca2248067d64e514.tar.gz gcc-337c6e076cb4b9a2ad374859ca2248067d64e514.tar.bz2 | |
trans.c (Loop_Statement_to_gnu): Use sizetype instead of size_type_node.
2012-02-01 Tristan Gingold <gingold@adacore.com>
* gcc-interface/trans.c (Loop_Statement_to_gnu): Use sizetype
instead of size_type_node.
From-SVN: r183793
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 53a277e..11478cb 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2380,15 +2380,14 @@ Loop_Statement_to_gnu (Node_Id gnat_node) /* Otherwise, use the do-while form with the help of a special induction variable in the unsigned version of the base type - or the unsigned version of the size type, whichever is the + or the unsigned version of sizetype, whichever is the largest, in order to have wrap-around arithmetics for it. */ else { - if (TYPE_PRECISION (gnu_base_type) - > TYPE_PRECISION (size_type_node)) + if (TYPE_PRECISION (gnu_base_type) > TYPE_PRECISION (sizetype)) gnu_base_type = gnat_unsigned_type (gnu_base_type); else - gnu_base_type = size_type_node; + gnu_base_type = sizetype; gnu_first = convert (gnu_base_type, gnu_first); gnu_last = convert (gnu_base_type, gnu_last); |