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/ChangeLog | 6 ++++++ c/src/ada/rtems.adb | 4 ++-- c/src/ada/rtems.ads | 5 +++-- cpukit/ada/ChangeLog | 6 ++++++ cpukit/ada/rtems.adb | 4 ++-- cpukit/ada/rtems.ads | 5 +++-- 6 files changed, 22 insertions(+), 8 deletions(-) diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index e0bf83b9f2..d9e8efe23f 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/ada/ChangeLog @@ -1,3 +1,9 @@ +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). + 2003-01-03 Joel Sherrill * rtems.ads: Corrected Configuration_Table record definition to diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index e7e448ac02..37e111482e 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/ada/rtems.adb @@ -10,7 +10,7 @@ -- -- -- --- COPYRIGHT (c) 1997. +-- COPYRIGHT (c) 1997-2003. -- On-Line Applications Research Corporation (OAR). -- -- The license and distribution terms for this file may in @@ -1650,7 +1650,7 @@ package body RTEMS is 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 ) is function IO_Lookup_Name_Base ( 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 ); diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog index e0bf83b9f2..d9e8efe23f 100644 --- a/cpukit/ada/ChangeLog +++ b/cpukit/ada/ChangeLog @@ -1,3 +1,9 @@ +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). + 2003-01-03 Joel Sherrill * rtems.ads: Corrected Configuration_Table record definition to diff --git a/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb index e7e448ac02..37e111482e 100644 --- a/cpukit/ada/rtems.adb +++ b/cpukit/ada/rtems.adb @@ -10,7 +10,7 @@ -- -- -- --- COPYRIGHT (c) 1997. +-- COPYRIGHT (c) 1997-2003. -- On-Line Applications Research Corporation (OAR). -- -- The license and distribution terms for this file may in @@ -1650,7 +1650,7 @@ package body RTEMS is 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 ) is function IO_Lookup_Name_Base ( diff --git a/cpukit/ada/rtems.ads b/cpukit/ada/rtems.ads index f938f2d8fb..caa197dc8c 100644 --- a/cpukit/ada/rtems.ads +++ b/cpukit/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