Ada 程式設計/庫/System.Storage_Pools

此語言功能從 Ada 95 開始提供。

System.Storage_Pools 是預定義語言環境的一個單元，自 Ada 95 開始提供。

此頁面是一個存根。你可以透過閱讀貢獻指南和擴充套件它來改進 Ada 程式設計華夏公益教科書。

規範

--                     Standard Ada library specification
--   Copyright (c) 2003-2018 Maxim Reznik <reznikmm@gmail.com>
--   Copyright (c) 2004-2016 AXE Consultants
--   Copyright (c) 2004, 2005, 2006 Ada-Europe
--   Copyright (c) 2000 The MITRE Corporation, Inc.
--   Copyright (c) 1992, 1993, 1994, 1995 Intermetrics, Inc.
--   SPDX-License-Identifier: BSD-3-Clause and LicenseRef-AdaReferenceManual
-- -------------------------------------------------------------------------

with Ada.Finalization;
with System.Storage_Elements;

package System.Storage_Pools is
   pragma Preelaborate (System.Storage_Pools);

   type Root_Storage_Pool is
     abstract new Ada.Finalization.Limited_Controlled with private;
   pragma Preelaborable_Initialization (Root_Storage_Pool);

   procedure Allocate
     (Pool                     : in out Root_Storage_Pool;
      Storage_Address          :    out Address;
      Size_In_Storage_Elements : in     Storage_Elements.Storage_Count;
      Alignment                : in     Storage_Elements.Storage_Count)
      is abstract;

   procedure Deallocate
     (Pool                     : in out Root_Storage_Pool;
      Storage_Address          : in     Address;
      Size_In_Storage_Elements : in     Storage_Elements.Storage_Count;
      Alignment                : in     Storage_Elements.Storage_Count)
      is abstract;

   function Storage_Size
     (Pool : Root_Storage_Pool)
     return Storage_Elements.Storage_Count
      is abstract;

private

   pragma Import (Ada, Root_Storage_Pool);

end System.Storage_Pools;

參見

華夏公益教科書

Ada 程式設計/庫/System

外部示例

在以下網站搜尋示例：Rosetta Code，GitHub (gists)，任何 Alire 包或本華夏公益教科書。
在以下網站搜尋帖子：Stack Overflow，comp.lang.ada 或任何 Ada 相關頁面。

Ada 參考手冊

開源實現

FSF GNAT

規範: s-stopoo.ads
主體: s-stopoo.adb

drake

規範: s-stopoo.ads
主體: s-stopoo.adb

規範

參見

華夏公益教科書

外部示例

Ada 參考手冊

Ada 95

Ada 2005

Ada 2012

開源實現