fixed a buffer growth bug in Replace for Elastic_String

2021-10-03 16:53:13 +00:00
parent 50760a4107
commit 4fd093da3e
4 changed files with 91 additions and 55 deletions
--- a/h2/lib2/h3.ads
+++ b/h2/lib2/h3.ads
@ -25,6 +25,8 @@ package H3 is
 	--subtype System_Index is System_Size range 0 .. (System_Size'Last - 1);
 	subtype System_Index is System_Size range (System_Size'First + 1) .. System_Size'Last;

+	subtype System_Zero_Or_One is System_Word range 0 .. 1;
+
 	type Storage_Pool_Pointer is access all System.Storage_Pools.Root_Storage_Pool'Class;

 	type System_Byte_Array is array(System_Index range<>) of System_Byte;