a-teioed.ads: Correct value of Default_Fill

2008-03-26  Robert Dewar  <dewar@adacore.com>

	* a-teioed.ads: Correct value of Default_Fill

	* a-teioed.adb (Image): Use Fill_Character instead of '*' to fill

From-SVN: r133551

diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb
index a2887527f14d2a474c91bc824ce39c5a891cc222..a5c2b662e369b4b72d9d9889ae691c749d7f19ae 100644 (file)
--- a/gcc/ada/a-teioed.adb
+++ b/gcc/ada/a-teioed.adb
@@ -417,7 +417,7 @@ package body Ada.Text_IO.Editing is
                Answer (J) := Separator_Character;
 
             elsif Answer (J) = 'b' then
-               Answer (J) := '*';
+               Answer (J) := Fill_Character;
             end if;
          end loop;
 
@@ -426,7 +426,7 @@ package body Ada.Text_IO.Editing is
          end if;
 
          for J in Pic.Start_Float .. Position loop
-            Answer (J) := '*';
+            Answer (J) := Fill_Character;
          end loop;
 
       else

diff --git a/gcc/ada/a-teioed.ads b/gcc/ada/a-teioed.ads
index b2c34121ada41b9fbedf057d94677b0a7416672a..9d520b631e082d7fb0889e1d4aeefe3134bd32b4 100644 (file)
--- a/gcc/ada/a-teioed.ads
+++ b/gcc/ada/a-teioed.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -55,7 +55,7 @@ package Ada.Text_IO.Editing is
    Picture_Error : exception;
 
    Default_Currency   : constant String    := "$";
-   Default_Fill       : constant Character := ' ';
+   Default_Fill       : constant Character := '*';
    Default_Separator  : constant Character := ',';
    Default_Radix_Mark : constant Character := '.';