diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:20:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:20:30 +0200 |
| commit | dc1f64ac929a1518ac202c4059a0eea45b0c442f (patch) | |
| tree | e200c96589e80345d2bc6670ba8dfde0561dacfe | |
| parent | 39f4e199a51bc4ff869d273937d363902cc963c3 (diff) | |
| download | gcc-dc1f64ac929a1518ac202c4059a0eea45b0c442f.zip gcc-dc1f64ac929a1518ac202c4059a0eea45b0c442f.tar.gz gcc-dc1f64ac929a1518ac202c4059a0eea45b0c442f.tar.bz2 | |
a-stzunb.adb, [...]: (Insert): Use 'Length instead of 'Size.
2007-04-20 Arnaud Charlet <charlet@adacore.com>
* a-stzunb.adb, a-stwiun.adb, a-strunb.adb: (Insert): Use 'Length
instead of 'Size.
* a-stwifi.ads, a-stzfix.ads: Minor reformatting
From-SVN: r125378
| -rw-r--r-- | gcc/ada/a-strunb.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/a-stwifi.ads | 6 | ||||
| -rw-r--r-- | gcc/ada/a-stwiun.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/a-stzfix.ads | 6 | ||||
| -rw-r--r-- | gcc/ada/a-stzunb.adb | 2 |
5 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/a-strunb.adb b/gcc/ada/a-strunb.adb index 3472070..8e9b974 100644 --- a/gcc/ada/a-strunb.adb +++ b/gcc/ada/a-strunb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, 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- -- @@ -690,7 +690,7 @@ package body Ada.Strings.Unbounded is raise Index_Error; end if; - Realloc_For_Chunk (Source, New_Item'Size); + Realloc_For_Chunk (Source, New_Item'Length); Source.Reference (Before + New_Item'Length .. Source.Last + New_Item'Length) := diff --git a/gcc/ada/a-stwifi.ads b/gcc/ada/a-stwifi.ads index 5d9ea3f..8f3cf39 100644 --- a/gcc/ada/a-stwifi.ads +++ b/gcc/ada/a-stwifi.ads @@ -225,10 +225,10 @@ package Ada.Strings.Wide_Fixed is Pad : Wide_Character := Ada.Strings.Wide_Space) return Wide_String; procedure Tail - (Source : in out Wide_String; - Count : Natural; + (Source : in out Wide_String; + Count : Natural; Justify : Alignment := Left; - Pad : Wide_Character := Ada.Strings.Wide_Space); + Pad : Wide_Character := Ada.Strings.Wide_Space); --------------------------------------- -- Wide_String Constructor Functions -- diff --git a/gcc/ada/a-stwiun.adb b/gcc/ada/a-stwiun.adb index 45ab546..c9c42f0 100644 --- a/gcc/ada/a-stwiun.adb +++ b/gcc/ada/a-stwiun.adb @@ -706,7 +706,7 @@ package body Ada.Strings.Wide_Unbounded is raise Index_Error; end if; - Realloc_For_Chunk (Source, New_Item'Size); + Realloc_For_Chunk (Source, New_Item'Length); Source.Reference (Before + New_Item'Length .. Source.Last + New_Item'Length) := diff --git a/gcc/ada/a-stzfix.ads b/gcc/ada/a-stzfix.ads index 4c3f80b..f6b3135 100644 --- a/gcc/ada/a-stzfix.ads +++ b/gcc/ada/a-stzfix.ads @@ -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 -- diff --git a/gcc/ada/a-stzunb.adb b/gcc/ada/a-stzunb.adb index 7f4c54a..e3123bc 100644 --- a/gcc/ada/a-stzunb.adb +++ b/gcc/ada/a-stzunb.adb @@ -717,7 +717,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is raise Index_Error; end if; - Realloc_For_Chunk (Source, New_Item'Size); + Realloc_For_Chunk (Source, New_Item'Length); Source.Reference (Before + New_Item'Length .. Source.Last + New_Item'Length) := |