From: Eric Botcazou <[email protected]>

The Move_Activation_Chain routine is not available in all runtime libraries.

gcc/ada/ChangeLog:

        * exp_ch6.adb (Expand_N_Extended_Return_Statement): Do not call
        Move_Activation_Chain if it is not available in the runtime library.

Tested on x86_64-pc-linux-gnu (before the recent bootstrap breakage), committed 
on master.

---
 gcc/ada/exp_ch6.adb | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 48627649a30..981cb2c8684 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -5920,6 +5920,12 @@ package body Exp_Ch6 is
 
       function Move_Activation_Chain (Func_Id : Entity_Id) return Node_Id is
       begin
+         --  Move_Activation_Chain is not universally available
+
+         if not RTE_Available (RE_Move_Activation_Chain) then
+            return Make_Null_Statement (Loc);
+         end if;
+
          return
            Make_Procedure_Call_Statement (Loc,
              Name                   =>
-- 
2.51.0

Reply via email to