[Ada] Fix compile time evaluation of shift intrinsics
authorArnaud Charlet <charlet@adacore.com>
Fri, 20 Nov 2020 15:18:22 +0000 (10:18 -0500)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 14 Dec 2020 15:51:53 +0000 (10:51 -0500)
commit415791cf5c906cceff4fc444c3f5795e636ed6ab
tree3fb65c9c0d619b54aefa08be3d42a8bbde8dc46e
parentb97b4e6f71da62cae325d1f41610cfb43870a4a1
[Ada] Fix compile time evaluation of shift intrinsics

gcc/ada/

* sem_eval.adb (Fold_Shift): Compute values using the base type.
gcc/ada/sem_eval.adb