X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fa-stzfix.ads;h=f6b313598d664425a698d61f459aa6ce58ef3074;hb=18a49466c972ff6bc70f5da5645eefcde97e1ab8;hp=1670b381ce4ed926fc7b6c6209013de578d2244f;hpb=1a1b0b9b6fe17b5c74e507284ee07f066dd02ad1;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/a-stzfix.ads b/gcc/ada/a-stzfix.ads
index 1670b381ce4..f6b313598d6 100644
--- a/gcc/ada/a-stzfix.ads
+++ b/gcc/ada/a-stzfix.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
--- This specification is adapted from the Ada Reference Manual for use with --
+-- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT.  In accordance with the copyright of that document, you can freely --
 -- copy and modify this specification,  provided that if you redistribute a --
 -- modified version,  any changes that you have made are clearly indicated. --
@@ -235,10 +235,10 @@ package Ada.Strings.Wide_Wide_Fixed is
       return Wide_Wide_String;
 
    procedure Tail
-     (Source : in out Wide_Wide_String;
-      Count  : Natural;
+     (Source  : in out Wide_Wide_String;
+      Count   : Natural;
       Justify : Alignment := Left;
-      Pad    : Wide_Wide_Character := Ada.Strings.Wide_Wide_Space);
+      Pad     : Wide_Wide_Character := Ada.Strings.Wide_Wide_Space);
 
    --------------------------------------------
    -- Wide_Wide_String Constructor Functions --