blob: acc630f27b5da656253241b8cc8c82763812886c (
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.com/license/LICENSE.
--
-- $Id$
--
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;
|