From: Aleksandra Pasek <pa...@adacore.com>
gcc/ada/ChangeLog:
* libgnat/s-arit32.adb: Add Ghost aspect to Lo.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/libgnat/s-arit32.adb | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/gcc/ada/libgnat/s-arit32.adb b/gcc/ada/libgnat/s-arit32.adb
index 5172d1dba0e..eb4e6e5590f 100644
--- a/gcc/ada/libgnat/s-arit32.adb
+++ b/gcc/ada/libgnat/s-arit32.adb
@@ -96,7 +96,8 @@ is
-- Convert absolute value of X to unsigned. Note that we can't just use
-- the expression of the Else since it overflows for X = Int32'First.
- function Lo (A : Uns64) return Uns32 is (Uns32 (A and (2 ** 32 - 1)));
+ function Lo (A : Uns64) return Uns32 is (Uns32 (A and (2 ** 32 - 1)))
+ with Ghost;
-- Low order half of 64-bit value
function Hi (A : Uns64) return Uns32 is (Uns32 (Shift_Right (A, 32)));
--
2.43.0
