From 337c6e076cb4b9a2ad374859ca2248067d64e514 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 1 Feb 2012 09:52:28 +0000 Subject: [PATCH] trans.c (Loop_Statement_to_gnu): Use sizetype instead of size_type_node. 2012-02-01 Tristan Gingold * gcc-interface/trans.c (Loop_Statement_to_gnu): Use sizetype instead of size_type_node. From-SVN: r183793 --- gcc/ada/gcc-interface/trans.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 53a277e368f..11478cbb676 100644 --- 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);