diff options
Diffstat (limited to 'gcc/ada/a-stzunb.adb')
| -rw-r--r-- | gcc/ada/a-stzunb.adb | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/gcc/ada/a-stzunb.adb b/gcc/ada/a-stzunb.adb index 82dae6f88b7..267df9e6912 100644 --- a/gcc/ada/a-stzunb.adb +++ b/gcc/ada/a-stzunb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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- -- @@ -404,8 +404,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is (Source : Unbounded_Wide_Wide_String; Pattern : Wide_Wide_String; Mapping : Wide_Wide_Maps.Wide_Wide_Character_Mapping := - Wide_Wide_Maps.Identity) - return Natural + Wide_Wide_Maps.Identity) return Natural is begin return @@ -596,8 +595,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is Pattern : Wide_Wide_String; Going : Strings.Direction := Strings.Forward; Mapping : Wide_Wide_Maps.Wide_Wide_Character_Mapping := - Wide_Wide_Maps.Identity) - return Natural + Wide_Wide_Maps.Identity) return Natural is begin return @@ -635,8 +633,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is From : Positive; Going : Direction := Forward; Mapping : Wide_Wide_Maps.Wide_Wide_Character_Mapping := - Wide_Wide_Maps.Identity) - return Natural + Wide_Wide_Maps.Identity) return Natural is begin return @@ -813,14 +810,13 @@ package body Ada.Strings.Wide_Wide_Unbounded is if Chunk_Size > S_Length - Source.Last then declare New_Size : constant Positive := - S_Length + Chunk_Size + (S_Length / Growth_Factor); + S_Length + Chunk_Size + (S_Length / Growth_Factor); New_Rounded_Up_Size : constant Positive := - ((New_Size - 1) / Min_Mul_Alloc + 1) * - Min_Mul_Alloc; + ((New_Size - 1) / Min_Mul_Alloc + 1) * Min_Mul_Alloc; Tmp : constant Wide_Wide_String_Access := - new Wide_Wide_String (1 .. New_Rounded_Up_Size); + new Wide_Wide_String (1 .. New_Rounded_Up_Size); begin Tmp (1 .. Source.Last) := Source.Reference (1 .. Source.Last); |