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/a-stwiun.adb | |
| 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/a-stwiun.adb')
| -rw-r--r-- | gcc/ada/a-stwiun.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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) := |