diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:20:30 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:20:30 +0000 |
| commit | 4775ec6dd2f836d7b36b8e325a06842b3d01020c (patch) | |
| tree | e200c96589e80345d2bc6670ba8dfde0561dacfe /gcc/ada | |
| parent | c2052d920b49395f766c1a47448d02f8896296e2 (diff) | |
| download | gcc-4775ec6dd2f836d7b36b8e325a06842b3d01020c.tar.gz | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125378 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -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 34720704a36..8e9b9749f68 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 5d9ea3f584d..8f3cf399fa8 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 45ab546a3c2..c9c42f011f3 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 4c3f80b4bdb..f6b313598d6 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 7f4c54a94c3..e3123bc2559 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) := |