diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-03-26 08:36:36 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:36:36 +0100 |
| commit | 162c52f32359c7f4c18f03d2ebc62ac59fa81c09 (patch) | |
| tree | d5b503cf6fa882491acbab9d19f0030bac869635 | |
| parent | cfd712162fc617ed0f7da30991e539b9b9cea9ff (diff) | |
| download | gcc-162c52f32359c7f4c18f03d2ebc62ac59fa81c09.zip gcc-162c52f32359c7f4c18f03d2ebc62ac59fa81c09.tar.gz gcc-162c52f32359c7f4c18f03d2ebc62ac59fa81c09.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/a-teioed.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/a-teioed.ads | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb index a288752..a5c2b66 100644 --- 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 b2c3412..9d520b6 100644 --- 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 := '.'; |