diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-09-07 11:55:06 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-09-07 11:55:06 +0000 |
| commit | 48d3d75d39df4bd391c3e89f9e31df505c672151 (patch) | |
| tree | f851275c137d0c734a7aa761d11c52358458cabf | |
| parent | e919e5bffbc8acd81d795e5c5a50d3d785bcdf0f (diff) | |
| download | gcc-48d3d75d39df4bd391c3e89f9e31df505c672151.zip gcc-48d3d75d39df4bd391c3e89f9e31df505c672151.tar.gz gcc-48d3d75d39df4bd391c3e89f9e31df505c672151.tar.bz2 | |
trans.c (Loop_Statement_to_gnu): Revert to using size_type_node instead of sizetype.
* gcc-interface/trans.c (Loop_Statement_to_gnu): Revert to using
size_type_node instead of sizetype.
From-SVN: r191069
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 06259eb..90f59f4 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2012-09-07 Eric Botcazou <ebotcazou@adacore.com> + + * gcc-interface/trans.c (Loop_Statement_to_gnu): Revert to using + size_type_node instead of sizetype. + 2012-08-19 Eric Botcazou <ebotcazou@adacore.com> * layout.adb (Set_Elem_Alignment): Cap the alignment of access types diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index cd35cd1..4d8dac9 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2417,14 +2417,15 @@ 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 sizetype, whichever is the + or the unsigned version of the size type, whichever is the largest, in order to have wrap-around arithmetics for it. */ else { - if (TYPE_PRECISION (gnu_base_type) > TYPE_PRECISION (sizetype)) + if (TYPE_PRECISION (gnu_base_type) + > TYPE_PRECISION (size_type_node)) gnu_base_type = gnat_unsigned_type (gnu_base_type); else - gnu_base_type = sizetype; + gnu_base_type = size_type_node; gnu_first = convert (gnu_base_type, gnu_first); gnu_last = convert (gnu_base_type, gnu_last); |