blob: a2540c74d4d45e503e39c718ca278d7cbad5e624 (
plain) (
tree)
|
|
--
-- RTEMS / Body
--
-- DESCRIPTION:
--
-- This package provides the interface to the RTEMS API.
--
--
-- DEPENDENCIES:
--
--
--
-- COPYRIGHT (c) 1997-2011.
-- On-Line Applications Research Corporation (OAR).
--
-- The license and distribution terms for this file may in
-- the file LICENSE in this distribution or at
-- http://www.rtems.org/license/LICENSE.
--
package body RTEMS.Extension is
--
-- Extension Manager
--
procedure Create
(Name : in RTEMS.Name;
Table : in RTEMS.Extensions_Table_Pointer;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes)
is
function Create_Base
(Name : RTEMS.Name;
Table : RTEMS.Extensions_Table_Pointer;
ID : access RTEMS.ID)
return RTEMS.Status_Codes;
pragma Import (C, Create_Base, "rtems_extension_create");
ID_Base : aliased RTEMS.ID;
begin
Result := Create_Base (Name, Table, ID_Base'Access);
ID := ID_Base;
end Create;
procedure Ident
(Name : in RTEMS.Name;
ID : out RTEMS.ID;
Result : out RTEMS.Status_Codes)
is
function Ident_Base
(Name : RTEMS.Name;
ID : access RTEMS.ID)
return RTEMS.Status_Codes;
pragma Import (C, Ident_Base, "rtems_extension_ident");
ID_Base : aliased RTEMS.ID;
begin
Result := Ident_Base (Name, ID_Base'Access);
ID := ID_Base;
end Ident;
procedure Delete
(ID : in RTEMS.ID;
Result : out RTEMS.Status_Codes)
is
function Delete_Base
(ID : RTEMS.ID)
return RTEMS.Status_Codes;
pragma Import (C, Delete_Base, "rtems_extension_delete");
begin
Result := Delete_Base (ID);
end Delete;
end RTEMS.Extension;
|