From: Doug Rupp <rupp@adacore.com>
Date: Mon, 26 May 2008 15:51:58 +0000 (+0200)
Subject: s-vaflop-vms-alpha.adb: Remove System.IO use clause...
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3a5ab1fdfb27483f455af55d0c4acad6678c2871;p=gcc.git

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

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

diff --git a/gcc/ada/s-vaflop-vms-alpha.adb b/gcc/ada/s-vaflop-vms-alpha.adb
index 24c4b53829f..d00ca1dba85 100644
--- a/gcc/ada/s-vaflop-vms-alpha.adb
+++ b/gcc/ada/s-vaflop-vms-alpha.adb
@@ -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;