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-strunb.adb | |
| parent | c2052d920b49395f766c1a47448d02f8896296e2 (diff) | |
| download | ppe42-gcc-4775ec6dd2f836d7b36b8e325a06842b3d01020c.tar.gz ppe42-gcc-4775ec6dd2f836d7b36b8e325a06842b3d01020c.zip | |
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-strunb.adb')
| -rw-r--r-- | gcc/ada/a-strunb.adb | 4 |
1 files changed, 2 insertions, 2 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) := |
