diff options
Diffstat (limited to 'c/src/ada/rtems-extension.adb')
-rw-r--r-- | c/src/ada/rtems-extension.adb | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/c/src/ada/rtems-extension.adb b/c/src/ada/rtems-extension.adb deleted file mode 100644 index a2540c74d4..0000000000 --- a/c/src/ada/rtems-extension.adb +++ /dev/null @@ -1,79 +0,0 @@ --- --- 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; |