OSDN Git Service

* gcc-interface/trans.c (Loop_Statement_to_gnu): Revert to using
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 7 Sep 2012 11:55:44 +0000 (11:55 +0000)
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 7 Sep 2012 11:55:44 +0000 (11:55 +0000)
size_type_node instead of sizetype.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@191070 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/gcc-interface/trans.c

index 3d0fa9b..a9c8f01 100644 (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-07-19  Eric Botcazou  <ebotcazou@adacore.com>
 
        * gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Try to ensure
index 50e8692..61648c5 100644 (file)
@@ -2396,14 +2396,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);