summaryrefslogtreecommitdiffstats
path: root/gcc/ada/s-vaflop.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2008-05-26 15:15:05 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2008-05-26 15:15:05 +0000
commita5093862059fbc434fc70fa576e93c6adc0d116a (patch)
tree5e0a6811cf8fd2ec5c50fc4076e9568d472fb65b /gcc/ada/s-vaflop.adb
parent6dfb88d8a9c82289878fc79da01dffda8cba4f8d (diff)
downloadppe42-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.adb41
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 --
-----------
OpenPOWER on IntegriCloud