[Patch/ada] Fix thinko in Loop_Statement_to_gnu

Message ID 1349152F-107D-4496-86A3-DE3148A070E0@adacore.com
State New
Headers show

Commit Message

Tristan Gingold Feb. 1, 2012, 9:52 a.m.

this patchlet fixes a thinko in Loop_Statement_to_gnu: size_type_node was used instead of sizetype.

Privately approved by Eric.

Committed on trunk.


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

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


Index: ada/gcc-interface/trans.c
--- ada/gcc-interface/trans.c	(revision 183790)
+++ ada/gcc-interface/trans.c	(working copy)
@@ -2380,15 +2380,14 @@ 
 	  /* 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.  */
-	      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);
-		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);