include/adainclude/rtems-port.adb

0001 -- SPDX-License-Identifier: BSD-2-Clause
0002
0003 --
0004 --  RTEMS / Body
0005 --
0006 --  DESCRIPTION:
0007 --
0008 --  This package provides the interface to the RTEMS API.
0009 --
0010 --
0011 --  DEPENDENCIES:
0012 --
0013 --
0014 --
0015 --  COPYRIGHT (c) 1997-2011.
0016 --  On-Line Applications Research Corporation (OAR).
0017 --
0018 --  Redistribution and use in source and binary forms, with or without
0019 --  modification, are permitted provided that the following conditions
0020 --  are met:
0021 --  1. Redistributions of source code must retain the above copyright
0022 --     notice, this list of conditions and the following disclaimer.
0023 --  2. Redistributions in binary form must reproduce the above copyright
0024 --     notice, this list of conditions and the following disclaimer in the
0025 --     documentation and/or other materials provided with the distribution.
0026 --
0027 --  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
0028 --  AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
0029 --  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
0030 --  ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
0031 --  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
0032 --  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
0033 --  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
0034 --  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
0035 --  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
0036 --  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
0037 --  POSSIBILITY OF SUCH DAMAGE.
0038 --
0039
0040 package body RTEMS.Port is
0041
0042    --
0043    -- Dual Ported Memory Manager
0044    --
0045
0046    procedure Create
0047      (Name           : in RTEMS.Name;
0048       Internal_Start : in RTEMS.Address;
0049       External_Start : in RTEMS.Address;
0050       Length         : in RTEMS.Unsigned32;
0051       ID             : out RTEMS.ID;
0052       Result         : out RTEMS.Status_Codes)
0053    is
0054       function Create_Base
0055         (Name           : RTEMS.Name;
0056          Internal_Start : RTEMS.Address;
0057          External_Start : RTEMS.Address;
0058          Length         : RTEMS.Unsigned32;
0059          ID             : access RTEMS.ID)
0060          return           RTEMS.Status_Codes;
0061       pragma Import (C, Create_Base, "rtems_port_create");
0062       ID_Base : aliased RTEMS.ID;
0063    begin
0064
0065       Result :=
0066          Create_Base
0067            (Name,
0068             Internal_Start,
0069             External_Start,
0070             Length,
0071             ID_Base'Access);
0072       ID     := ID_Base;
0073
0074    end Create;
0075
0076    procedure Ident
0077      (Name   : in RTEMS.Name;
0078       ID     : out RTEMS.ID;
0079       Result : out RTEMS.Status_Codes)
0080    is
0081       function Ident_Base
0082         (Name : RTEMS.Name;
0083          ID   : access RTEMS.ID)
0084          return RTEMS.Status_Codes;
0085       pragma Import (C, Ident_Base, "rtems_port_ident");
0086       ID_Base : aliased RTEMS.ID;
0087    begin
0088
0089       Result := Ident_Base (Name, ID_Base'Access);
0090       ID     := ID_Base;
0091
0092    end Ident;
0093
0094    procedure Delete
0095      (ID     : in RTEMS.ID;
0096       Result : out RTEMS.Status_Codes)
0097    is
0098       function Delete_Base (ID : RTEMS.ID) return RTEMS.Status_Codes;
0099       pragma Import (C, Delete_Base, "rtems_port_delete");
0100    begin
0101
0102       Result := Delete_Base (ID);
0103
0104    end Delete;
0105
0106    procedure External_To_Internal
0107      (ID       : in RTEMS.ID;
0108       External : in RTEMS.Address;
0109       Internal : out RTEMS.Address;
0110       Result   : out RTEMS.Status_Codes)
0111    is
0112       function External_To_Internal_Base
0113         (ID       : RTEMS.ID;
0114          External : RTEMS.Address;
0115          Internal : access RTEMS.Address)
0116          return     RTEMS.Status_Codes;
0117       pragma Import
0118         (C,
0119          External_To_Internal_Base,
0120          "rtems_port_external_to_internal");
0121       Internal_Base : aliased RTEMS.Address;
0122    begin
0123
0124       Result   :=
0125          External_To_Internal_Base (ID, External, Internal_Base'Access);
0126       Internal := Internal_Base;
0127
0128    end External_To_Internal;
0129
0130    procedure Internal_To_External
0131      (ID       : in RTEMS.ID;
0132       Internal : in RTEMS.Address;
0133       External : out RTEMS.Address;
0134       Result   : out RTEMS.Status_Codes)
0135    is
0136       function Internal_To_External_Base
0137         (ID       : RTEMS.ID;
0138          Internal : RTEMS.Address;
0139          External : access RTEMS.Address)
0140          return     RTEMS.Status_Codes;
0141       pragma Import
0142         (C,
0143          Internal_To_External_Base,
0144          "rtems_port_internal_to_external");
0145       External_Base : aliased RTEMS.Address;
0146    begin
0147
0148       Result   :=
0149          Internal_To_External_Base (ID, Internal, External_Base'Access);
0150       External := External_Base;
0151
0152    end Internal_To_External;
0153
0154 end RTEMS.Port;