diff options
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) := |