diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-10-22 08:19:58 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-10-22 08:19:58 +0000 |
| commit | 00a22e5e4bf265fcc0e6e1a3252194c87fc8d4aa (patch) | |
| tree | d66cbd99f2ba3518308370e8a9c2f38d3b597486 /gcc/ada/gcc-interface | |
| parent | cd177257a5e620006d1902e6659832e9912a4e5a (diff) | |
| download | gcc-00a22e5e4bf265fcc0e6e1a3252194c87fc8d4aa.zip gcc-00a22e5e4bf265fcc0e6e1a3252194c87fc8d4aa.tar.gz gcc-00a22e5e4bf265fcc0e6e1a3252194c87fc8d4aa.tar.bz2 | |
trans.c (Loop_Statement_to_gnu): Use gnat_type_for_size directly to obtain an unsigned version of the base type.
* gcc-interface/trans.c (Loop_Statement_to_gnu): Use gnat_type_for_size
directly to obtain an unsigned version of the base type.
From-SVN: r192669
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index aac483c..c4a40c72 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2431,7 +2431,8 @@ Loop_Statement_to_gnu (Node_Id gnat_node) { if (TYPE_PRECISION (gnu_base_type) > TYPE_PRECISION (size_type_node)) - gnu_base_type = gnat_unsigned_type (gnu_base_type); + gnu_base_type + = gnat_type_for_size (TYPE_PRECISION (gnu_base_type), 1); else gnu_base_type = size_type_node; |