9 lines
169 B
Ada
9 lines
169 B
Ada
package body H3.Strings is
|
|
|
|
procedure Append (Obj: in out Elastic_String; V: in Character_Array) is
|
|
begin
|
|
P.Append (P.Elastic_Array(Obj), V);
|
|
end;
|
|
|
|
end H3.Strings;
|