From 45c87b72c753378a06738e9e8ab9f7aeaf56e9e6 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 26 May 2008 17:52:07 +0200 Subject: [PATCH] * s-vaflop.ads: Add comments for previous change From-SVN: r135948 --- gcc/ada/s-vaflop.ads | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- -- 2.30.2