diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-02-03 23:57:10 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-02-03 23:57:10 +0000 |
| commit | 81968b9a6e1b466cfa936ca3e5195b2868dbcb81 (patch) | |
| tree | 886278231a642c5ff1fb192fd1e3c70504bb7d15 | |
| parent | 2003-02-03 Joel Sherrill <joel@OARcorp.com> (diff) | |
| download | rtems-81968b9a6e1b466cfa936ca3e5195b2868dbcb81.tar.bz2 | |
2003-02-03 Joel Sherrill <joel@OARcorp.com>
PR 338/filesystem
* rtems.adb, rtems.ads: Side-effect of fixing reentrancy problem with
rtems_io_lookup_name() (API change).
| -rw-r--r-- | c/src/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | c/src/ada/rtems.adb | 4 | ||||
| -rw-r--r-- | c/src/ada/rtems.ads | 5 | ||||
| -rw-r--r-- | cpukit/ada/ChangeLog | 6 | ||||
| -rw-r--r-- | cpukit/ada/rtems.adb | 4 | ||||
| -rw-r--r-- | 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 <joel@OARcorp.com> + + 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 <joel@OARcorp.com> * 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 <joel@OARcorp.com> + + 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 <joel@OARcorp.com> * 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 ); |