[gcc r13-4966] ada: Fix calling convention of foreign functions returning limited type

[gcc r13-4966] ada: Fix calling convention of foreign functions returning limited type

[Marc Poulhi?s]

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

commit r13-4966-gbfe1ab222a8095b31c29d8f3530268f048fea00f
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Thu Dec 8 10:51:29 2022 +0100

    ada: Fix calling convention of foreign functions returning limited type
    
    Such functions use neither Ada 2005's build-in-place mechanism nor Ada 95's
    return-by-reference mechanism, but instead the common calling convention of
    functions returning a nonlimited by-reference type.
    
    gcc/ada/
    
            * exp_ch6.adb (Is_Build_In_Place_Function): Adjust comment.
            * sem_util.adb (Compute_Returns_By_Ref): Do not set Returns_By_Ref
            on functions with foreign convention.

Diff:
---
 gcc/ada/exp_ch6.adb  | 8 ++++----
 gcc/ada/sem_util.adb | 7 +++++--
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 975a96668df..d90ee41712e 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -7759,10 +7759,10 @@ package body Exp_Ch6 is
          return False;
       end if;
 
-      --  If the function is imported from a foreign language, we don't do
-      --  build-in-place, whereas Import (Ada) functions can do it. Note also
-      --  that it is OK for a build-in-place function to return a type with a
-      --  foreign convention because the machinery ensures there is no copying.
+      --  We never use build-in-place if the convention is other than Ada,
+      --  but note that it is OK for a build-in-place function to return a
+      --  type with a foreign convention because the machinery ensures there
+      --  is no copying.
 
       return (Kind in E_Function | E_Generic_Function
                or else
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 3132446515b..a05ac74d35f 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -6163,9 +6163,12 @@ package body Sem_Util is
       elsif Is_Build_In_Place_Function (Func) then
          Set_Returns_By_Ref (Func);
 
-      --  In Ada 95, limited types are returned by reference
+      --  In Ada 95, limited types are returned by reference, but not if the
+      --  convention is other than Ada.
 
-      elsif Is_Limited_View (Typ) then
+      elsif Is_Limited_View (Typ)
+        and then not Has_Foreign_Convention (Func)
+      then
          Set_Returns_By_Ref (Func);
       end if;
    end Compute_Returns_By_Ref;