From: Robert Dewar Date: Wed, 26 Mar 2008 07:36:36 +0000 (+0100) Subject: a-teioed.ads: Correct value of Default_Fill X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=162c52f32359c7f4c18f03d2ebc62ac59fa81c09;p=gcc.git a-teioed.ads: Correct value of Default_Fill 2008-03-26 Robert Dewar * 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 a2887527f14..a5c2b662e36 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 b2c34121ada..9d520b631e0 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 := '.';