Message ID | 1474470.x324bNpRni@polaris |
---|---|
State | New |
Headers | show |
Index: gcc-interface/trans.c =================================================================== --- gcc-interface/trans.c (revision 192648) +++ gcc-interface/trans.c (working copy) @@ -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;