Do not use pragma Provide_Shift_Operators in Atree package
authorEric Botcazou <ebotcazou@adacore.com>
Mon, 10 May 2021 21:27:23 +0000 (23:27 +0200)
committerEric Botcazou <ebotcazou@adacore.com>
Mon, 10 May 2021 21:27:23 +0000 (23:27 +0200)
commitb1241d573822afcc591ba7a84b8866a440f24073
treebbbe850229403dd418cb4b3cfaf1f18e7bb88882
parenta1b10eec36aa7aa32757fcdde3b53865d383399c
Do not use pragma Provide_Shift_Operators in Atree package

This pragma is relatively recent and may be problematic for the bootstrap.

gcc/ada/
* atree.ads (Slot): Remove pragma Provide_Shift_Operators.
(Shift_Left): New intrinsic function.
(Shift_Right): Likewise.
* atree.adb (Get_1_Bit_Val): Use Natural instead of Integer.
(Get_2_Bit_Val): Likewise.
(Get_4_Bit_Val): Likewise.
(Get_8_Bit_Val): Likewise.
(Set_1_Bit_Val): Likewise.
(Set_2_Bit_Val): Likewise.
(Set_4_Bit_Val): Likewise.
(Set_8_Bit_Val): Likewise.
gcc/ada/atree.adb
gcc/ada/atree.ads