some ada experiments

2021-09-30 23:54:50 +00:00
parent bb840abd99
commit 3ec3a9a17e
6 changed files with 60 additions and 43 deletions
--- a/h2/lib2/h3-limited_pool.ads
+++ b/h2/lib2/h3-limited_pool.ads
@ -1,8 +1,9 @@
 --------------------------------------------------------------------
 -- Instantantiate this package before using. To allocate integers,
 --
+--   P1: aliased System.Pool_Global.Unbounded_No_Reclaim_Pool;
 --   type Integer_Pointer is access Integer_Pointer;
--   package Integer_Pool is new Pool(Integer, Integer_Pointer, Storage_Pool'Unchecked_Access);
+--   package Integer_Pool is new Pool(Integer, Integer_Pointer, P1'Unchecked_Access);
 --   x: Integer_Pointer;
 --
 --   x := Integer_Pool.Allocate(10);