[gcc r13-1423] [Ada] Plug loophole for built-in-place return with limited_with clause

[gcc r13-1423] [Ada] Plug loophole for built-in-place return with limited_with clause

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:bdd5056736b642f0124e6cb26f9c2fd8be028908

commit r13-1423-gbdd5056736b642f0124e6cb26f9c2fd8be028908
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Tue May 24 01:14:18 2022 +0200

    [Ada] Plug loophole for built-in-place return with limited_with clause
    
    When the result type of a function requiring built-in-place return is
    only visible through a limited_with clause, the compiled needs to wait
    for the nonlimited view to be available in order to compute whether
    the built-in-place return is needed, and this comprises tagging the
    function with the Returns_By_Ref flag.
    
    gcc/ada/
    
            * exp_ch6.adb (Build_In_Place_Formal): Also compute Returns_By_Ref
            for the function if the extra formals were not built initially.

Diff:
---
 gcc/ada/exp_ch6.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 15a20392457..88157b946ea 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -850,11 +850,12 @@ package body Exp_Ch6 is
       --  The return type in the function declaration may have been a limited
       --  view, and the extra formals for the function were not generated at
       --  that point. At the point of call the full view must be available and
-      --  the extra formals can be created.
+      --  the extra formals can be created and Returns_By_Ref computed.
 
       if No (Extra_Formal) then
          Create_Extra_Formals (Func);
          Extra_Formal := Extra_Formals (Func);
+         Compute_Returns_By_Ref (Func);
       end if;
 
       --  We search for a formal with a matching suffix. We can't search