adding experimental changes

2021-10-30 01:57:19 +00:00
parent b7de031e72
commit 442d45fb9e
10 changed files with 496 additions and 74 deletions
--- a/h2/lib2/h3-strings.adb
+++ b/h2/lib2/h3-strings.adb
@ -1,6 +1,6 @@
 package body H3.Strings is

-	procedure Append (Obj: in out Elastic_String; V: in Character_Array) is
+	procedure Append (Obj: in out Elastic_String; V: in Rune_Array) is
 	begin
 		P.Append (P.Elastic_Array(Obj), V);
 	end;