diff options
Diffstat (limited to 'gcc/ada/a-stzunb-shared.adb')
| -rw-r--r-- | gcc/ada/a-stzunb-shared.adb | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/gcc/ada/a-stzunb-shared.adb b/gcc/ada/a-stzunb-shared.adb index 9ec5d4764e7..37ab295369e 100644 --- a/gcc/ada/a-stzunb-shared.adb +++ b/gcc/ada/a-stzunb-shared.adb @@ -486,12 +486,11 @@ package body Ada.Strings.Wide_Wide_Unbounded is function Aligned_Max_Length (Max_Length : Natural) return Natural is Static_Size : constant Natural := - Empty_Shared_Wide_Wide_String'Size - / Standard'Storage_Unit; + Empty_Shared_Wide_Wide_String'Size / Standard'Storage_Unit; -- Total size of all static components Element_Size : constant Natural := - Wide_Wide_Character'Size / Standard'Storage_Unit; + Wide_Wide_Character'Size / Standard'Storage_Unit; begin return @@ -645,8 +644,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 SR : constant Shared_Wide_Wide_String_Access := Source.Reference; begin @@ -975,8 +973,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 SR : constant Shared_Wide_Wide_String_Access := Source.Reference; begin @@ -1014,8 +1011,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 SR : constant Shared_Wide_Wide_String_Access := Source.Reference; begin |