diff options
Diffstat (limited to 'cpukit/include/adainclude/rtems-io.adb')
| -rw-r--r-- | cpukit/include/adainclude/rtems-io.adb | 46 |
1 files changed, 22 insertions, 24 deletions
diff --git a/cpukit/include/adainclude/rtems-io.adb b/cpukit/include/adainclude/rtems-io.adb index d6d4f0cd10..addc2e2540 100644 --- a/cpukit/include/adainclude/rtems-io.adb +++ b/cpukit/include/adainclude/rtems-io.adb @@ -1,3 +1,5 @@ +-- SPDX-License-Identifier: BSD-2-Clause + -- -- RTEMS / Body -- @@ -13,9 +15,26 @@ -- 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. +-- Redistribution and use in source and binary forms, with or without +-- modification, are permitted provided that the following conditions +-- are met: +-- 1. Redistributions of source code must retain the above copyright +-- notice, this list of conditions and the following disclaimer. +-- 2. Redistributions in binary form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +-- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. -- with Ada; @@ -48,27 +67,6 @@ package body RTEMS.IO is end Register_Name; - procedure Lookup_Name - (Name : in String; - Device_Info : out RTEMS.Driver_Name_t; - Result : out RTEMS.Status_Codes) - is - function Lookup_Name_Base - (Name : Interfaces.C.char_array; - Device_Info : access RTEMS.Driver_Name_t) - return RTEMS.Status_Codes; - pragma Import (C, Lookup_Name_Base, "rtems_io_lookup_name"); - Device_Info_Base : aliased RTEMS.Driver_Name_t; - begin - - Result := - Lookup_Name_Base - (Interfaces.C.To_C (Name), - Device_Info_Base'Unchecked_Access); - Device_Info := Device_Info_Base; - - end Lookup_Name; - procedure Open (Major : in RTEMS.Device_Major_Number; Minor : in RTEMS.Device_Minor_Number; |