Message ID | 272522743.8yFuboCKnV@polaris |
---|---|
State | New |
Headers | show |
Index: gcc-interface/trans.c =================================================================== --- gcc-interface/trans.c (revision 196500) +++ gcc-interface/trans.c (working copy) @@ -4944,7 +4944,7 @@ Raise_Error_to_gnu (Node_Id gnat_node, t { rci->low_bound = gnu_low_bound; rci->high_bound = gnu_high_bound; - rci->type = gnat_to_gnu_type (gnat_type); + rci->type = get_unpadded_type (gnat_type); rci->invariant_cond = build1 (SAVE_EXPR, boolean_type_node, boolean_true_node); gnu_cond = build_binary_op (TRUTH_ANDIF_EXPR,