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
This commit is contained in:
Eric Botcazou 2012-09-07 11:55:06 +00:00 committed by Eric Botcazou
parent e919e5bffb
commit 48d3d75d39
2 changed files with 9 additions and 3 deletions

View File

@ -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> 2012-08-19 Eric Botcazou <ebotcazou@adacore.com>
* layout.adb (Set_Elem_Alignment): Cap the alignment of access types * layout.adb (Set_Elem_Alignment): Cap the alignment of access types

View File

@ -2417,14 +2417,15 @@ Loop_Statement_to_gnu (Node_Id gnat_node)
/* Otherwise, use the do-while form with the help of a special /* Otherwise, use the do-while form with the help of a special
induction variable in the unsigned version of the base type 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. */ largest, in order to have wrap-around arithmetics for it. */
else 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); gnu_base_type = gnat_unsigned_type (gnu_base_type);
else else
gnu_base_type = sizetype; gnu_base_type = size_type_node;
gnu_first = convert (gnu_base_type, gnu_first); gnu_first = convert (gnu_base_type, gnu_first);
gnu_last = convert (gnu_base_type, gnu_last); gnu_last = convert (gnu_base_type, gnu_last);