2021-08-23 23:47:29 +00:00
|
|
|
package body H3.Strings is
|
|
|
|
|
|
2021-10-06 03:56:30 +00:00
|
|
|
procedure Append (Str: in out Elastic_String; V: in Character_Array) is
|
2021-08-23 23:47:29 +00:00
|
|
|
begin
|
2021-10-06 03:56:30 +00:00
|
|
|
P.Append (P.Elastic_Array(Str), V);
|
|
|
|
|
end;
|
2021-10-03 16:53:13 +00:00
|
|
|
|
2021-08-23 23:47:29 +00:00
|
|
|
end H3.Strings;
|
