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

From-SVN: r135948
This commit is contained in:
Arnaud Charlet 2008-05-26 17:52:07 +02:00
parent 3a5ab1fdfb
commit 45c87b72c7

View File

@ -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 --