From ecd8aec9117a8a66aa5c4b3322def9ac48c2bd2b Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Fri, 14 Oct 2022 09:23:12 -0500 Subject: Remove remnants of rtems_io_lookup_name Updates #3420. --- cpukit/include/adainclude/rtems-io.adb | 21 --------------------- testsuites/sptests/sp21/sp21.scn | 3 --- 2 files changed, 24 deletions(-) diff --git a/cpukit/include/adainclude/rtems-io.adb b/cpukit/include/adainclude/rtems-io.adb index 41a315c93a..addc2e2540 100644 --- a/cpukit/include/adainclude/rtems-io.adb +++ b/cpukit/include/adainclude/rtems-io.adb @@ -67,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; diff --git a/testsuites/sptests/sp21/sp21.scn b/testsuites/sptests/sp21/sp21.scn index 6c099dfc13..87c798d5bd 100644 --- a/testsuites/sptests/sp21/sp21.scn +++ b/testsuites/sptests/sp21/sp21.scn @@ -25,8 +25,5 @@ rtems_io_register_driver - RTEMS_SUCCESSFUL - overwrite NULL rtems_io_register_driver - RTEMS_TOO_MANY - no slots rtems_io_register_driver - RTEMS_RESOURCE_IN_USE - major in use rtems_io_unregister_driver - RTEMS_SUCCESSFUL -rtems_io_lookup_name( "", &info ) - RTEMS_UNSATISFIED -rtems_io_lookup_name( "/dev", &info ) - RTEMS_UNSATISFIED -rtems_io_lookup_name( "/dev/null", &info ) - RTEMS_SUCCESSFUL ----- TESTING THE ZERO DRIVER CHECKS ----- *** END OF TEST 21 *** -- cgit v1.2.3