From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 26 May 2008 15:52:07 +0000 (+0200)
Subject: * s-vaflop.ads: Add comments for previous change
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=45c87b72c753378a06738e9e8ab9f7aeaf56e9e6;p=gcc.git

* s-vaflop.ads: Add comments for previous change

From-SVN: r135948
---

diff --git a/gcc/ada/s-vaflop.ads b/gcc/ada/s-vaflop.ads
index d32fe9cb479..caf1dcc4e9c 100644
--- a/gcc/ada/s-vaflop.ads
+++ b/gcc/ada/s-vaflop.ads
@@ -150,7 +150,12 @@ package System.Vax_Float_Operations is
    function Return_D (X : D) return D;
    function Return_F (X : F) return F;
    function Return_G (X : G) return G;
-   --  Adjust the return register of an imported function
+   --  Deal with returned value for an imported function where the function
+   --  result is of VAX Float type. Usually nothing needs to be done, and these
+   --  functions return their argument unchanged. But for the case of VMS Alpha
+   --  the return value is already in $f0, so we need to trick the compiler
+   --  into thinking that we are moving X to $f0. See bodies for this case
+   --  for the Asm sequence generated to achieve this.
 
    ----------------------------------
    -- Routines for Valid Attribute --