experimenting with character classes

2021-10-16 02:04:24 +00:00
parent e6c4873789
commit a10505d19e
2 changed files with 28 additions and 1 deletions
--- a/lib2/h3-arrays.ads
+++ b/lib2/h3-arrays.ads
@ -76,6 +76,7 @@ private
 	end record;

 	type Buffer_Pointer is access all Buffer_Record;
+	--for Buffer_Pointer'Storage_Pool use <<TODO: custom storage pool?>> H3'Storage_Pool;

 	--Empty_Buffer: aliased Buffer_Record(1);
 	-- Use 1 slot to hold the terminator value regardless of th terminator length in Empty_Buffer.