From 81968b9a6e1b466cfa936ca3e5195b2868dbcb81 Mon Sep 17 00:00:00 2001 From: Joel Sherrill Date: Mon, 3 Feb 2003 23:57:10 +0000 Subject: 2003-02-03 Joel Sherrill PR 338/filesystem * rtems.adb, rtems.ads: Side-effect of fixing reentrancy problem with rtems_io_lookup_name() (API change). --- c/src/ada/rtems.ads | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'c/src/ada/rtems.ads') diff --git a/c/src/ada/rtems.ads b/c/src/ada/rtems.ads index f938f2d8fb..caa197dc8c 100644 --- a/c/src/ada/rtems.ads +++ b/c/src/ada/rtems.ads @@ -174,9 +174,10 @@ pragma Elaborate_Body (RTEMS); Device_Name_Length : RTEMS.Unsigned32; Major : RTEMS.Device_Major_Number; Minor : RTEMS.Device_Minor_Number; - end record; + type Driver_Name_t_Pointer is access all Driver_Name_t; + -- -- Ident Options -- @@ -1339,7 +1340,7 @@ pragma Elaborate_Body (RTEMS); procedure IO_Lookup_Name ( Name : in String; - Device_Info : out RTEMS.Driver_Name_t; + Device_Info : In RTEMS.Driver_Name_t_Pointer; Result : out RTEMS.Status_Codes ); -- cgit v1.2.3