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