diff options
Diffstat (limited to 'gcc/ada/a-stwifi.adb')
| -rw-r--r-- | gcc/ada/a-stwifi.adb | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/gcc/ada/a-stwifi.adb b/gcc/ada/a-stwifi.adb index afb443d..dfe9619 100644 --- a/gcc/ada/a-stwifi.adb +++ b/gcc/ada/a-stwifi.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- -- @@ -411,9 +411,9 @@ package body Ada.Strings.Wide_Fixed is else declare Result_Length : constant Natural := - Natural'Max - (Source'Length, - Position - Source'First + New_Item'Length); + Natural'Max + (Source'Length, + Position - Source'First + New_Item'Length); Result : Wide_String (1 .. Result_Length); @@ -455,15 +455,14 @@ package body Ada.Strings.Wide_Fixed is if High >= Low then declare Front_Len : constant Integer := - Integer'Max (0, Low - Source'First); + Integer'Max (0, Low - Source'First); -- Length of prefix of Source copied to result - Back_Len : constant Integer := - Integer'Max (0, Source'Last - High); + Back_Len : constant Integer := Integer'Max (0, Source'Last - High); -- Length of suffix of Source copied to result Result_Length : constant Integer := - Front_Len + By'Length + Back_Len; + Front_Len + By'Length + Back_Len; -- Length of result Result : Wide_String (1 .. Result_Length); @@ -622,7 +621,7 @@ package body Ada.Strings.Wide_Fixed is else declare Result : constant Wide_String (1 .. High - Low + 1) := - Source (Low .. High); + Source (Low .. High); begin return Result; |