diff options
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 059e1a4..d0663a2 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -7085,6 +7085,8 @@ gnat_to_gnu (Node_Id gnat_node) if (TREE_CODE (gnu_lhs) == INTEGER_CST && ignore_lhs_overflow) TREE_OVERFLOW (gnu_lhs) = TREE_OVERFLOW (gnu_old_lhs); gnu_rhs = convert (gnu_type, gnu_rhs); + if (gnu_max_shift) + gnu_max_shift = convert (gnu_type, gnu_max_shift); } /* For signed integer addition, subtraction and multiplication, do an diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index d50872f..dfde06e 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -5837,7 +5837,7 @@ can_materialize_object_renaming_p (Node_Id expr) { expr = Original_Node (expr); - switch Nkind (expr) + switch (Nkind (expr)) { case N_Identifier: case N_Expanded_Name: |