Remove remnants of rtems_io_lookup_name

Updates #3420.
This commit is contained in:
Joel Sherrill
2022-10-14 09:23:12 -05:00
parent bfdfc979fd
commit ecd8aec911
2 changed files with 0 additions and 24 deletions

View File

@@ -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;

View File

@@ -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 ***