Fix small regression in Ada
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 14 Feb 2023 12:27:18 +0000 (13:27 +0100)
committerEric Botcazou <ebotcazou@adacore.com>
Tue, 14 Feb 2023 12:27:18 +0000 (13:27 +0100)
commit1434eee54e57ad4839c0697f1294f9e8fe0a3044
treeda2846f853832ef36475a49fec7616de51c1b26a
parenta16fc9333f1762d9b5a9da7239fe6a5cc9a6d190
Fix small regression in Ada

gcc/
* gimplify.cc (gimplify_save_expr): Add missing guard.
gcc/ada/
* gcc-interface/trans.cc (gnat_gimplify_expr): Add missing guard.
gcc/testsuite/
* gnat.dg/shift2.adb: New test.
gcc/ada/gcc-interface/trans.cc
gcc/gimplify.cc
gcc/testsuite/gnat.dg/shift2.adb [new file with mode: 0644]