diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-26 15:15:05 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-26 15:15:05 +0000 |
commit | a5093862059fbc434fc70fa576e93c6adc0d116a (patch) | |
tree | 5e0a6811cf8fd2ec5c50fc4076e9568d472fb65b /gcc/ada/s-vaflop.adb | |
parent | 6dfb88d8a9c82289878fc79da01dffda8cba4f8d (diff) | |
download | ppe42-gcc-a5093862059fbc434fc70fa576e93c6adc0d116a.tar.gz ppe42-gcc-a5093862059fbc434fc70fa576e93c6adc0d116a.zip |
2008-05-26 Doug Rupp <rupp@adacore.com>
* s-vaflop.adb:
(Return_D, Return_F, Return_G): New functions.
* s-vaflop.ads:
(Return_D, Return_F, Return_G): New functions.
* exp_vfpt.adb:
(Expand_Vax_Foreign_Return): New procedure
* exp_vfpt.ads:
(Expand_Vax_Foreign_Return): New procedure
* rtsfind.ads:
(RE_Return_D, RE_Return_F, RE_Return_G): New RE_Ids
(RE_Return_D, RE_Return_F, RE_Return_G): New RE_Unit_Table elements
* exp_ch6.adb:
Import Exp_Vfpt
(Expand_N_Function_Call): Call Expand_Vax_Foreign_Return.
* s-vaflop-vms-alpha.adb:
(Return_D, Return_F, Return_G): New functions.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135937 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-vaflop.adb')
-rw-r--r-- | gcc/ada/s-vaflop.adb | 41 |
1 files changed, 34 insertions, 7 deletions
diff --git a/gcc/ada/s-vaflop.adb b/gcc/ada/s-vaflop.adb index 0741664082b..79e295f94c1 100644 --- a/gcc/ada/s-vaflop.adb +++ b/gcc/ada/s-vaflop.adb @@ -37,7 +37,7 @@ -- case where the -gnatdm switch is used to force testing of VMS features -- on non-VMS systems. -with System.IO; use System.IO; +with System.IO; package body System.Vax_Float_Operations is pragma Warnings (Off); @@ -94,7 +94,7 @@ package body System.Vax_Float_Operations is procedure Debug_Output_D (Arg : D) is begin - Put (D'Image (Arg)); + System.IO.Put (D'Image (Arg)); end Debug_Output_D; -------------------- @@ -103,7 +103,7 @@ package body System.Vax_Float_Operations is procedure Debug_Output_F (Arg : F) is begin - Put (F'Image (Arg)); + System.IO.Put (F'Image (Arg)); end Debug_Output_F; -------------------- @@ -112,7 +112,7 @@ package body System.Vax_Float_Operations is procedure Debug_Output_G (Arg : G) is begin - Put (G'Image (Arg)); + System.IO.Put (G'Image (Arg)); end Debug_Output_G; -------------------- @@ -352,7 +352,7 @@ package body System.Vax_Float_Operations is procedure pd (Arg : D) is begin - Put_Line (D'Image (Arg)); + System.IO.Put_Line (D'Image (Arg)); end pd; -------- @@ -361,7 +361,7 @@ package body System.Vax_Float_Operations is procedure pf (Arg : F) is begin - Put_Line (F'Image (Arg)); + System.IO.Put_Line (F'Image (Arg)); end pf; -------- @@ -370,7 +370,7 @@ package body System.Vax_Float_Operations is procedure pg (Arg : G) is begin - Put_Line (G'Image (Arg)); + System.IO.Put_Line (G'Image (Arg)); end pg; ------------ @@ -400,6 +400,33 @@ package body System.Vax_Float_Operations is return F (X); end S_To_F; + -------------- + -- Return_D -- + -------------- + + function Return_D (X : D) return D is + begin + return X; + end Return_D; + + -------------- + -- Return_F -- + -------------- + + function Return_F (X : F) return F is + begin + return X; + end Return_F; + + -------------- + -- Return_G -- + -------------- + + function Return_G (X : G) return G is + begin + return X; + end Return_G; + ----------- -- Sub_F -- ----------- |