diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-06 10:31:51 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-06 10:31:51 +0200 |
| commit | 3d7b4658c16c713f6baf0eab65a9eae0a14a5d5b (patch) | |
| tree | 1179832d0d5bdca55cf33724e55557841d89594a | |
| parent | f0a631aae27cc03c1bc9b4a13c034df8c0fb10f9 (diff) | |
| download | gcc-3d7b4658c16c713f6baf0eab65a9eae0a14a5d5b.zip gcc-3d7b4658c16c713f6baf0eab65a9eae0a14a5d5b.tar.gz gcc-3d7b4658c16c713f6baf0eab65a9eae0a14a5d5b.tar.bz2 | |
xnmake.adb: Use new XUtil package for platform independent text output.
2008-08-06 Thomas Quinot <quinot@adacore.com>
* xnmake.adb: Use new XUtil package for platform independent text
output.
From-SVN: r138769
| -rw-r--r-- | gcc/ada/xnmake.adb | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/gcc/ada/xnmake.adb b/gcc/ada/xnmake.adb index 2596d73..e218d67 100644 --- a/gcc/ada/xnmake.adb +++ b/gcc/ada/xnmake.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -58,6 +58,8 @@ with Ada.Text_IO; use Ada.Text_IO; with GNAT.Spitbol; use GNAT.Spitbol; with GNAT.Spitbol.Patterns; use GNAT.Spitbol.Patterns; +with XUtil; + procedure XNmake is Err : exception; @@ -137,8 +139,8 @@ procedure XNmake is V_Elist_Id : constant VString := V ("Elist_Id"); V_Boolean : constant VString := V ("Boolean"); - procedure Put_Line (F : Sfile; S : String); - procedure Put_Line (F : Sfile; S : VString); + procedure Put_Line (F : Sfile; S : String) renames XUtil.Put_Line; + procedure Put_Line (F : Sfile; S : VString) renames XUtil.Put_Line; -- Local version of Put_Line ensures Unix style line endings procedure WriteS (S : String); @@ -199,17 +201,6 @@ procedure XNmake is end if; end WriteS; - procedure Put_Line (F : Sfile; S : String) is - begin - String'Write (Stream (F), S); - Character'Write (Stream (F), ASCII.LF); - end Put_Line; - - procedure Put_Line (F : Sfile; S : VString) is - begin - Put_Line (F, To_String (S)); - end Put_Line; - -- Start of processing for XNmake begin |