2012-02-01 Tristan Gingold <gingold@adacore.com>

	* gcc-interface/trans.c (Loop_Statement_to_gnu): Use sizetype
	instead of size_type_node.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183793 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 53a277e..11478cb 100644 (file)
--- 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);