跳到内容

Ada 编程/库/Ada.Dynamic Priorities

来自维基教科书,开放的书籍,开放的世界

Ada. Time-tested, safe and secure.
Ada.经久耐用,安全可靠。

此语言特性从Ada 95开始可用。

Ada.Dynamic_Priorities预定义语言环境自 Ada 95 以来的一部分。

--                     Standard Ada library specification
--   Copyright (c) 2003-2018 Maxim Reznik <[email protected]>
--   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.Task_Identification; --  See C.7.1
with System;

package Ada.Dynamic_Priorities is

   pragma Preelaborate (Dynamic_Priorities);

   procedure Set_Priority (Priority : in System.Any_Priority;
                           T        : in Ada.Task_Identification.Task_Id
                             := Ada.Task_Identification.Current_Task);

   function Get_Priority (T : in Ada.Task_Identification.Task_Id
                            := Ada.Task_Identification.Current_Task)
     return System.Any_Priority;

end Ada.Dynamic_Priorities;

另请参阅

[编辑 | 编辑源代码]

维基教科书

[编辑 | 编辑源代码]

外部示例

[编辑源代码]

Ada 参考手册

[编辑 | 编辑源代码]

开源实现

[编辑 | 编辑源代码]

FSF GNAT

drake

华夏公益教科书