https://gcc.gnu.org/g:651749d904bcab40061e3df4b03cb491fce7f2a8
commit r16-1871-g651749d904bcab40061e3df4b03cb491fce7f2a8
Author: Eric Botcazou <ebotca...@adacore.com>
Date: Sat May 17 01:20:19 2025 +0200
ada: Small tweak to latest change
Unlike RTE, RTU_Entity alone does not cause the unit to be loaded.
gcc/ada/ChangeLog:
* exp_ch7.adb (Shift_Address_For_Descriptor): Add dummy variable
to make sure that System_Storage_Elements is loaded.
Diff:
---
gcc/ada/exp_ch7.adb | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb
index 9abdcc18a57c..4d2b8348048e 100644
--- a/gcc/ada/exp_ch7.adb
+++ b/gcc/ada/exp_ch7.adb
@@ -8868,7 +8868,9 @@ package body Exp_Ch7 is
Typ : Entity_Id;
Op_Nam : Name_Id) return Node_Id
is
- Loc : constant Source_Ptr := Sloc (Addr);
+ Loc : constant Source_Ptr := Sloc (Addr);
+ Dummy : constant Entity_Id := RTE (RE_Storage_Offset);
+ -- Make sure System_Storage_Elements is loaded for RTU_Entity
begin
-- Generate:
