some ada experiments...

2022-08-23 10:13:02 +00:00
parent 3f9d6d9e59
commit 695c55d8a7
17 changed files with 398 additions and 661 deletions
--- a/lib2/h3-storage_pools.ads
+++ b/lib2/h3-storage_pools.ads
@ -20,6 +20,8 @@ package H3.Storage_Pools is

 	function Storage_Size (Pool: in Global_Pool) return SSE.Storage_Count;

+	-- TODO: implement more pools
+
 private
 	type Global_Pool is new SSP.Root_Storage_Pool with null record;