From dc1f64ac929a1518ac202c4059a0eea45b0c442f Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 6 Jun 2007 12:20:30 +0200 Subject: [PATCH] a-stzunb.adb, [...]: (Insert): Use 'Length instead of 'Size. 2007-04-20 Arnaud Charlet * 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 --- gcc/ada/a-strunb.adb | 4 ++-- gcc/ada/a-stwifi.ads | 6 +++--- gcc/ada/a-stwiun.adb | 2 +- gcc/ada/a-stzfix.ads | 6 +++--- 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) := -- 2.30.2