--------------------------------
-- Ivan Levashew aka OCTAGRAM --
--              Barnaul, 2009 --
--------------------------------

-- Standard.Storage_Pool
-- 
-- Stupid name, probably. So called Standard_Pool is
-- a default implementation of the Turbo_Storage_Pool
-- (i. e. realloc-capable) root abstract class. It is
-- used for strings and so on. I want to port FastMM
-- to Ada once in a blue moon.

with Turbo_Private.Memory;

with Turbo_Private.Memory.Fallback;

use Turbo_Private.Memory;

package Turbo_Private.Memory.Standard is
   pragma Preelaborate;

   Storage_Pool : Turbo_Storage_Pool'Class
      renames Turbo_Storage_Pool'Class (Fallback.Storage_Pool);

end Turbo_Private.Memory.Standard;
