diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-14 08:36:48 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-14 08:36:48 +0000 |
commit | 65297ca971f11afebfb1d420d32bc4c769bbbdf5 (patch) | |
tree | 05b5ae79d8bf769dcfc728d032c9a64d115ddfeb /gcc/ada/a-wtedit.adb | |
parent | 1263d20c60a2d7b5e5bccfcd39a89dde448b1c22 (diff) | |
download | gcc-65297ca971f11afebfb1d420d32bc4c769bbbdf5.tar.gz |
2007-08-14 Robert Dewar <dewar@adacore.com>
* uintp.adb, a-ztedit.adb, s-wchcon.adb, xnmake.adb, s-wchcon.adb,
par-ch5.adb, par-ch10.adb, get_targ.adb, a-wtedit.adb, a-teioed.adb,
s-osinte-solaris.adb, s-osinte-solaris.ads,
s-osinte-freebsd.ads, s-osinte-freebsd.adb: Minor reformatting.
* styleg.adb, styleg.ads, stylesw.adb, stylesw.ads: implement style
switch -gnatyS. Enable -gnatyS in GNAT style check mode
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127409 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-wtedit.adb')
-rw-r--r-- | gcc/ada/a-wtedit.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/a-wtedit.adb b/gcc/ada/a-wtedit.adb index ce2380a56fc..eb72f81d13b 100644 --- a/gcc/ada/a-wtedit.adb +++ b/gcc/ada/a-wtedit.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2007, 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- -- @@ -1100,7 +1100,9 @@ package body Ada.Wide_Text_IO.Editing is Pic.Contents.Picture.Expanded; begin for J in Temp'Range loop - if Temp (J) = 'b' then Temp (J) := 'B'; end if; + if Temp (J) = 'b' then + Temp (J) := 'B'; + end if; end loop; return Temp; |