OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

s-vaflop-vms-alpha.adb: Remove System.IO use clause...

Browse Source 
2008-05-26  Doug Rupp  <rupp@adacore.com>

	* s-vaflop-vms-alpha.adb:
	Remove System.IO use clause, to prevent spurious ambiguities when
	package is access through rtsfind.

From-SVN: r135947
This commit is contained in:
Doug Rupp 2008-05-26 17:51:58 +02:00 committed by Arnaud Charlet
parent 6e96b5434d
commit 3a5ab1fdfb
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gcc/ada/s-vaflop-vms-alpha.adb
View File

@ -32,7 +32,7 @@
-- --
------------------------------------------------------------------------------
with System.IO; use System.IO;
with System.IO;
with System.Machine_Code; use System.Machine_Code;
package body System.Vax_Float_Operations is
@ -328,7 +328,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;
--------------------
@ -337,7 +337,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;
--------------------
@ -346,7 +346,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;
--------------------
@ -627,7 +627,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;
--------
@ -636,7 +636,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;
--------
@ -645,7 +645,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;
--------------
@ -654,11 +654,13 @@ package body System.Vax_Float_Operations is
function Return_D (X : D) return D is
R : D;
begin
-- The return value is already in $f0 so we need to trick the compiler
-- into thinking that we're moving X to $f0.
Asm ("cvtdg $f0,$f0", Inputs => D'Asm_Input ("g", X), Clobber => "$f0",
Volatile => True);
Volatile => True);
Asm ("stg $f0,%0", D'Asm_Output ("=m", R), Volatile => True);
return R;
end Return_D;
@ -669,11 +671,13 @@ package body System.Vax_Float_Operations is
function Return_F (X : F) return F is
R : F;
begin
-- The return value is already in $f0 so we need to trick the compiler
-- into thinking that we're moving X to $f0.
Asm ("stf $f0,%0", F'Asm_Output ("=m", R), F'Asm_Input ("g", X),
Clobber => "$f0", Volatile => True);
Clobber => "$f0", Volatile => True);
return R;
end Return_F;
@ -683,11 +687,13 @@ package body System.Vax_Float_Operations is
function Return_G (X : G) return G is
R : G;
begin
-- The return value is already in $f0 so we need to trick the compiler
-- into thinking that we're moving X to $f0.
Asm ("stg $f0,%0", G'Asm_Output ("=m", R), G'Asm_Input ("g", X),
Clobber => "$f0", Volatile => True);
Clobber => "$f0", Volatile => True);
return R;
end Return_G;