diff options
Diffstat (limited to 'gcc/ada/a-strbou.adb')
| -rw-r--r-- | gcc/ada/a-strbou.adb | 37 |
1 files changed, 18 insertions, 19 deletions
diff --git a/gcc/ada/a-strbou.adb b/gcc/ada/a-strbou.adb index 886c03ff68a..08d339d0b68 100644 --- a/gcc/ada/a-strbou.adb +++ b/gcc/ada/a-strbou.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 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- -- @@ -35,23 +35,26 @@ package body Ada.Strings.Bounded is package body Generic_Bounded_Length is + -- The subprograms in this body are those for which there is no + -- Bounded_String input, and hence no implicit information on the + -- maximum size. This means that the maximum size has to be passed + -- explicitly to the routine in Superbounded. + --------- -- "*" -- --------- function "*" - (Left : in Natural; - Right : in Character) - return Bounded_String + (Left : Natural; + Right : Character) return Bounded_String is begin return Times (Left, Right, Max_Length); end "*"; function "*" - (Left : in Natural; - Right : in String) - return Bounded_String + (Left : Natural; + Right : String) return Bounded_String is begin return Times (Left, Right, Max_Length); @@ -62,34 +65,30 @@ package body Ada.Strings.Bounded is --------------- function Replicate - (Count : in Natural; - Item : in Character; - Drop : in Strings.Truncation := Strings.Error) - return Bounded_String + (Count : Natural; + Item : Character; + Drop : Strings.Truncation := Strings.Error) return Bounded_String is begin return Super_Replicate (Count, Item, Drop, Max_Length); end Replicate; function Replicate - (Count : in Natural; - Item : in String; - Drop : in Strings.Truncation := Strings.Error) - return Bounded_String + (Count : Natural; + Item : String; + Drop : Strings.Truncation := Strings.Error) return Bounded_String is begin return Super_Replicate (Count, Item, Drop, Max_Length); end Replicate; - ----------------------- -- To_Bounded_String -- ----------------------- function To_Bounded_String - (Source : in String; - Drop : in Strings.Truncation := Strings.Error) - return Bounded_String + (Source : String; + Drop : Strings.Truncation := Strings.Error) return Bounded_String is begin return To_Super_String (Source, Max_Length, Drop); |